Quoted-Printable Encode/Decode a String

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

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$crypt = new chilkat::CkCrypt2();

#  Any string argument automatically begins the 30-day trial.
$success = $crypt->UnlockComponent("30-day trial");
if ($success != 1) {
    print $crypt->lastErrorText() . "\r\n";
    exit;
}

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

$crypt->put_CryptAlgorithm("none");
$crypt->put_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->put_Charset("iso-8859-1");
$qp = $crypt->encryptStringENC($s);
print "iso-8859-1:" . "\r\n";
print $qp . "\r\n";
$decoded = $crypt->decryptStringENC($qp);
print $decoded . "\r\n";

#  Now do the same using utf-8. Notice how each
#  Icelandic char is represented by 2 bytes in utf-8:
$crypt->put_Charset("utf-8");
$qp = $crypt->encryptStringENC($s);
print "utf-8:" . "\r\n";
print $qp . "\r\n";
$decoded = $crypt->decryptStringENC($qp);
print $decoded . "\r\n";