Xbase++

Quoted-Printable Encode/Decode a String

See more Encryption Examples

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

LOCAL oCrypt
LOCAL s
LOCAL cQp
LOCAL cDecoded
LOCAL cQp
LOCAL cDecoded

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

oCrypt := CreateObject("Chilkat.Crypt2")

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

oCrypt:CryptAlgorithm := "none"
oCrypt: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:
oCrypt:Charset := "iso-8859-1"
cQp := oCrypt:EncryptStringENC(s)
? "iso-8859-1:"
? cQp
cDecoded := oCrypt:DecryptStringENC(cQp)
? cDecoded

//  Now do the same using utf-8. Notice how each
//  Icelandic char is represented by 2 bytes in utf-8:
oCrypt:Charset := "utf-8"
cQp := oCrypt:EncryptStringENC(s)
? "utf-8:"
? cQp
cDecoded := oCrypt:DecryptStringENC(cQp)
? cDecoded

oCrypt:destroy()