Perl

Example: Crypt2.EncryptEncoded method

Demonstrates how to call the EncryptEncoded method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

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

# Encrypt the bytes 0x00, 0x01, 0x02, ... 0x0A
# and return the encrypted bytes using the lowercase hex encoding.
$crypt->EncodingMode('hex_lower');
my $encrypted = $crypt->EncryptEncoded('000102030405060708090a');
print $encrypted, "\n";

# Output:
# 9da2ae71a5378487114b430e5e230378

my $decrypted = $crypt->DecryptEncoded($encrypted);
print $decrypted, "\n";

# Output:
# 000102030405060708090a