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

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

　　代码(测试通过)：
　　Private Const BITS_TO_A_BYTE = 8
　　Private Const BYTES_TO_A_WORD = 4
　　Private Const BITS_TO_A_WORD = 32
　　Private m_lOnBits(30)
　　Private m_l2Power(30)
　　Private Function LShift(lValue, iShiftBits)
　　If iShiftBits = 0 Then
　　LShift = lValue
　　Exit Function
　　ElseIf iShiftBits = 31 Then
　　If lValue And 1 Then
　　LShift = &H80000000
　　Else
　　LShift = 0
　　End If
　　Exit Function
　　ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
　　Err.Raise 6
　　End If
　　If (lValue And m_l2Power(31 - iShiftBits)) Then
　　LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
　　Else
　　LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
　　End If
　　End Function
　　Private Function RShift(lValue, iShiftBits)
　　If iShiftBits = 0 Then
　　RShift = lValue
　　Exit Function
　　ElseIf iShiftBits = 31 Then
　　If lValue And &H80000000 Then
　　RShift = 1
　　Else
　　RShift = 0
　　End If
　　Exit Function
　　ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
　　Err.Raise 6
　　End If

视频学习

我考网版权与免责声明

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

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