Perl Requires Chilkat v9.5.0.71+

Encrypt / Decrypt Secure Strings

See more Encryption Examples

Demonstrates how to use the EncryptSecureENC and DecryptSecureENC methods to encrypt/decrypt secure strings. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

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

my $crypt = Chilkat2::Crypt2->new;

$crypt->CryptAlgorithm('aes');
$crypt->CipherMode('cbc');
$crypt->KeyLength(128);
$crypt->SetEncodedKey('000102030405060708090A0B0C0D0E0F', 'hex');
$crypt->SetEncodedIV('000102030405060708090A0B0C0D0E0F', 'hex');
$crypt->EncodingMode('base64');

# Return the base64 encoded encrypted contents of secStr1.
my $encryptedStr = $crypt->EncryptSecureENC($secStr1);
print 'Encrypted string: ', $encryptedStr, "\n";

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

# Decrypt to secStr2:
my $secStr2 = Chilkat2::SecureString->new;
$crypt->DecryptSecureENC($encryptedStr, $secStr2);

# Access the contents of secStr2
print 'Decrypted string: ', $secStr2->Access(), "\n";

# Output:
# Decrypted string: Hello World!