AES String Encryption

AES string encryption in Perl.

Download Chilkat Perl Module

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