Perl

POP3 Login Secure

Demonstrates how to set the POP3 password using a secure string.

This example requires Chilkat v9.5.0.71 or greater.

Perl

use chilkat();

$success = 0;

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

$mailman = chilkat::CkMailMan->new();

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

# {
#   "pop3_login": "D7lnlWY291LKMeChlvQq7N/Tg7ieuSB15a+9Ekyd0R4=",
#   "pop3_password": "5neIq9Jmn0E3p71N6Yc8TA=="
# }

$json = chilkat::CkJsonObject->new();
$json->LoadFile("qa_data/passwords/pop3.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("pop3_login"),$ssLogin);
$crypt->DecryptSecureENC($json->stringOf("pop3_password"),$ssPassword);

# Set the POP3 domain, login, and password
$mailman->put_MailHost("pop.gmail.com");
$mailman->put_PopSsl(1);
$mailman->put_MailPort(995);

$mailman->put_PopUsername($ssLogin->access());
# Set the PopPassword property via the SetPassword method using the secure string.
$mailman->SetPassword("pop3",$ssPassword);

# Connect and authenticate..
$success = $mailman->Pop3Connect();
if ($success != 1) {
    print $mailman->lastErrorText() . "\r\n";
    exit;
}

$success = $mailman->Pop3Authenticate();
if ($success != 1) {
    print $mailman->lastErrorText() . "\r\n";
    exit;
}

print "POP3 login successful." . "\r\n";

$numMessages = $mailman->GetMailboxCount();
if ($numMessages < 0) {
    print $mailman->lastErrorText() . "\r\n";
    exit;
}

print "Num messages in Inbox = " . $numMessages . "\r\n";

$mailman->Pop3EndSession();