(VBScript) 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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Crypt2")
set crypt = CreateObject("Chilkat.Crypt2")

' 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"
crypt.MacAlgorithm = "hmac"

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

success = crypt.SetMacKeyEncoded("Jefe","ansi")
mac = crypt.MacStringENC("what do ya want for nothing?")
outFile.WriteLine(mac)

outFile.Close