Perl Requires Chilkat v11.0.0+

Workaround for the deprecated EncryptBytes and DecryptBytes methods

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

use chilkat();

$success = 0;

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

$crypt->put_CryptAlgorithm("aes");
$crypt->put_CipherMode("cbc");
$crypt->put_KeyLength(128);
$crypt->put_PaddingScheme(0);
$crypt->SetEncodedKey("000102030405060708090A0B0C0D0E0F","hex");
$crypt->SetEncodedIV("000102030405060708090A0B0C0D0E0F","hex");
$crypt->put_EncodingMode("base64");

$success = 0;

#  ------------------------------------------------------------------------
#  The EncryptBytes and DecryptBytes methods are deprecated and will eventually be removed.

$unencryptedBytes = chilkat::CkByteData->new();
$unencryptedBytes->appendEncoded("AABBCCDDEEFF01020304","hex");

$encryptedBytes = chilkat::CkByteData->new();
$decryptedBytes = chilkat::CkByteData->new();

$success = $crypt->EncryptBytes($unencryptedBytes,$encryptedBytes);
$success = $crypt->DecryptBytes($encryptedBytes,$decryptedBytes);

#  ------------------------------------------------------------------------
#  Replace the above CkByteData usage with the following code:
#  (Chilkat is moving away from using CkByteData)

$bd = chilkat::CkBinData->new();
$bd->AppendEncoded("AABBCCDDEEFF01020304","hex");

#  in-place encrypt
$crypt->EncryptBd($bd);
print "Encrypted: " . $bd->getEncoded("hex") . "\r\n";

#  in-place decrypt
$crypt->DecryptBd($bd);
print "Decrypted: " . $bd->getEncoded("hex") . "\r\n";