mirrors/prosody
1
0
Fork 0
mirror of https://github.com/bjc/prosody.git synced 2025-04-04 05:37:39 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

util.hmac: Convert spaces to tabs

Browse source
This commit is contained in:
Matthew Wild 2009-07-10 02:19:51 +01:00
parent 502cab5ff5
commit d37bfa0073
1 changed files with 33 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

66
util/hmac.lua
View file

@ -7,64 +7,64 @@ local s_char = string.char;
module "hmac"
local function arraystr(array)
local t = {}
for i = 1,#array do
t_insert(t, s_char(array[i]))
end
local t = {}
for i = 1,#array do
t_insert(t, s_char(array[i]))
end
return t_concat(t)
return t_concat(t)
end
--[[
key
the key to use in the hash
the key to use in the hash
message
the message to hash
the message to hash
hash
the hash function
the hash function
blocksize
the blocksize for the hash function in bytes
the blocksize for the hash function in bytes
hex
return raw hash or hexadecimal string
--]]
function hmac(key, message, hash, blocksize, hex)
local opad = {}
local ipad = {}
for i = 1,blocksize do
opad[i] = 0x5c
ipad[i] = 0x36
end
local opad = {}
local ipad = {}
for i = 1,blocksize do
opad[i] = 0x5c
ipad[i] = 0x36
end
if #key > blocksize then
key = hash(key)
end
if #key > blocksize then
key = hash(key)
end
for i = 1,#key do
ipad[i] = xor(ipad[i],key:sub(i,i):byte())
opad[i] = xor(opad[i],key:sub(i,i):byte())
end
for i = 1,#key do
ipad[i] = xor(ipad[i],key:sub(i,i):byte())
opad[i] = xor(opad[i],key:sub(i,i):byte())
end
opad = arraystr(opad)
ipad = arraystr(ipad)
opad = arraystr(opad)
ipad = arraystr(ipad)
if hex then
return hash(opad..hash(ipad..message), true)
else
return hash(opad..hash(ipad..message))
end
if hex then
return hash(opad..hash(ipad..message), true)
else
return hash(opad..hash(ipad..message))
end
end
function md5(key, message, hex)
return hmac(key, message, hashes.md5, 64, hex)
return hmac(key, message, hashes.md5, 64, hex)
end
function sha1(key, message, hex)
return hmac(key, message, hashes.sha1, 64, hex)
return hmac(key, message, hashes.sha1, 64, hex)
end
function sha256(key, message, hex)
return hmac(key, message, hashes.sha256, 64, hex)
return hmac(key, message, hashes.sha256, 64, hex)
end
return _M