HMAC SHA-1 to Match RFC 2022 Test Vectors

Demonstrates using Chilkat in VB.NET to computer HMAC SHA-1 message authentication codes to match the test vectors given by RFC 2202.

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim crypt As New Chilkat.Crypt2()

'  Any string argument automatically begins the 30-day trial.
Dim success As Boolean
success = crypt.UnlockComponent("Anything for 30-day trial.")
If (success <> true) Then
    TextBox1.Text = TextBox1.Text & crypt.LastErrorText & vbCrLf
    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")
TextBox1.Text = TextBox1.Text & mac & vbCrLf

crypt.SetHmacKeyEncoded("Jefe","ansi")
mac = crypt.HmacStringENC("what do ya want for nothing?")
TextBox1.Text = TextBox1.Text & mac & vbCrLf