PowerBuilder

Quoted-Printable Encode/Decode a String

See more Encryption Examples

_LANGUAGE_ example to quoted-printable encode and decode a string. PowerBuilder

integer li_rc
oleobject loo_Crypt
string s
string ls_Qp
string ls_Decoded
string ls_Qp
string ls_Decoded

//  This example requires the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

loo_Crypt = create oleobject
li_rc = loo_Crypt.ConnectToNewObject("Chilkat.Crypt2")
if li_rc < 0 then
    destroy loo_Crypt
    MessageBox("Error","Connecting to COM object failed")
    return
end if

//  Here's a string in Icelandic using non us-ascii chars:
s = "Ég get etið gler án þess að meiða mig."

loo_Crypt.CryptAlgorithm = "none"
loo_Crypt.EncodingMode = "quoted-printable"

//  Quoted-printable encode/decode the iso-8859-1
//  representation of the string.  Notice how each
//  Icelandic char is represented by 1 byte:
loo_Crypt.Charset = "iso-8859-1"
ls_Qp = loo_Crypt.EncryptStringENC(s)
Write-Debug "iso-8859-1:"
Write-Debug ls_Qp
ls_Decoded = loo_Crypt.DecryptStringENC(ls_Qp)
Write-Debug ls_Decoded

//  Now do the same using utf-8. Notice how each
//  Icelandic char is represented by 2 bytes in utf-8:
loo_Crypt.Charset = "utf-8"
ls_Qp = loo_Crypt.EncryptStringENC(s)
Write-Debug "utf-8:"
Write-Debug ls_Qp
ls_Decoded = loo_Crypt.DecryptStringENC(ls_Qp)
Write-Debug ls_Decoded


destroy loo_Crypt