(Visual FoxPro) Quoted-Printable Encode/Decode a String

Visual FoxPro example to quoted-printable encode and decode a string.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loCrypt
LOCAL s
LOCAL lcQp
LOCAL lcDecoded
LOCAL lcQp
LOCAL lcDecoded

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = 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."

loCrypt.CryptAlgorithm = "none"
loCrypt.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:
loCrypt.Charset = "iso-8859-1"
lcQp = loCrypt.EncryptStringENC(s)
? "iso-8859-1:"
? lcQp
lcDecoded = loCrypt.DecryptStringENC(lcQp)
? lcDecoded

* Now do the same using utf-8. Notice how each
* Icelandic char is represented by 2 bytes in utf-8:
loCrypt.Charset = "utf-8"
lcQp = loCrypt.EncryptStringENC(s)
? "utf-8:"
? lcQp
lcDecoded = loCrypt.DecryptStringENC(lcQp)
? lcDecoded

RELEASE loCrypt