MD5算法vb.docVIP

下面提供一个经过调试成功的MD5算法 调用方法： Private Sub Command1_Click() Text2 = Md5_String_Calc(Text1) End Sub ------------------------------------- ════════════════ | | | MD5加密类模块 | ———————————————— | Www.SailSoft.Net | ════════════════ Option Explicit Private Const OFFSET_4 = 4294967296# Private Const MAXINT_4 = 2147483647 Private State(4) As Long Private ByteCounter As Long Private ByteBuffer(63) As Byte Private Const S11 = 7 Private Const S12 = 12 Private Const S13 = 17 Private Const S14 = 22 Private Const S21 = 5 Private Const S22 = 9 Private Const S23 = 14 Private Const S24 = 20 Private Const S31 = 4 Private Const S32 = 11 Private Const S33 = 16 Private Const S34 = 23 Private Const S41 = 6 Private Const S42 = 10 Private Const S43 = 15 Private Const S44 = 21 Property Get RegisterA() As String RegisterA = State(1) End Property Property Get RegisterB() As String RegisterB = State(2) End Property Property Get RegisterC() As String RegisterC = State(3) End Property Property Get RegisterD() As String RegisterD = State(4) End Property Public Function Md5_String_Calc(SourceString As String) As String MD5Init MD5Update LenB(StrConv(SourceString, vbFromUnicode)), StringToArray(SourceString) MD5Final Md5_String_Calc = GetValues End Function Public Function Md5_File_Calc(InFile As String) As String On Error GoTo errorhandler GoSub begin errorhandler: Md5_File_Calc = Exit Function begin: Dim FileO As Integer FileO = FreeFile Call FileLen(InFile) Open InFile For Binary Access Read As #FileO MD5Init Do While Not EOF(FileO) Get #FileO, , ByteBuffer If Loc(FileO) LOF(FileO) Then ByteCounter = ByteCounter + 64 MD5Transform ByteBuffer End If L