(VB.NET UWP/WinRT) Quoted-Printable Encode/Decode a String

VB.NET UWP/WinRT example to quoted-printable encode and decode a string.

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

' 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 = "É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)
Debug.WriteLine("iso-8859-1:")
Debug.WriteLine(qp)
Dim decoded As String = crypt.DecryptStringENC(qp)
Debug.WriteLine(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)
Debug.WriteLine("utf-8:")
Debug.WriteLine(qp)
Dim decoded As String = crypt.DecryptStringENC(qp)
Debug.WriteLine(decoded)