AES String Encryption

AES string encryption in Perl.

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

Chilkat Module for Perl 5.8.* (x64)

Chilkat Module for Perl 5.10.* (x64)

use chilkat;

$crypt = new chilkat::CkCrypt2();

$success = $crypt->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print "Crypt component unlock failed" . "\n";
    exit;
}

$password = "secretPassPhrase";

$crypt->put_CryptAlgorithm("aes");
$crypt->put_CipherMode("cbc");
$crypt->put_KeyLength(128);

#  Generate a binary secret key from a password string
#  of any length.  For 128-bit encryption, GenEncodedSecretKey
#  generates the MD5 hash of the password and returns it
#  in the encoded form requested.  The 2nd param can be
#  "hex", "base64", "url", "quoted-printable", etc.
$hexKey = $crypt->genEncodedSecretKey($password,"hex");
$crypt->SetEncodedKey($hexKey,"hex");

$crypt->put_EncodingMode("base64");
$text = "The quick brown fox jumped over the lazy dog.";

#  Encrypt a string and return the binary encrypted data
#  in a base-64 encoded string.
$encText = $crypt->encryptStringENC($text);

print $encText . "\r\n";

#  Decrypt and show the original string:
$decryptedText = $crypt->decryptStringENC($encText);

print $decryptedText . "\r\n";