PowerBuilder

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

integer li_rc
oleobject loo_Sb
oleobject loo_Crypt
string ls_IvHex
string ls_KeyHex
string ls_EncStr
string ls_DecStr

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

loo_Sb = create oleobject
li_rc = loo_Sb.ConnectToNewObject("Chilkat.StringBuilder")
if li_rc < 0 then
    destroy loo_Sb
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Sb.Append("The 5 men of 223rd St")
Write-Debug loo_Sb.GetAsString()

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

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

// Decode back to the original string.
loo_Sb.Decode("eda","utf-8")
Write-Debug loo_Sb.GetAsString()
Write-Debug "----"

// 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
loo_Crypt = create oleobject
li_rc = loo_Crypt.ConnectToNewObject("Chilkat.Crypt2")

loo_Crypt.CryptAlgorithm = "aes"
loo_Crypt.CipherMode = "cbc"
loo_Crypt.KeyLength = 256
loo_Crypt.EncodingMode = "eda"

ls_IvHex = "000102030405060708090A0B0C0D0E0F"
loo_Crypt.SetEncodedIV(ls_IvHex,"hex")
ls_KeyHex = "000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F"
loo_Crypt.SetEncodedKey(ls_KeyHex,"hex")

ls_EncStr = loo_Crypt.EncryptStringENC("The quick brown fox jumps over the lazy dog.")
// The output is UN/EDIFACT syntax level A 
Write-Debug ls_EncStr

// Now decrypt:
ls_DecStr = loo_Crypt.DecryptStringENC(ls_EncStr)
Write-Debug ls_DecStr


destroy loo_Sb
destroy loo_Crypt