# HG changeset patch # User Matthew Wild # Date 1247188791 -3600 # Node ID 4c9bd0527d1d117f2ab6f2a563a94587a54c7705 # Parent 9991329e6b6724b3416e97b98260136e86766246 util.hmac: Convert spaces to tabs diff -r 9991329e6b67 -r 4c9bd0527d1d util/hmac.lua --- a/util/hmac.lua Fri Jul 10 02:16:52 2009 +0100 +++ b/util/hmac.lua Fri Jul 10 02:19:51 2009 +0100 @@ -7,64 +7,64 @@ 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