Visual FoxPro

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. Visual FoxPro

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

* Note: Requires Chilkat v9.5.0.65 or greater.

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
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