|
m_l2Power(26) = CLng(67108864)
m_l2Power(27) = CLng(134217728)
m_l2Power(28) = CLng(268435456)
m_l2Power(29) = CLng(536870912)
m_l2Power(30) = CLng(1073741824)
Dim x() As Long
Dim k As Integer
Dim AA As Integer
Dim BB As Integer
Dim CC As Integer
Dim DD As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Const S11 As Integer = 7
Const S12 As Integer = 12
Const S13 As Integer = 17
Const S14 As Integer = 22
Const S21 As Integer = 5
Const S22 As Integer = 9
Const S23 As Integer = 14
Const S24 As Integer = 20
Const S31 As Integer = 4
Const S32 As Integer = 11
Const S33 As Integer = 16
Const S34 As Integer = 23
Const S41 As Integer = 6
Const S42 As Integer = 10
Const S43 As Integer = 15
Const S44 As Integer = 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)
上一页 [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 的实…
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
