Perl

Workaround for the deprecated Crypt2.MacString method

Shows how to replace the deprecated MacString method. (Chilkat is moving away from the use of CkByteData.) Perl

use chilkat();

$success = 0;

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

$crypt->put_Charset("utf-8");

# Do HMAC using SHA-256.
$crypt->put_MacAlgorithm("hmac");
$crypt->put_HashAlgorithm("sha256");

$keyHex = "000102030405060708090A0B0C0D0E0F";
$success = $crypt->SetMacKeyEncoded($keyHex,"hex");

$inputStr = "This is a test.";

# ------------------------------------------------------------------------
# The MacString method is deprecated:

$outData = chilkat::CkByteData->new();

$success = $crypt->MacString($inputStr,$outData);

# ------------------------------------------------------------------------
# Workaround.
# (Chilkat is moving away from using CkByteData)

$crypt->put_EncodingMode("base64");
$mac_base64 = $crypt->macStringENC($inputStr);

print $mac_base64 . "\r\n";