Perl Requires Chilkat v9.5.0.65+

UN/EDIFACT Syntax Level A Encoding/Decoding

See more Encryption Examples

Demonstrates the "eda" encoding that can be used throughout Chilkat. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $sb = Chilkat2::StringBuilder->new;
$sb->Append('The 5 men of 223rd St');
print $sb->GetAsString(), "\n";

# Encode the utf-8 byte representation of the string in the
# UN/EDIFACT syntax level A character set.
$sb->Encode('eda', 'utf-8');
print $sb->GetAsString(), "\n";

# EDA Output should be: BTME027FCF6CFARFI94JT6.)F(14KJ2U

# Decode back to the original string.
$sb->Decode('eda', 'utf-8');
print $sb->GetAsString(), "\n";
print "----\n";

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

# The "eda" encoding can be used anywhere within Chilkat.
# For example, with the Crypt2 API
my $crypt = Chilkat2::Crypt2->new;
$crypt->CryptAlgorithm('aes');
$crypt->CipherMode('cbc');
$crypt->KeyLength(256);
$crypt->EncodingMode('eda');

my $ivHex = '000102030405060708090A0B0C0D0E0F';
$crypt->SetEncodedIV($ivHex, 'hex');
my $keyHex = '000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F';
$crypt->SetEncodedKey($keyHex, 'hex');

my $encStr = $crypt->EncryptStringENC('The quick brown fox jumps over the lazy dog.');
# The output is UN/EDIFACT syntax level A
print $encStr, "\n";

# Now decrypt:
my $decStr = $crypt->DecryptStringENC($encStr);
print $decStr, "\n";