var b64pad =
var chrsz = 8；
函數hex _ MD5(s){ return binl 2 hex(core _ MD5(str 2 binl(s)，s . length * chrsz))；}
函數b64 _ MD5(s){ return binl2b 64(core _ MD5(str 2 binl(s)，s . length * chrsz))；}
函數str _ MD5(s){ return binl 2 str(core _ MD5(str 2 binl(s)，s . length * chrsz))；}
函數hex_hmac_md5(key，data){ return binl 2 hex(core _ hmac _ MD5(key，data))；}
函數b64_hmac_md5(key，data){ return binl2b 64(core _ hmac _ MD5(key，data))；}
函數str_hmac_md5(key，data){ return binl 2 str(core _ hmac _ MD5(key，data))；}
函數md5_vm_test()
{
return hex _ MD5(" ABC ")= = " 900150983 CD 24 FB 0d 6963 f 7d 28 e 17f 72 "；
}
函數core_md5(x，len)
{
x[len & gt；& gt5]| = 0x 80 & lt；& lt((len)% 32)；
x[(((len+64)>；& gt& gt9)& lt；& lt4)+14]= len；
var a = 1732584193；
var b =-271733879；
var c =-1732584194；
var d = 271733878；
for(var I = 0；我& ltx .長度；i += 16)
{
var olda = a；
var oldb = b；
var oldc = c；
var oldd = d；
a = md5_ff(a，b，c，d，x[i+ 0]，7，-680876936)；
d = md5_ff(d，a，b，c，x[i+ 1]，12，-389564586)；
c = md5_ff(c，d，a，b，x[i+ 2]，17，606105819)；
b = md5_ff(b，c，d，a，x[i+ 3]，22，-1044525330)；
a = md5_ff(a，b，c，d，x[i+ 4]，7，-176418897)；
d = md5_ff(d，a，b，c，x[i+ 5]，12，1200080426)；
c = md5_ff(c，d，a，b，x[i+ 6]，17，-1473231341)；
b = md5_ff(b，c，d，a，x[i+ 7]，22，-45705983)；
a = md5_ff(a，b，c，d，x[i+ 8]，7，1770035416)；
d = md5_ff(d，a，b，c，x[i+ 9]，12，-1958414417)；
c = md5_ff(c，d，a，b，x[i+10]，17，-42063)；
b = md5_ff(b，c，d，a，x[i+11]，22，-1990404162)；
a = md5_ff(a，b，c，d，x[i+12]，7，1804603682)；
d = md5_ff(d，a，b，c，x[i+13]，12，-40341101)；
c = md5_ff(c，d，a，b，x[i+14]，17，-1502002290)；
b = md5_ff(b，c，d，a，x[i+15]，22，1236535329)；
a = md5_gg(a，b，c，d，x[i+ 1]，5，-165796510)；
d = md5_gg(d，a，b，c，x[i+ 6]，9，-1069501632)；
c = md5_gg(c，d，a，b，x[i+11]，14，643717713)；
b = md5_gg(b，c，d，a，x[i+ 0]，20，-373897302)；
a = md5_gg(a，b，c，d，x[i+ 5]，5，-701558691)；
d = md5_gg(d，a，b，c，x[i+10]，9，38016083)；
c = md5_gg(c，d，a，b，x[i+15]，14，-660478335)；
b = md5_gg(b，c，d，a，x[i+ 4]，20，-405537848)；
a = md5_gg(a，b，c，d，x[i+ 9]，5，568446438)；
d = md5_gg(d，a，b，c，x[i+14]，9，-1019803690)；
c = md5_gg(c，d，a，b，x[i+ 3]，14，-187363961)；
b = md5_gg(b，c，d，a，x[i+ 8]，20，1163531501)；
a = md5_gg(a，b，c，d，x[i+13]，5，-1444681467)；
d = md5_gg(d，a，b，c，x[i+ 2]，9，-51403784)；
c = md5_gg(c，d，a，b，x[i+ 7]，14，1735328473)；
b = md5_gg(b，c，d，a，x[i+12]，20，-1926607734)；
a = md5_hh(a，b，c，d，x[i+ 5]，4，-378558)；
d = md5_hh(d，a，b，c，x[i+ 8]，11，-2022574463)；
c = md5_hh(c，d，a，b，x[i+11]，16，1839030562)；
b = md5_hh(b，c，d，a，x[i+14]，23，-35309556)；
a = md5_hh(a，b，c，d，x[i+ 1]，4，-1530992060)；
d = md5_hh(d，a，b，c，x[i+ 4]，11，1272893353)；
c = md5_hh(c，d，a，b，x[i+ 7]，16，-155497632)；
b = md5_hh(b，c，d，a，x[i+10]，23，-1094730640)；
a = md5_hh(a，b，c，d，x[i+13]，4，681279174)；
d = md5_hh(d，a，b，c，x[i+ 0]，11，-358537222)；
c = md5_hh(c，d，a，b，x[i+ 3]，16，-722521979)；
b = md5_hh(b，c，d，a，x[i+ 6]，23，76029189)；
a = md5_hh(a，b，c，d，x[i+ 9]，4，-640364487)；
d = md5_hh(d，a，b，c，x[i+12]，11，-421815835)；
c = md5_hh(c，d，a，b，x[i+15]，16，530742520)；
b = md5_hh(b，c，d，a，x[i+ 2]，23，-995338651)；
a = md5_ii(a，b，c，d，x[i+ 0]，6，-198630844)；
d = md5_ii(d，a，b，c，x[i+ 7]，10，1126891415)；
c = md5_ii(c，d，a，b，x[i+14]，15，-1416354905)；
b = md5_ii(b，c，d，a，x[i+ 5]，21，-57434055)；
a = md5_ii(a，b，c，d，x[i+12]，6，1700485571)；
d = md5_ii(d，a，b，c，x[i+ 3]，10，-1894986606)；
c = md5_ii(c，d，a，b，x[i+10]，15，-1051523)；
b = md5_ii(b，c，d，a，x[i+ 1]，21，-2054922799)；
a = md5_ii(a，b，c，d，x[i+ 8]，6，1873313359)；
d = md5_ii(d，a，b，c，x[i+15]，10，-30611744)；
c = md5_ii(c，d，a，b，x[i+ 6]，15，-1560198380)；
b = md5_ii(b，c，d，a，x[i+13]，21，1309151649)；
a = md5_ii(a，b，c，d，x[i+ 4]，6，-145523070)；
d = md5_ii(d，a，b，c，x[i+11]，10，-1120210379)；
c = md5_ii(c，d，a，b，x[i+ 2]，15，718787259)；
b = md5_ii(b，c，d，a，x[i+ 9]，21，-343485551)；
a = safe_add(a，olda)；
b = safe_add(b，oldb)；
c = safe_add(c，oldc)；
d = safe_add(d，oldd)；
}
返回數組(a，b，c，d)；
}
函數md5_cmn(q，a，b，x，s，t)
{
返回safe _ add(bit _ rol(safe _ add(safe _ add(a，q)，safe_add(x，t))，s)，b)；
}
函數md5_ff(a，b，c，d，x，s，t)
{
return MD5 _ cmn((b & amp；c)|((~ b)& amp；d)、a、b、x、s、t)；
}
函數md5_gg(a，b，c，d，x，s，t)
{
return MD5 _ cmn((b & amp；d)|(c & amp；(~d))、a、b、x、s、t)；
}
函數md5_hh(a，b，c，d，x，s，t)
{
返回md5_cmn(b ^ c ^ d，a，b，x，s，t)；
}
函數md5_ii(a，b，c，d，x，s，t)
{
返回md5_cmn(c ^ (b | (~d))，a，b，x，s，t)；
}
函數core_hmac_md5(密鑰，數據)
{
var bkey = str 2 binl(key)；
if(bkey . length & gt；16) bkey = core_md5(bkey，key . length * chrsz)；
var ipad = Array(16)，opad = Array(16)；
for(var I = 0；我& lt16;i++)
{
ipad[I]= bkey[I]^ 0x 36363636；
opad[I]= bkey[I]^ 0x 5c 5 C5 c；
}
var hash = core _ MD5(ipad . concat(str 2 binl(data))，512+data . length * chrsz)；
return core _ MD5(opad . concat(hash)，512+128)；
}
函數safe_add(x，y)
{
var lsw =(x & amp；0x ffff)+(y & amp；0x ffff)；
var MSW =(x & gt；& gt16)+(y & gt；& gt16)+(lsw & gt；& gt16);
返回(msw & lt& lt16)|(lsw & amp；0x ffff)；
}
功能位_控制(數量，計數)
{
return(num & lt；& ltCNT)|(num & gt；& gt& gt(32個碳納米管)；
}
函數str2binl(str)
{
var bin = Array()；
var mask =(1 & lt；& ltchrsz)-1；
for(var I = 0；我& ltstr.length * chrszi += chrsz)
bin[I & gt；& gt5]| =(str . charcodeat(I/chrsz)& amp；面膜)& lt& lt(I % 32)；
回收箱；
}
函數binl2str(bin)
{
var str =
var mask =(1 & lt；& ltchrsz)-1；
for(var I = 0；我& ltbin.length * 32i += chrsz)
str+= string . from charcode((bin[I & gt；& gt5]>；& gt& gt(I % 32))& amp；面膜)；
返回字符串；
}
函數binl2hex(binarray)
{
var hex_tab = hexcase？" 0123456789 abcdef ":" 0123456789 abcdef "；
var str =
for(var I = 0；我& ltbinarray . length * 4；i++)
{
str+= hex _ tab . charat((binarray[I & gt；& gt2]>；& gt((I % 4)* 8+4))& amp；0xF) +
hex _ tab . charat((binarray[I & gt；& gt2]>；& gt((I % 4)* 8))& amp；0xF)；
}
返回字符串；
}
函數binl2b64(binarray)
{
var tab = " abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz 0123456789+/"；
var str =
for(var I = 0；我& ltbinarray . length * 4；i += 3)
{
var三元組=(((binarray[I & gt；& gt2]>；& gt8 *(I % 4))& amp；0x ff)& lt；& lt16)
|((binarray[I+1 & gt；& gt2]>；& gt8 *(I+1)% 4))& amp；0x ff)& lt；& lt8 )
|((binarray[I+2 & gt；& gt2]>；& gt8 *(I+2)% 4))& amp；0x ff)；
for(var j = 0；j & lt4;j++)
{
if(I * 8+j * 6 & gt；binarray . length * 32)str+= b 64 pad；
else str += tab.charAt((三聯體& gt& gt6 *(3-j))& amp；0x3F)；
}
}
返回字符串；
}