-- An MD5 mplementation in Lua -- 10/02/2001 jcw@equi4.com local bit=bit32 md5={ff=tonumber('ffffffff',16),consts={}} string.gsub([[ d76aa478 e8c7b756 242070db c1bdceee f57c0faf 4787c62a a8304613 fd469501 698098d8 8b44f7af ffff5bb1 895cd7be 6b901122 fd987193 a679438e 49b40821 f61e2562 c040b340 265e5a51 e9b6c7aa d62f105d 02441453 d8a1e681 e7d3fbc8 21e1cde6 c33707d6 f4d50d87 455a14ed a9e3e905 fcefa3f8 676f02d9 8d2a4c8a fffa3942 8771f681 6d9d6122 fde5380c a4beea44 4bdecfa9 f6bb4b60 bebfbc70 289b7ec6 eaa127fa d4ef3085 04881d05 d9d4d039 e6db99e5 1fa27cf8 c4ac5665 f4292244 432aff97 ab9423a7 fc93a039 655b59c3 8f0ccc92 ffeff47d 85845dd1 6fa87e4f fe2ce6e0 a3014314 4e0811a1 f7537e82 bd3af235 2ad7d2bb eb86d391 67452301 efcdab89 98badcfe 10325476 ]],"(%w+)", function (s) table.insert(md5.consts, tonumber(s,16)) end) --67452301 efcdab89 98badcfe 10325476 ]],"(%w+)", function (s) tinsert(md5.consts,tonumber(s,16)) end) function md5.transform(A,B,C,D,X) local f=function (x,y,z) return bit.bor(bit.band(x,y),bit.band(-x-1,z)) end local g=function (x,y,z) return bit.bor(bit.band(x,z),bit.band(y,-z-1)) end local h=function (x,y,z) return bit.bxor(x,bit.bxor(y,z)) end local i=function (x,y,z) return bit.bxor(y,bit.bor(x,-z-1)) end local z=function (f,a,b,c,d,x,s,ac) a=bit.band(a+f(b,c,d)+x+ac,md5.ff) -- be *very* careful that left shift does not cause rounding! return bit.bor(bit.lshift(bit.band(a,bit.rshift(md5.ff,s)),s),bit.rshift(a,32-s))+b end local a,b,c,d=A,B,C,D local t=md5.consts a=z(f,a,b,c,d,X[ 0], 7,t[ 1]) d=z(f,d,a,b,c,X[ 1],12,t[ 2]) c=z(f,c,d,a,b,X[ 2],17,t[ 3]) b=z(f,b,c,d,a,X[ 3],22,t[ 4]) a=z(f,a,b,c,d,X[ 4], 7,t[ 5]) d=z(f,d,a,b,c,X[ 5],12,t[ 6]) c=z(f,c,d,a,b,X[ 6],17,t[ 7]) b=z(f,b,c,d,a,X[ 7],22,t[ 8]) a=z(f,a,b,c,d,X[ 8], 7,t[ 9]) d=z(f,d,a,b,c,X[ 9],12,t[10]) c=z(f,c,d,a,b,X[10],17,t[11]) b=z(f,b,c,d,a,X[11],22,t[12]) a=z(f,a,b,c,d,X[12], 7,t[13]) d=z(f,d,a,b,c,X[13],12,t[14]) c=z(f,c,d,a,b,X[14],17,t[15]) b=z(f,b,c,d,a,X[15],22,t[16]) a=z(g,a,b,c,d,X[ 1], 5,t[17]) d=z(g,d,a,b,c,X[ 6], 9,t[18]) c=z(g,c,d,a,b,X[11],14,t[19]) b=z(g,b,c,d,a,X[ 0],20,t[20]) a=z(g,a,b,c,d,X[ 5], 5,t[21]) d=z(g,d,a,b,c,X[10], 9,t[22]) c=z(g,c,d,a,b,X[15],14,t[23]) b=z(g,b,c,d,a,X[ 4],20,t[24]) a=z(g,a,b,c,d,X[ 9], 5,t[25]) d=z(g,d,a,b,c,X[14], 9,t[26]) c=z(g,c,d,a,b,X[ 3],14,t[27]) b=z(g,b,c,d,a,X[ 8],20,t[28]) a=z(g,a,b,c,d,X[13], 5,t[29]) d=z(g,d,a,b,c,X[ 2], 9,t[30]) c=z(g,c,d,a,b,X[ 7],14,t[31]) b=z(g,b,c,d,a,X[12],20,t[32]) a=z(h,a,b,c,d,X[ 5], 4,t[33]) d=z(h,d,a,b,c,X[ 8],11,t[34]) c=z(h,c,d,a,b,X[11],16,t[35]) b=z(h,b,c,d,a,X[14],23,t[36]) a=z(h,a,b,c,d,X[ 1], 4,t[37]) d=z(h,d,a,b,c,X[ 4],11,t[38]) c=z(h,c,d,a,b,X[ 7],16,t[39]) b=z(h,b,c,d,a,X[10],23,t[40]) a=z(h,a,b,c,d,X[13], 4,t[41]) d=z(h,d,a,b,c,X[ 0],11,t[42]) c=z(h,c,d,a,b,X[ 3],16,t[43]) b=z(h,b,c,d,a,X[ 6],23,t[44]) a=z(h,a,b,c,d,X[ 9], 4,t[45]) d=z(h,d,a,b,c,X[12],11,t[46]) c=z(h,c,d,a,b,X[15],16,t[47]) b=z(h,b,c,d,a,X[ 2],23,t[48]) a=z(i,a,b,c,d,X[ 0], 6,t[49]) d=z(i,d,a,b,c,X[ 7],10,t[50]) c=z(i,c,d,a,b,X[14],15,t[51]) b=z(i,b,c,d,a,X[ 5],21,t[52]) a=z(i,a,b,c,d,X[12], 6,t[53]) d=z(i,d,a,b,c,X[ 3],10,t[54]) c=z(i,c,d,a,b,X[10],15,t[55]) b=z(i,b,c,d,a,X[ 1],21,t[56]) a=z(i,a,b,c,d,X[ 8], 6,t[57]) d=z(i,d,a,b,c,X[15],10,t[58]) c=z(i,c,d,a,b,X[ 6],15,t[59]) b=z(i,b,c,d,a,X[13],21,t[60]) a=z(i,a,b,c,d,X[ 4], 6,t[61]) d=z(i,d,a,b,c,X[11],10,t[62]) c=z(i,c,d,a,b,X[ 2],15,t[63]) b=z(i,b,c,d,a,X[ 9],21,t[64]) return A+a,B+b,C+c,D+d end -- convert little-endian 32-bit int to a 4-char string local function leIstr(i) local f=function (s) return string.char(bit.band(bit.rshift(i,s),255)) end return f(0)..f(8)..f(16)..f(24) end -- convert raw string to big-endian int local function beInt(s) local v=0 for i=1,string.len(s) do v=v*256+string.byte(s,i) end return v end -- convert raw string to little-endian int local function leInt(s) local v=0 for i=string.len(s),1,-1 do v=v*256+string.byte(s,i) end return v end -- cut up a string in little-endian ints of given size local function leStrCuts(s,...) local arg = table.pack(...) -- Lua 5.2 fix local o,r=1,{} for i=1,#arg do table.insert(r,leInt(string.sub(s,o,o+arg[i]-1))) o=o+arg[i] end return r end function md5.calc(len, tbl) local msgLen=len local padLen=56- msgLen % 64 if msgLen % 64 > 56 then padLen=padLen+64 end if padLen==0 then padLen=64 end -- TODO filler = {} len=len+1 filler[len] = 128 for i=1, padLen-1 do len=len+1 filler[len] = 0 end -- s=s..string.char(128)..string.rep(string.char(0),padLen-1) len=len+1 filler[len] = 0 --s=s..leIstr(8*msgLen)..leIstr(0) assert(len % 64 ==0) local t=md5.consts local a,b,c,d=t[65],t[66],t[67],t[68] for i=1,len,64 do local X=leStrCuts(string.sub(s,i,i+63),4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4) assert(#X==16) X[0]=table.remove(X,1) -- zero based! a,b,c,d=md5.transform(a,b,c,d,X) end local swap=function (w) return beInt(leIstr(w)) end return string.format("%08x%08x%08x%08x",swap(a),swap(b),swap(c),swap(d)) end
Began life as a copy of #374
test run test run with input download show line numbers
Travelled to 12 computer(s): aoiabmzegqzx, bhatertpkbcr, cbybwowwnfue, gwrvuhgaqvyk, ishqpsrjomds, lpdgvwnxivlt, mqqgnosmbjvj, pyentgdyhuwx, pzhvpgtvlbxg, tslmcundralx, tvejysmllsmz, vouqrxazstgt
No comments. add comment
Snippet ID: | #377 |
Snippet name: | MD5 Algorithm (md5.calc) with table input (TODO) |
Eternal ID of this version: | #377/1 |
Text MD5: | 87e126576a56f04acb5512c96805d7a9 |
Author: | stefan |
Category: | |
Type: | Lua code |
Public (visible to everyone): | Yes |
Archived (hidden from active list): | No |
Created/modified: | 2015-02-01 21:34:54 |
Source code size: | 5476 bytes / 166 lines |
Pitched / IR pitched: | No / Yes |
Views / Downloads: | 743 / 170 |
Referenced in: | [show references] |