Mercurial > verse / file revision

local function not_available(_, method_name)
	error("Hash method "..method_name.." not available", 2);
end

local _M = setmetatable({}, { __index = not_available });

local function with(mod, f)
	local ok, pkg = pcall(require, mod);
	if ok then f(pkg); end
end

local function to_hex(data)
	return (data:gsub(".", function (c)
		return ("%02x"):format(c:byte());
	end));
end

with("util.sha1", function (sha1)
	_M.sha1 = sha1.sha1;
end);

with("bgcrypto.md5", function (md5)
	_M.md5 = md5.digest;
	_M.hmac_md5 = md5.hmac.digest;
end);

with("bgcrypto.sha1", function (sha1)
	_M.sha1 = sha1.digest;
	_M.hmac_sha1 = sha1.hmac.digest;
	_M.scram_Hi_sha1 = function (p, s, i) return sha1.pbkdf2(p, s, i, 20); end;
end);

with("bgcrypto.sha256", function (sha256)
	_M.sha256 = sha256.digest;
	_M.hmac_sha256 = sha256.hmac.digest;
end);

with("bgcrypto.sha512", function (sha512)
	_M.sha512 = sha512.digest;
	_M.hmac_sha512 = sha512.hmac.digest;
end);

with("sha1", function (sha1)
	_M.sha1 = function (data, hex)
		if hex then
			return sha1.sha1(data);
		else
			return (sha1.binary(data));
		end
	end;
end);

with("openssl.digest", function (digest)
	local function make_digest_func(digest_name)
		return function (data, hex)
			local d = digest.new(digest_name):final(data);
			if hex then
				return to_hex(d);
			end
			return d;
		end;
	end
	_M.sha1 = make_digest_func("sha1");
end);

return _M;