Perl

Example: Crypt2.EncryptEncoded method

Demonstrates how to call the EncryptEncoded method. Perl

use chilkat();

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

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

# Encrypt the bytes 0x00, 0x01, 0x02, ... 0x0A
# and return the encrypted bytes using the lowercase hex encoding.
$crypt->put_EncodingMode("hex_lower");
$encrypted = $crypt->encryptEncoded("000102030405060708090a");
print $encrypted . "\r\n";

# Output:
# 9da2ae71a5378487114b430e5e230378

$decrypted = $crypt->decryptEncoded($encrypted);
print $decrypted . "\r\n";

# Output:
# 000102030405060708090a