MD5加密的javascript实现例子

/*?MD5?Message-Digest?Algorithm?-?JavaScript
'?MODIFICATION?HISTORY:
'?1.0?16-Feb-2001?-?Phil?Fresle?(sales@frez.co.uk)?-?Initial?Version?(VB/ASP?code)
'?1.0?21-Feb-2001?-?Enrico?Mosanghini?(erik504@yahoo.com)?-?JavaScript?porting
*/
function?MD5(sMessage)?{
function?RotateLeft(lValue,?iShiftBits)?{?return?(lValue<>>(32-iShiftBits));?}
function?AddUnsigned(lX,lY)?{
var?lX4,lY4,lX8,lY8,lResult;
lX8?=?(lX?&?0x80000000);
lY8?=?(lY?&?0x80000000);
lX4?=?(lX?&?0x40000000);
lY4?=?(lY?&?0x40000000);
lResult?=?(lX?&?0x3FFFFFFF)+(lY?&?0x3FFFFFFF);
if?(lX4?&?lY4)?return?(lResult?^?0x80000000?^?lX8?^?lY8);
if?(lX4?|?lY4)?{
if?(lResult?&?0x40000000)?return?(lResult?^?0xC0000000?^?lX8?^?lY8);
else?return?(lResult?^?0x40000000?^?lX8?^?lY8);
}?else?return?(lResult?^?lX8?^?lY8);
}
function?F(x,y,z)?{?return?(x?&?y)?|?((~x)?&?z);?}
function?G(x,y,z)?{?return?(x?&?z)?|?(y?&?(~z));?}
function?H(x,y,z)?{?return?(x?^?y?^?z);?}
function?I(x,y,z)?{?return?(y?^?(x?|?(~z)));?}
function?FF(a,b,c,d,x,s,ac)?{
a?=?AddUnsigned(a,?AddUnsigned(AddUnsigned(F(b,?c,?d),?x),?ac));
return?AddUnsigned(RotateLeft(a,?s),?b);
}
function?GG(a,b,c,d,x,s,ac)?{
a?=?AddUnsigned(a,?AddUnsigned(AddUnsigned(G(b,?c,?d),?x),?ac));
return?AddUnsigned(RotateLeft(a,?s),?b);
}
function?HH(a,b,c,d,x,s,ac)?{
a?=?AddUnsigned(a,?AddUnsigned(AddUnsigned(H(b,?c,?d),?x),?ac));
return?AddUnsigned(RotateLeft(a,?s),?b);
}
function?II(a,b,c,d,x,s,ac)?{
a?=?AddUnsigned(a,?AddUnsigned(AddUnsigned(I(b,?c,?d),?x),?ac));
return?AddUnsigned(RotateLeft(a,?s),?b);
}
function?ConvertToWordArray(sMessage)?{
var?lWordCount;
var?lMessageLength?=?sMessage.length;
var?lNumberOfWords_temp1=lMessageLength?+?8;
var?lNumberOfWords_temp2=(lNumberOfWords_temp1-(lNumberOfWords_temp1?%?64))/64;
var?lNumberOfWords?=?(lNumberOfWords_temp2+1)*16;
var?lWordArray=Array(lNumberOfWords-1);
var?lBytePosition?=?0;
var?lByteCount?=?0;
while?(?lByteCount?lWordCount?=?(lByteCount-(lByteCount?%?4))/4;
lBytePosition?=?(lByteCount?%?4)*8;
lWordArray[lWordCount]?=?(lWordArray[lWordCount]?|?(sMessage.charCodeAt(lByteCount)<lByteCount++;
}
lWordCount?=?(lByteCount-(lByteCount?%?4))/4;
lBytePosition?=?(lByteCount?%?4)*8;
lWordArray[lWordCount]?=?lWordArray[lWordCount]?|?(0x80<lWordArray[lNumberOfWords-2]?=?lMessageLength<<3;
lWordArray[lNumberOfWords-1]?=?lMessageLength>>>29;
return?lWordArray;
}
function?WordToHex(lValue)?{
var?WordToHexValue="",WordToHexValue_temp="",lByte,lCount;
for?(lCount?=?0;lCount<=3;lCount++)?{
lByte?=?(lValue>>>(lCount*8))?&?255;
WordToHexValue_temp?=?"0"?+?lByte.toString(16);
WordToHexValue?=?WordToHexValue?+?WordToHexValue_temp.substr(WordToHexValue_temp.length-2,2);
}
return?WordToHexValue;
}
var?x=Array();
var?k,AA,BB,CC,DD,a,b,c,d
var?S11=7,?S12=12,?S13=17,?S14=22;
var?S21=5,?S22=9?,?S23=14,?S24=20;
var?S31=4,?S32=11,?S33=16,?S34=23;
var?S41=6,?S42=10,?S43=15,?S44=21;
//?Steps?1?and?2.?Append?padding?bits?and?length?and?convert?to?words
x?=?ConvertToWordArray(sMessage);
//?Step?3.?Initialise
a?=?0x67452301;?b?=?0xEFCDAB89;?c?=?0x98BADCFE;?d?=?0x10325476;
//?Step?4.?Process?the?message?in?16-word?blocks
for?(k=0;kAA=a;?BB=b;?CC=c;?DD=d;
a=FF(a,b,c,d,x[k+0],?S11,0xD76AA478);
d=FF(d,a,b,c,x[k+1],?S12,0xE8C7B756);
c=FF(c,d,a,b,x[k+2],?S13,0x242070DB);
b=FF(b,c,d,a,x[k+3],?S14,0xC1BDCEEE);
a=FF(a,b,c,d,x[k+4],?S11,0xF57C0FAF);
d=FF(d,a,b,c,x[k+5],?S12,0x4787C62A);
c=FF(c,d,a,b,x[k+6],?S13,0xA8304613);
b=FF(b,c,d,a,x[k+7],?S14,0xFD469501);
a=FF(a,b,c,d,x[k+8],?S11,0x698098D8);
d=FF(d,a,b,c,x[k+9],?S12,0x8B44F7AF);
c=FF(c,d,a,b,x[k+10],S13,0xFFFF5BB1);
b=FF(b,c,d,a,x[k+11],S14,0x895CD7BE);
a=FF(a,b,c,d,x[k+12],S11,0x6B901122);
d=FF(d,a,b,c,x[k+13],S12,0xFD987193);
c=FF(c,d,a,b,x[k+14],S13,0xA679438E);
b=FF(b,c,d,a,x[k+15],S14,0x49B40821);
a=GG(a,b,c,d,x[k+1],?S21,0xF61E2562);
d=GG(d,a,b,c,x[k+6],?S22,0xC040B340);
c=GG(c,d,a,b,x[k+11],S23,0x265E5A51);
b=GG(b,c,d,a,x[k+0],?S24,0xE9B6C7AA);
a=GG(a,b,c,d,x[k+5],?S21,0xD62F105D);
d=GG(d,a,b,c,x[k+10],S22,0x2441453);
c=GG(c,d,a,b,x[k+15],S23,0xD8A1E681);
b=GG(b,c,d,a,x[k+4],?S24,0xE7D3FBC8);
a=GG(a,b,c,d,x[k+9],?S21,0x21E1CDE6);
d=GG(d,a,b,c,x[k+14],S22,0xC33707D6);
c=GG(c,d,a,b,x[k+3],?S23,0xF4D50D87);
b=GG(b,c,d,a,x[k+8],?S24,0x455A14ED);
a=GG(a,b,c,d,x[k+13],S21,0xA9E3E905);
d=GG(d,a,b,c,x[k+2],?S22,0xFCEFA3F8);
c=GG(c,d,a,b,x[k+7],?S23,0x676F02D9);
b=GG(b,c,d,a,x[k+12],S24,0x8D2A4C8A);
a=HH(a,b,c,d,x[k+5],?S31,0xFFFA3942);
d=HH(d,a,b,c,x[k+8],?S32,0x8771F681);
c=HH(c,d,a,b,x[k+11],S33,0x6D9D6122);
b=HH(b,c,d,a,x[k+14],S34,0xFDE5380C);
a=HH(a,b,c,d,x[k+1],?S31,0xA4BEEA44);
d=HH(d,a,b,c,x[k+4],?S32,0x4BDECFA9);
c=HH(c,d,a,b,x[k+7],?S33,0xF6BB4B60);
b=HH(b,c,d,a,x[k+10],S34,0xBEBFBC70);
a=HH(a,b,c,d,x[k+13],S31,0x289B7EC6);
d=HH(d,a,b,c,x[k+0],?S32,0xEAA127FA);
c=HH(c,d,a,b,x[k+3],?S33,0xD4EF3085);
b=HH(b,c,d,a,x[k+6],?S34,0x4881D05);
a=HH(a,b,c,d,x[k+9],?S31,0xD9D4D039);
d=HH(d,a,b,c,x[k+12],S32,0xE6DB99E5);
c=HH(c,d,a,b,x[k+15],S33,0x1FA27CF8);
b=HH(b,c,d,a,x[k+2],?S34,0xC4AC5665);
a=II(a,b,c,d,x[k+0],?S41,0xF4292244);
d=II(d,a,b,c,x[k+7],?S42,0x432AFF97);
c=II(c,d,a,b,x[k+14],S43,0xAB9423A7);
b=II(b,c,d,a,x[k+5],?S44,0xFC93A039);
a=II(a,b,c,d,x[k+12],S41,0x655B59C3);
d=II(d,a,b,c,x[k+3],?S42,0x8F0CCC92);
c=II(c,d,a,b,x[k+10],S43,0xFFEFF47D);
b=II(b,c,d,a,x[k+1],?S44,0x85845DD1);
a=II(a,b,c,d,x[k+8],?S41,0x6FA87E4F);
d=II(d,a,b,c,x[k+15],S42,0xFE2CE6E0);
c=II(c,d,a,b,x[k+6],?S43,0xA3014314);
b=II(b,c,d,a,x[k+13],S44,0x4E0811A1);
a=II(a,b,c,d,x[k+4],?S41,0xF7537E82);
d=II(d,a,b,c,x[k+11],S42,0xBD3AF235);
c=II(c,d,a,b,x[k+2],?S43,0x2AD7D2BB);
b=II(b,c,d,a,x[k+9],?S44,0xEB86D391);
a=AddUnsigned(a,AA);?b=AddUnsigned(b,BB);?c=AddUnsigned(c,CC);?d=AddUnsigned(d,DD);
}
//?Step?5.?Output?the?128?bit?digest
var?temp=?WordToHex(a)+WordToHex(b)+WordToHex(c)+WordToHex(d);
return?temp.toLowerCase();
}?