Perl

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