Xojo Plugin

Quoted-Printable Encode/Decode a String

See more Encryption Examples

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

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

Dim crypt As New Chilkat.Crypt2

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

crypt.CryptAlgorithm = "none"
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:
crypt.Charset = "iso-8859-1"
Dim qp As String
qp = crypt.EncryptStringENC(s)
System.DebugLog("iso-8859-1:")
System.DebugLog(qp)
Dim decoded As String
decoded = crypt.DecryptStringENC(qp)
System.DebugLog(decoded)

// Now do the same using utf-8. Notice how each
// Icelandic char is represented by 2 bytes in utf-8:
crypt.Charset = "utf-8"
Dim qp As String
qp = crypt.EncryptStringENC(s)
System.DebugLog("utf-8:")
System.DebugLog(qp)
Dim decoded As String
decoded = crypt.DecryptStringENC(qp)
System.DebugLog(decoded)