Perl Requires Chilkat v9.5.0.71+

IMAP Login Secure

Demonstrates how to use the LoginSecure method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $imap = Chilkat2::Imap->new;

# Connect to an IMAP server..
$imap->Ssl(1);
$imap->Port(993);
my $success = $imap->Connect('imap.mail.me.com');
if (!$success) {
    print $imap->LastErrorText, "\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=="
# }

my $json = Chilkat2::JsonObject->new;
$json->LoadFile('qa_data/passwords/imap.json');

my $crypt = Chilkat2::Crypt2->new;

# These are the encryption settings we previously used to encrypt the credentials within the JSON config file.
$crypt->CryptAlgorithm('aes');
$crypt->CipherMode('cbc');
$crypt->KeyLength(128);
$crypt->SetEncodedKey('000102030405060708090A0B0C0D0E0F', 'hex');
$crypt->SetEncodedIV('000102030405060708090A0B0C0D0E0F', 'hex');
$crypt->EncodingMode('base64');

my $ssLogin = Chilkat2::SecureString->new;
my $ssPassword = Chilkat2::SecureString->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) {
    print $imap->LastErrorText, "\n";
    exit;
}

# ...

$imap->Disconnect();