(Perl) Encrypt / Decrypt Secure Strings

Demonstrates how to use the EncryptSecureENC and DecryptSecureENC methods to encrypt/decrypt secure strings. These methods were added in Chilkat v9.5.0.71 (released January 2018).

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

use chilkat();

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

#  Load the secure string with some text.
$secStr1 = chilkat::CkSecureString->new();
$success = $secStr1->LoadFile("qa_data/txt/helloWorld.txt","utf-8");
if ($success != 1) {
    print "Failed to load helloWorld.txt" . "\r\n";
    exit;
}

$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 contents of secStr1.
$encryptedStr = $crypt->encryptSecureENC($secStr1);
print "Encrypted string: " . $encryptedStr . "\r\n";

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

#  Decrypt to secStr2:
$secStr2 = chilkat::CkSecureString->new();
$crypt->DecryptSecureENC($encryptedStr,$secStr2);

#  Access the contents of secStr2
print "Decrypted string: " . $secStr2->access() . "\r\n";

#  Output:
#  Decrypted string: Hello World!