MD5 Hash a String

Download Chilkat Crypt ActiveX

Visual Basic example to Digest-MD5 hash an XML document.

Dim crypt As New ChilkatCrypt2

'  Any string argument automatically begins the 30-day trial.
Dim success As Long
success = crypt.UnlockComponent("30-day trial")
If (success <> 1) Then
    MsgBox "Crypt component unlock failed"
    Exit Sub
End If

Dim xmlDoc As String
xmlDoc = "<test><a>123</a><b>456</b><c>789</c></test>"

'  This example was created in response to a request to
'  do this:
'  XML-->byte[]-->MD5(byte[])-->Base64(string)

'  The output will be Base64, so set the EncodingMode:
crypt.EncodingMode = "base64"

'  It is desired to hash bytes.  Depending on the programming
'  language, strings may be Unicode (2 bytes/char).  We don't
'  want to hash Unicode.  By setting the Charset property,
'  we're telling the encryption component to first convert
'  a string to the multibyte charset indicated.
crypt.Charset = "windows-1252"

'  Set the hash algorithm:
'  Choices are: md5, sha1, sha256, sha384, sha512, md2, haval
crypt.HashAlgorithm = "md5"

Dim hashStr As String
'  Hash the string:
'  Internally, this converts the string to bytes, hashes the bytes,
'  and converts the hash bytes to a Base64 encoded string:

'  Note: Any method in Chilkat Crypt that ends with "ENC" returns the
'  output bytes (i.e. hashed or encrypted) as an encoded string
'  according to the EncodingMode property, which can be "base64",
'  "hex", "url", "quoted-printable", or "html" (for HTML entities).
hashStr = crypt.HashStringENC(xmlDoc)

Text1.Text = Text1.Text & hashStr & vbCrLf
Text1.Refresh