(Perl) Example: Crypt2.DecryptStringENC method

Demonstrates how to call the DecryptStringENC method.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

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

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

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

# Return the base64 encoded encrypted bytes
$encodedEncrypted = $crypt->encryptStringENC("Hello World!");
print "Encrypted: " . $encodedEncrypted . "\r\n";

# Output:
# Encrypted: qiq+IFhcjTkEIkZyf31V/g==

# Decrypt
$originalText = $crypt->decryptStringENC($encodedEncrypted);

print "Decrypted: " . $originalText . "\r\n";

# Output:
# Decrypted: Hello World!