B4X

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

'  Note: Requires Chilkat v9.5.0.65 or greater.

Dim sb As ChilkatStringBuilder
sb.Initialize
sb.Append("The 5 men of 223rd St")
Log(sb.GetAsString)

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

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


'  Decode back to the original string.
sb.Decode("eda", "utf-8")
Log(sb.GetAsString)
Log("----")


'  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 ChilkatCrypt2
crypt.Initialize("crypt")
crypt.CryptAlgorithm = "aes"
crypt.CipherMode = "cbc"
crypt.KeyLength = 256
crypt.EncodingMode = "eda"

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

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

'  Now decrypt:
Dim decStr As String = crypt.DecryptStringENC(encStr)
Log(decStr)