【轉(zhuǎn)載 / 源碼】MD5加密的VB類模塊源碼

LucasLynn

標(biāo) 題:改了個(gè)MD5的VB類模塊源碼,可支持中文,也沒有網(wǎng)上流傳的那個(gè)超過(guò)16位就錯(cuò)了的毛病! (11千字)

發(fā)信人:simonyan

時(shí) 間:2002-11-4 14:31:00

詳細(xì)信息:

<BLOCKQUOTE>那個(gè)網(wǎng)上的MD5.BAS我研究了下,有嚴(yán)重問題.只好另找了個(gè)自已改了下.

在窗體中調(diào)用時(shí)如下:

Dim md5 As New class 'class 為你存的類�？烀�

Text1.Value=md5.MD5_string_calc(sourcestring)



類模塊源碼如下:









<DIV class=quote>Option Explicit



' Visual Basic MD5 Implementation

' Robert Hubley and David Midkiff (mdj2023@hotmail.com)

' modify by simonyan, Support chinese

' Standard MD5 implementation optimised for the Visual Basic environment.

' Conforms to all standards and can be used in digital signature or password

' protection related schemes.



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

    DigestFileToHexStr = ""

    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

    Loop

    ByteCounter = ByteCounter + (LOF(FileO) Mod 64)

    Close #FileO

    MD5Final

    Md5_File_Calc = GetValues

End Function

Private Function StringToArray(InString As String) As Byte()

    Dim I As Integer, bytBuffer() As Byte

    ReDim bytBuffer(LenB(StrConv(InString, vbFromUnicode)))

    bytBuffer = StrConv(InString, vbFromUnicode)

    StringToArray = bytBuffer

End Function

Public Function GetValues() As String

    GetValues = LongToString(State(1)) & LongToString(State(2)) & LongToString(State(3)) & LongToString(State(4))

End Function

Private Function LongToString(Num As Long) As String

        Dim A As Byte, B As Byte, C As Byte, D As Byte

        A = Num And &HFF&

        If A < 16 Then LongToString = "0" & Hex(A) Else LongToString = Hex(A)

        B = (Num And &HFF00&) \ 256

        If B < 16 Then LongToString = LongToString & "0" & Hex(B) Else LongToString = LongToString & Hex(B)

        C = (Num And &HFF0000) \ 65536

        If C < 16 Then LongToString = LongToString & "0" & Hex(C) Else LongToString = LongToString & Hex(C)

        If Num < 0 Then D = ((Num And &H7F000000) \ 16777216) Or &H80& Else D = (Num And &HFF000000) \ 16777216

        If D < 16 Then LongToString = LongToString & "0" & Hex(D) Else LongToString = LongToString & Hex(D)

End Function



Public Sub MD5Init()

    ByteCounter = 0

    State(1) = UnsignedToLong(1732584193#)

    State(2) = UnsignedToLong(4023233417#)

    State(3) = UnsignedToLong

真主

這個(gè)為什么不行?

LucasLynn

以下是引用真主在2005-9-10 13:41:00的發(fā)言：



這個(gè)為什么不行?

Private Sub Form_Current()

Dim c1 As New softdog 'class 為你存的類�？烀�

a.value = c1.Md5_String_Calc("c")

真主

如果A中為已通過(guò)MD5加密過(guò)的值,C中為錄入原始值,要比對(duì)C通過(guò)MD5加密的值是否與A一樣,請(qǐng)問代碼如何寫?

LucasLynn

以下是引用真主在2005-9-10 19:21:00的發(fā)言：



如果A中為已通過(guò)MD5加密過(guò)的值,C中為錄入原始值,要比對(duì)C通過(guò)MD5加密的值是否與A一樣,請(qǐng)問代碼如何寫?

這就是用MD5來(lái)存儲(chǔ)密碼的好處了，對(duì)于一個(gè)密碼，先轉(zhuǎn)換成MD5字符串，然后和數(shù)據(jù)庫(kù)中存儲(chǔ)的MD5字符串進(jìn)行比較，相等則密碼相同。

iluniu

非常感謝！

xiaxue_203

不太懂

okmijn

編譯不了啊出錯(cuò)

但是可以運(yùn)行

[此貼子已經(jīng)被作者于2006-3-7 22:13:37編輯過(guò)]

xlonger

編譯不了啊出錯(cuò)