VB6.0中实现MD5加密算法代码

来源：计算机等级考试发布时间：2012-08-29 计算机等级考试视频评论

　　Dim x
　　Dim k
　　Dim AA
　　Dim BB
　　Dim CC
　　Dim DD
　　Dim a
　　Dim b
　　Dim c
　　Dim d
　　Const S11 = 7
　　Const S12 = 12
　　Const S13 = 17
　　Const S14 = 22
　　Const S21 = 5
　　Const S22 = 9
　　Const S23 = 14
　　Const S24 = 20
　　Const S31 = 4
　　Const S32 = 11
　　Const S33 = 16
　　Const S34 = 23
　　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

视频学习

我考网版权与免责声明

① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件，版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源：我考网"，违者本网将依法追究责任；

② 本网部分稿件来源于网络，任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益，应该及时向我考网书面反馈，并提供身份证明、权属证明及详细侵权情况证明，我考网在收到上述法律文件后，将会尽快移除被控侵权内容。