Base64 Encode/Decode a String

Perl example to base-64 encode and decode a string.

Download Chilkat Perl Module

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 component unlock failed" . "\n";
    exit;
}

$s = "A friend called me up the other day and talked about investing in a dot-com that sells lobsters. Internet lobsters. Where will this end? --Donald Trump";

$crypt->put_CryptAlgorithm("none");
$crypt->put_EncodingMode("base64");

#  Other possible EncodingMode settings are:
#  "quoted-printable", "hex", and "url"

$qp = $crypt->encryptStringENC($s);

print $qp . "\r\n";

$decoded = $crypt->decryptStringENC($qp);

print $decoded . "\r\n";