B4X

Quoted-Printable Encode/Decode a String

See more Encryption Examples

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

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

Dim crypt As ChilkatCrypt2
crypt.Initialize("crypt")

'  Here's a string in Icelandic using non us-ascii chars:
Dim s As String = "É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 = crypt.EncryptStringENC(s)
Log("iso-8859-1:")
Log(qp)
Dim decoded As String = crypt.DecryptStringENC(qp)
Log(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 = crypt.EncryptStringENC(s)
Log("utf-8:")
Log(qp)
Dim decoded As String = crypt.DecryptStringENC(qp)
Log(decoded)