(Visual FoxPro) 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

LOCAL loSb
LOCAL loCrypt
LOCAL lcIvHex
LOCAL lcKeyHex
LOCAL lcEncStr
LOCAL lcDecStr

* Note: Requires Chilkat v9.5.0.65 or greater.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSb = CreateObject('Chilkat.StringBuilder')
loSb.Append("The 5 men of 223rd St")
? loSb.GetAsString()

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

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

* Decode back to the original string.
loSb.Decode("eda","utf-8")
? loSb.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
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')
loCrypt.CryptAlgorithm = "aes"
loCrypt.CipherMode = "cbc"
loCrypt.KeyLength = 256
loCrypt.EncodingMode = "eda"

lcIvHex = "000102030405060708090A0B0C0D0E0F"
loCrypt.SetEncodedIV(lcIvHex,"hex")
lcKeyHex = "000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F"
loCrypt.SetEncodedKey(lcKeyHex,"hex")

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

* Now decrypt:
lcDecStr = loCrypt.DecryptStringENC(lcEncStr)
? lcDecStr

RELEASE loSb
RELEASE loCrypt