HMAC SHA-1 to Match RFC 2022 Test Vectors

Download Chilkat Crypt ActiveX

Demonstrates using Chilkat in Visual Basic to computer HMAC SHA-1 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 = "sha-1"

Dim mac As String

'  Set the HMAC key:
crypt.SetHmacKeyEncoded "0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b","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