(Xojo Plugin) 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 Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// Note: Requires Chilkat v9.5.0.65 or greater.

Dim sb As New Chilkat.StringBuilder
Dim success As Boolean
success = sb.Append("The 5 men of 223rd St")
System.DebugLog(sb.GetAsString())

// Encode the utf-8 byte representation of the string in the 
// UN/EDIFACT syntax level A character set.
success = sb.Encode("eda","utf-8")
System.DebugLog(sb.GetAsString())

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

// Decode back to the original string.
success = sb.Decode("eda","utf-8")
System.DebugLog(sb.GetAsString())
System.DebugLog("----")

// 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
Dim crypt As New Chilkat.Crypt2
crypt.CryptAlgorithm = "aes"
crypt.CipherMode = "cbc"
crypt.KeyLength = 256
crypt.EncodingMode = "eda"

Dim ivHex As String
ivHex = "000102030405060708090A0B0C0D0E0F"
crypt.SetEncodedIV ivHex,"hex"
Dim keyHex As String
keyHex = "000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F"
crypt.SetEncodedKey keyHex,"hex"

Dim encStr As String
encStr = crypt.EncryptStringENC("The quick brown fox jumps over the lazy dog.")
// The output is UN/EDIFACT syntax level A 
System.DebugLog(encStr)

// Now decrypt:
Dim decStr As String
decStr = crypt.DecryptStringENC(encStr)
System.DebugLog(decStr)