(Perl) AES Encrypt String (utf-8 byte representation) and return Base64

Demonstrates how to AES encrypt the utf-8 byte representation of a string and return in base64 format.

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

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(256);
$crypt->put_Charset("utf-8");
$crypt->put_EncodingMode("base64");

$ivHex = "000102030405060708090A0B0C0D0E0F";
$crypt->SetEncodedIV($ivHex,"hex");
$keyHex = "000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F";
$crypt->SetEncodedKey($keyHex,"hex");

$encryptedStr = $crypt->encryptStringENC("This is the original string");
print $encryptedStr . "\r\n";

# Let's say we want to URL encode the base64 string..
$crypt->put_CryptAlgorithm("none");
$crypt->put_EncodingMode("url");
$urlEncoded = $crypt->encryptStringENC($encryptedStr);
print $urlEncoded . "\r\n";

# Sample output:

#  q3fmgEqjqa9o//ZS6aPuh4Wtbrrxx/WOIQSKeVnesZg=
#  q3fmgEqjqa9o%2F%2FZS6aPuh4Wtbrrxx%2FWOIQSKeVnesZg%3D

# -------------------------------------------------------------------
# Now let's do the reverse...
# 

# We start with a string that is the binary encrypted data, base64 encoded, and then URL encoded.
$encBase64Url = "q3fmgEqjqa9o%2F%2FZS6aPuh4Wtbrrxx%2FWOIQSKeVnesZg%3D";

# We'll use the same crypt object.  If using a new instance of the crypt object,
# make sure *all* settings are identical:  the algorithm, cipher mode, key length, charset, encoding mode, IV, and secret key.

# Decode from URL...
$crypt->put_CryptAlgorithm("none");
$crypt->put_EncodingMode("url");
$encBase64 = $crypt->decryptStringENC($urlEncoded);
print $encBase64 . "\r\n";

# Now decrypt...
$crypt->put_CryptAlgorithm("aes");
$crypt->put_EncodingMode("base64");
$originalStr = $crypt->decryptStringENC($encBase64);
print $originalStr . "\r\n";