(Tcl) Quoted-Printable Encode/Decode a String

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set crypt [new_CkCrypt2]

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

CkCrypt2_put_CryptAlgorithm $crypt "none"
CkCrypt2_put_EncodingMode $crypt "quoted-printable"

# Quoted-printable encode/decode the iso-8859-1
# representation of the string.  Notice how each
# Icelandic char is represented by 1 byte:
CkCrypt2_put_Charset $crypt "iso-8859-1"
set qp [CkCrypt2_encryptStringENC $crypt $s]
puts "iso-8859-1:"
puts "$qp"
set decoded [CkCrypt2_decryptStringENC $crypt $qp]
puts "$decoded"

# Now do the same using utf-8. Notice how each
# Icelandic char is represented by 2 bytes in utf-8:
CkCrypt2_put_Charset $crypt "utf-8"
set qp [CkCrypt2_encryptStringENC $crypt $s]
puts "utf-8:"
puts "$qp"
set decoded [CkCrypt2_decryptStringENC $crypt $qp]
puts "$decoded"

delete_CkCrypt2 $crypt