Const S41 = 6
Const S42 = 10
Const S43 = 15
Const S44 = 21
x = ConvertToWordArray(sMessage)
a = H67452301
b = HEFCDAB89
c = H98BADCFE
d = H10325476
For k = 0 To UBound(x) Step 16
AA = a
BB = b
CC = c
DD = d
md5_FF a, b, c, d, x(k + 0), S11, HD76AA478
md5_FF d, a, b, c, x(k + 1), S12, HE8C7B756
md5_FF c, d, a, b, x(k + 2), S13, H242070DB
md5_FF b, c, d, a, x(k + 3), S14, HC1BDCEEE
md5_FF a, b, c, d, x(k + 4), S11, HF57C0FAF
md5_FF d, a, b, c, x(k + 5), S12, H4787C62A
md5_FF c, d, a, b, x(k + 6), S13, HA8304613
md5_FF b, c, d, a, x(k + 7), S14, HFD469501
md5_FF a, b, c, d, x(k + 8), S11, H698098D8
md5_FF d, a, b, c, x(k + 9), S12, H8B44F7AF
md5_FF c, d, a, b, x(k + 10), S13, HFFFF5BB1
md5_FF b, c, d, a, x(k + 11), S14, H895CD7BE
md5_FF a, b, c, d, x(k + 12), S11, H6B901122
md5_FF d, a, b, c, x(k + 13), S12, HFD987193
md5_FF c, d, a, b, x(k + 14), S13, HA679438E
md5_FF b, c, d, a, x(k + 15), S14, H49B40821
md5_GG a, b, c, d, x(k + 1), S21, HF61E2562
md5_GG d, a, b, c, x(k + 6), S22, HC040B340
md5_GG c, d, a, b, x(k + 11), S23, H265E5A51
md5_GG b, c, d, a, x(k + 0), S24, HE9B6C7AA
md5_GG a, b, c, d, x(k + 5), S21, HD62F105D
md5_GG d, a, b, c, x(k + 10), S22, H2441453
md5_GG c, d, a, b, x(k + 15), S23, HD8A1E681
md5_GG b, c, d, a, x(k + 4), S24, HE7D3FBC8
md5_GG a, b, c, d, x(k + 9), S21, H21E1CDE6
md5_GG d, a, b, c, x(k + 14), S22, HC33707D6
md5_GG c, d, a, b, x(k + 3), S23, HF4D50D87
md5_GG b, c, d, a, x(k + 8), S24, H455A14ED
md5_GG a, b, c, d, x(k + 13), S21, HA9E3E905
md5_GG d, a, b, c, x(k + 2), S22, HFCEFA3F8
md5_GG c, d, a, b, x(k + 7), S23, H676F02D9
md5_GG b, c, d, a, x(k + 12), S24, H8D2A4C8A
md5_HH a, b, c, d, x(k + 5), S31, HFFFA3942
md5_HH d, a, b, c, x(k + 8), S32, H8771F681
md5_HH c, d, a, b, x(k + 11), S33, H6D9D6122
md5_HH b, c, d, a, x(k + 14), S34, HFDE5380C
md5_HH a, b, c, d, x(k + 1), S31, HA4BEEA44
md5_HH d, a, b, c, x(k + 4), S32, H4BDECFA9
md5_HH c, d, a, b, x(k + 7), S33, HF6BB4B60
md5_HH b, c, d, a, x(k + 10), S34, HBEBFBC70
md5_HH a, b, c, d, x(k + 13), S31, H289B7EC6
md5_HH d, a, b, c, x(k + 0), S32, HEAA127FA
md5_HH c, d, a, b, x(k + 3), S33, HD4EF3085
md5_HH b, c, d, a, x(k + 6), S34, H4881D05
md5_HH a, b, c, d, x(k + 9), S31, HD9D4D039
md5_HH d, a, b, c, x(k + 12), S32, HE6DB99E5
md5_HH c, d, a, b, x(k + 15), S33, H1FA27CF8
md5_HH b, c, d, a, x(k + 2), S34, HC4AC5665
md5_II a, b, c, d, x(k + 0), S41, HF4292244
md5_II d, a, b, c, x(k + 7), S42, H432AFF97
md5_II c, d, a, b, x(k + 14), S43, HAB9423A7
md5_II b, c, d, a, x(k + 5), S44, HFC93A039
md5_II a, b, c, d, x(k + 12), S41, H655B59C3
md5_II d, a, b, c, x(k + 3), S42, H8F0CCC92
md5_II c, d, a, b, x(k + 10), S43, HFFEFF47D
md5_II b, c, d, a, x(k + 1), S44, H85845DD1
md5_II a, b, c, d, x(k + 8), S41, H6FA87E4F
md5_II d, a, b, c, x(k + 15), S42, HFE2CE6E0
md5_II c, d, a, b, x(k + 6), S43, HA3014314
md5_II b, c, d, a, x(k + 13), S44, H4E0811A1
md5_II a, b, c, d, x(k + 4), S41, HF7537E82
md5_II d, a, b, c, x(k + 11), S42, HBD3AF235
md5_II c, d, a, b, x(k + 2), S43, H2AD7D2BB
md5_II b, c, d, a, x(k + 9), S44, HEB86D391
a = AddUnsigned(a, AA)
b = AddUnsigned(b, BB)
c = AddUnsigned(c, CC)
d = AddUnsigned(d, DD)
Next
If stype = 32 Then
MD5 = LCase(WordToHex(a)WordToHex(b)WordToHex(c)WordToHex(d))
Else
MD5 = LCase(WordToHex(b)WordToHex(c))
End If
End Function
'下面是测试代码
Sub test()
MsgBox MD5("a", 16) '16位加密
MsgBox MD5("a", 32) '32位加密
End Sub
求VB.NET的MD5算法调用下面是完整的类,可以设置任意密码
推荐阅读
- 台式电脑硬盘怎么换接口,台式电脑硬盘怎么换接口教程
- 慕课网android开发工程师网盘,慕课网go开发工程师资源
- b站电脑直播怎么看直播间,b站电脑端怎么看直播
- apk执行linux命令 apk执行shell命令
- Linux命令版本是什么,linux命令大全chm版
- 收信服务器,收信服务器地址该如何填写
- sap在建工程流程,sap 在建工程操作手册
- mysql怎么表示时长 mysql表示时间的数据类型
- 库尔勒微信小程序开发,自己如何开发微信小程序