Perl

UN/EDIFACT Syntax Level A Encoding/Decoding

See more Encryption Examples

Demonstrates the new "eda" encoding that can be used throughout Chilkat starting in v9.5.0.65. Perl

use chilkat();

# Note: Requires Chilkat v9.5.0.65 or greater.

$sb = chilkat::CkStringBuilder->new();
$sb->Append("The 5 men of 223rd St");
print $sb->getAsString() . "\r\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() . "\r\n";

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

# Decode back to the original string.
$sb->Decode("eda","utf-8");
print $sb->getAsString() . "\r\n";
print "----" . "\r\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
$crypt = chilkat::CkCrypt2->new();
$crypt->put_CryptAlgorithm("aes");
$crypt->put_CipherMode("cbc");
$crypt->put_KeyLength(256);
$crypt->put_EncodingMode("eda");

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

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

# Now decrypt:
$decStr = $crypt->decryptStringENC($encStr);
print $decStr . "\r\n";