Quoted-Printable Encode/Decode a String

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

Download Chilkat Crypt ActiveX

LOCAL loCrypt
LOCAL lnSuccess
LOCAL s
LOCAL lcQp
LOCAL lcDecoded

loCrypt = CreateObject('Chilkat.Crypt2')

*  Any string argument automatically begins the 30-day trial.

lnSuccess = loCrypt.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    ? loCrypt.LastErrorText
    QUIT
ENDIF

*  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