(Perl) 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 Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$crypt = chilkat::CkCrypt2->new();

# 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";