(Tcl) Quoted-Printable Encode/Decode a String
Tcl example to quoted-printable encode and decode a string.
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
|