; 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) Console.WriteLine(a) a = AddUnsigned(a, AA) b = AddUnsigned(b, BB) c = AddUnsigned(c, CC) d = AddUnsigned(d, DD) Next
If stype = 32 Then Encrypt = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d)) Else Encrypt = LCase(WordToHex(b) & WordToHex(c)) End If End Function
End Class
End Namespace
上一页 [1] [2] [3] [4] [5] [6] [VB.NET程序]VB的ShowInTaskbar功能分析以及用VC的实现 [Delphi程序]TFontNameComboBox及TFontSizeComboBox的实现 [Delphi程序]TManagedDataSet和DataSetPool的实现 [Delphi程序]MSN / QQ 中的动画表情 在Delphi中RichEdit的实现… [Web开发]利用JS获取IE客户端IP及MAC的实现 [Web开发]ASP.Net ViewState的实现 [Web开发]vb.net_asp.net跨栏表头_滚动表体的DataGrid的实现 [Web开发]无限分类算法 js 的实现 [JAVA开发]关于UDDI的实现 [SyBase]InnoDB 中文参考手册 --- 10 multiversioning 的实…
|