HMAC MD5 to Match RFC 2022 Test Vectors

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

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$crypt = new chilkat::CkCrypt2();

#  Any string argument automatically begins the 30-day trial.
$success = $crypt->UnlockComponent("30-day trial");
if ($success != 1) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

#  The output will be Hex, so set the EncodingMode:
$crypt->put_EncodingMode("hex");

#  Set the hash algorithm:
#  Choices are: md5, sha-1, sha256, sha384, sha512, md2, haval
$crypt->put_HashAlgorithm("md5");

#  Set the HMAC key:
$crypt->SetHmacKeyEncoded("0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b","hex");
$mac = $crypt->hmacStringENC("Hi There");
print $mac . "\r\n";

$crypt->SetHmacKeyEncoded("Jefe","ansi");
$mac = $crypt->hmacStringENC("what do ya want for nothing?");
print $mac . "\r\n";