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

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

　　RShift = (lValue And &H7FFFFFFE) / m_l2Power(iShiftBits)
　　If (lValue And &H80000000) Then
　　RShift = (RShift Or (&H40000000 / m_l2Power(iShiftBits - 1)))
　　End If
　　End Function
　　Private Function RotateLeft(lValue, iShiftBits)
　　RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))
　　End Function
　　Private Function AddUnsigned(lX, lY)
　　Dim lX4
　　Dim lY4
　　Dim lX8
　　Dim lY8
　　Dim lResult
　　lX8 = lX And &H80000000
　　lY8 = lY And &H80000000
　　lX4 = lX And &H40000000
　　lY4 = lY And &H40000000
　　lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)
　　If lX4 And lY4 Then
　　lResult = lResult Xor &H80000000 Xor lX8 Xor lY8
　　ElseIf lX4 Or lY4 Then
　　If lResult And &H40000000 Then
　　lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8
　　Else
　　lResult = lResult Xor &H40000000 Xor lX8 Xor lY8
　　End If
　　Else
　　lResult = lResult Xor lX8 Xor lY8
　　End If
　　AddUnsigned = lResult
　　End Function
　　Private Function md5_F(x, y, z)
　　md5_F = (x And y) Or ((Not x) And z)
　　End Function

视频学习

我考网版权与免责声明

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

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