Xbase++

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. Xbase++

LOCAL oSb
LOCAL oCrypt
LOCAL cIvHex
LOCAL cKeyHex
LOCAL cEncStr
LOCAL cDecStr

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

oSb := CreateObject("Chilkat.StringBuilder")
oSb:Append("The 5 men of 223rd St")
? oSb:GetAsString()

//  Encode the utf-8 byte representation of the string in the 
//  UN/EDIFACT syntax level A character set.
oSb:Encode("eda", "utf-8")
? oSb:GetAsString()

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

//  Decode back to the original string.
oSb:Decode("eda", "utf-8")
? oSb:GetAsString()
? "----"

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

cIvHex := "000102030405060708090A0B0C0D0E0F"
oCrypt:SetEncodedIV(cIvHex, "hex")
cKeyHex := "000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F"
oCrypt:SetEncodedKey(cKeyHex, "hex")

cEncStr := oCrypt:EncryptStringENC("The quick brown fox jumps over the lazy dog.")
//  The output is UN/EDIFACT syntax level A 
? cEncStr

//  Now decrypt:
cDecStr := oCrypt:DecryptStringENC(cEncStr)
? cDecStr

oSb:destroy()
oCrypt:destroy()