HMAC MD5 to Match RFC 2022 Test Vectors

Download Chilkat Crypt ActiveX

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

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

'  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"

Dim mac As String

'  Set the HMAC key:
crypt.SetHmacKeyEncoded "0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b","hex"
mac = crypt.HmacStringENC("Hi There")
Text1.Text = Text1.Text & mac & vbCrLf
Text1.Refresh

crypt.SetHmacKeyEncoded "Jefe","us-ascii"
mac = crypt.HmacStringENC("what do ya want for nothing?")
Text1.Text = Text1.Text & mac & vbCrLf
Text1.Refresh