HMAC SHA-1 to Match RFC 2022 Test Vectors

Demonstrates using Chilkat in Perl to computer HMAC SHA-1 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("Anything for 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("sha-1");

#  Set the HMAC key:
$crypt->SetHmacKeyEncoded("0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b","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";