HMAC MD5 to Match RFC 2022 Test Vectors

Demonstrates using Chilkat in VBScript to computer HMAC MD5 message authentication codes to match the test vectors given by RFC 2202.

Download Chilkat Crypt ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set crypt = CreateObject("Chilkat.Crypt2")

'  Any string argument automatically begins the 30-day trial.
success = crypt.UnlockComponent("30-day trial")
If (success <> 1) Then
    outFile.WriteLine(crypt.LastErrorText)
    WScript.Quit
End If

'  The output will be Hex, so set the EncodingMode:
crypt.EncodingMode = "hex"

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

'  Set the HMAC key:
crypt.SetHmacKeyEncoded "0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b","hex"
mac = crypt.HmacStringENC("Hi There")
outFile.WriteLine(mac)

crypt.SetHmacKeyEncoded "Jefe","ansi"
mac = crypt.HmacStringENC("what do ya want for nothing?")
outFile.WriteLine(mac)
outFile.Close