(AutoIt) Quoted-Printable Encode/Decode a String

AutoIt example to quoted-printable encode and decode a string.

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

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

$oCrypt = ObjCreate("Chilkat.Crypt2")

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

$oCrypt.CryptAlgorithm = "none"
$oCrypt.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:
$oCrypt.Charset = "iso-8859-1"
Local $sQp = $oCrypt.EncryptStringENC($s)
ConsoleWrite("iso-8859-1:" & @CRLF)
ConsoleWrite($sQp & @CRLF)
Local $sDecoded = $oCrypt.DecryptStringENC($sQp)
ConsoleWrite($sDecoded & @CRLF)

; Now do the same using utf-8. Notice how each
; Icelandic char is represented by 2 bytes in utf-8:
$oCrypt.Charset = "utf-8"
Local $sQp = $oCrypt.EncryptStringENC($s)
ConsoleWrite("utf-8:" & @CRLF)
ConsoleWrite($sQp & @CRLF)
Local $sDecoded = $oCrypt.DecryptStringENC($sQp)
ConsoleWrite($sDecoded & @CRLF)