Perl

IMAP Login Secure

Demonstrates how to use the LoginSecure method introduced in Chilkat v9.5.0.71. Perl

use chilkat();

$success = 0;

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

$imap = chilkat::CkImap->new();

# Connect to an IMAP server..
$imap->put_Ssl(1);
$imap->put_Port(993);
$success = $imap->Connect("imap.mail.me.com");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Imagine we've previously saved our encrypted login and password within a JSON config file
# that contains this:

# {
#   "imap_login": "fLkxsfnVaIWLiL/R32jo6g==",
#   "imap_password": "/NbaFBoCftBLFf8WBU9Xtw=="
# }

$json = chilkat::CkJsonObject->new();
$json->LoadFile("qa_data/passwords/imap.json");

$crypt = chilkat::CkCrypt2->new();

# These are the encryption settings we previously used to encrypt the credentials within the JSON config file.
$crypt->put_CryptAlgorithm("aes");
$crypt->put_CipherMode("cbc");
$crypt->put_KeyLength(128);
$crypt->SetEncodedKey("000102030405060708090A0B0C0D0E0F","hex");
$crypt->SetEncodedIV("000102030405060708090A0B0C0D0E0F","hex");
$crypt->put_EncodingMode("base64");

$ssLogin = chilkat::CkSecureString->new();
$ssPassword = chilkat::CkSecureString->new();

# Decrypt to the secure string.  (the strings will still held in memory encrypted, but are now encrypted using
# a randomly generated session key.)
$crypt->DecryptSecureENC($json->stringOf("imap_login"),$ssLogin);
$crypt->DecryptSecureENC($json->stringOf("imap_password"),$ssPassword);

# Pass the credentials to the LoginSecure method:
$success = $imap->LoginSecure($ssLogin,$ssPassword);
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# ...

$imap->Disconnect();