ASP_md5_II a, b, c, d, x(k + 0), S41, &HF4292244
ASP_md5_II d, a, b, c, x(k + 7), S42, &H432AFF97
ASP_md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7
ASP_md5_II b, c, d, a, x(k + 5), S44, &HFC93A039
ASP_md5_II a, b, c, d, x(k + 12), S41, &H655B59C3
ASP_md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92
ASP_md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D
ASP_md5_II b, c, d, a, x(k + 1), S44, &H85845DD1
ASP_md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F
ASP_md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0
ASP_md5_II c, d, a, b, x(k + 6), S43, &HA3014314
ASP_md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1
ASP_md5_II a, b, c, d, x(k + 4), S41, &HF7537E82
ASP_md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235
ASP_md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB
ASP_md5_II b, c, d, a, x(k + 9), S44, &HEB86D391
a = ASP_AddUnsigned(a, AA)
b = ASP_AddUnsigned(b, BB)
c = ASP_AddUnsigned(c, CC)
d = ASP_AddUnsigned(d, DD)
Next
ASP_MD5 = LCase(ASP_WordToHex(a) & ASP_WordToHex(b) & ASP_WordToHex(c) & ASP_WordToHex(d))
End Function
'使用方法是 md5 ("字符串") 下面是使用示范
'Response.Write "ASP_MD5('a')的加密结果为[" & ASP_MD5 ("a") & "]<br>"
'Response.Write "ASP_MD5('b')的加密结果为[" & ASP_MD5 ("b") & "]"
%>
2.send.asp
