MD5_AddString

Adds a string of ascii characters to the digest.

VB6/VBA

Debug.Print "Testing MD5_AddString ..."
Dim nRet As Long
Dim strDigest As String
Dim hContext As Long
Dim i As Long
Dim sA1000 As String

' Set context handle
hContext = MD5_Init()
If hContext = 0 Then
    MsgBox "Failed to set context"
    Exit Sub
End If

' Create a string of 1000 'a's
sA1000 = String(1000, "a")

' Add 1000 times => one million repetitions of "a"
For i = 1 To 1000
    nRet = MD5_AddString(hContext, sA1000)
Next

' Set strDigest to be 32 chars - don't forget!!
strDigest = String(32, " ")
nRet = MD5_HexDigest(strDigest, hContext)
Debug.Print strDigest

Output

Testing MD5_AddString ...
7707d6ae4e027c70eea2a935c2296f21

VB.NET

Console.WriteLine("Testing MD5_AddString ...")
''Dim nRet As Integer
Dim strDigest As String
''Dim hContext As Integer
Dim i As Integer
Dim sA1000 As String
Dim fIsOK As Boolean
Dim oMd5 As Md5 = Md5.Instance()

fIsOK = oMd5.Init()
If Not fIsOK Then
    MsgBox("Failed to set context")
    Exit Sub
End If

' Create a string of 1000 'a's
sA1000 = New String("a"c, 1000)

' Add 1000 times => one million repetitions of "a"
For i = 1 To 1000
    oMd5.AddData(sA1000)
Next

''strDigest = String(32, " ")
strDigest = oMd5.HexDigest()
Console.WriteLine(strDigest)

[Contents]