Perl

SMTP Login Secure

Demonstrates how to set the SMTP 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:

# {
#   "smtp_login": "D7lnlWY291LKMeChlvQq7N/Tg7ieuSB15a+9Ekyd0R4=",
#   "smtp_password": "5neIq9Jmn0E3p71N6Yc8TA=="
# }

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

# Set the SMTP domain, login, and password
$mailman->put_SmtpHost("smtp.gmail.com");
$mailman->put_SmtpSsl(1);
$mailman->put_SmtpPort(465);

$mailman->put_SmtpUsername($ssLogin->access());
# Set the SmtpPassword property via the SetPassword method using the secure string.
$mailman->SetPassword("smtp",$ssPassword);

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

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

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

# ...

$mailman->CloseSmtpConnection();