(AutoIt) UN/EDIFACT Syntax Level A Encoding/Decoding

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

; Note: Requires Chilkat v9.5.0.65 or greater.

$oSb = ObjCreate("Chilkat.StringBuilder")
$oSb.Append("The 5 men of 223rd St")
ConsoleWrite($oSb.GetAsString() & @CRLF)

; Encode the utf-8 byte representation of the string in the 
; UN/EDIFACT syntax level A character set.
$oSb.Encode("eda","utf-8")
ConsoleWrite($oSb.GetAsString() & @CRLF)

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

; Decode back to the original string.
$oSb.Decode("eda","utf-8")
ConsoleWrite($oSb.GetAsString() & @CRLF)
ConsoleWrite("----" & @CRLF)

; 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
$oCrypt = ObjCreate("Chilkat.Crypt2")
$oCrypt.CryptAlgorithm = "aes"
$oCrypt.CipherMode = "cbc"
$oCrypt.KeyLength = 256
$oCrypt.EncodingMode = "eda"

Local $sIvHex = "000102030405060708090A0B0C0D0E0F"
$oCrypt.SetEncodedIV $sIvHex,"hex"
Local $sKeyHex = "000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F"
$oCrypt.SetEncodedKey $sKeyHex,"hex"

Local $sEncStr = $oCrypt.EncryptStringENC("The quick brown fox jumps over the lazy dog.")
; The output is UN/EDIFACT syntax level A 
ConsoleWrite($sEncStr & @CRLF)

; Now decrypt:
Local $sDecStr = $oCrypt.DecryptStringENC($sEncStr)
ConsoleWrite($sDecStr & @CRLF)