VB MD5加密类模块.docVIP

VB MD5加密类模块 Option Explicit 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 RightNew(Tmp_String As String, Tmp_Sum As Integer) As String If Tmp_String = Then RightNew = Exit Function End If If Tmp_Sum = Len(Tmp_String) Then RightNew = Tmp_String Exit Function End If RightNew = Mid(Tmp_String, Len(Tmp_String) - Tmp_Sum, Tmp_Sum) End Function Private Function LeftNew(Tmp_String As String, Tmp_Sum As Integer) As String If Tmp_String = Then LeftNew = Exit Function End If If Tmp_Sum = Len(Tmp_String) Then LeftNew = Tmp_String Exit Function End If LeftNew = Mid(Tmp_String, 1, Tmp_Sum) End Function Private Function LShift(lvalues, iShiftBits) If iShiftBits = 0 Then LShift = lvalues Exit Function ElseIf iShiftBits = 31 Then If lvalues And 1 Then LShift = Else LShift = 0 End If Exit Function ElseIf iShiftBits 0 Or iShiftBits 31 Then Err.Raise 6 End If If (lvalues And m_l2Power(31 - iShiftBits)) Then LShift = ((lvalues And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or Else LShift = ((lvalues And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits)) End If End Function Private Function RShift(lvalues, iShiftBits) If iShiftBits = 0 Then RShift = lvalues Exit Function ElseIf iShiftBits = 31 Then If lvalues And Then RShift = 1 Else RShift = 0 End If Exit Function ElseIf iShiftBits 0 Or iShiftBits 31 Then Err.Raise 6 End If RShift = (lvalues And H7FFFFFFE) \ m_l2Power(iShiftBits) If (lvalues And Then RShift = (RShift Or (\ m_l2Power(iShiftBits - 1))) End