Perl

Example: Crypt2.DecryptStringENC method

Demonstrates how to call the DecryptStringENC method. 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.

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 bytes
my $encodedEncrypted = $crypt->EncryptStringENC('Hello World!');
print 'Encrypted: ', $encodedEncrypted, "\n";

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

# Decrypt
my $originalText = $crypt->DecryptStringENC($encodedEncrypted);

print 'Decrypted: ', $originalText, "\n";

# Output:
# Decrypted: Hello World!