Perl

Add a PFX Source to MailMan from BinData

Demonstrates the Chilkat MailMan.AddPfxSourceBd method, which adds a PFX/PKCS#12 certificate store to the MailMan object's internal list of sources used for locating certificates and private keys. The first argument is a BinData containing the PFX bytes and the second is the PFX password. This example loads a PFX into a BinData, registers it, and fetches a message Chilkat can decrypt.

Background: This is the in-memory (BinData) counterpart to AddPfxSourceFile. It is the right choice when the PFX bytes come from somewhere other than a file — a database, a secrets manager, or an HTTPS download — letting you supply the certificate and private key without first writing sensitive key material to disk.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Demonstrates the MailMan.AddPfxSourceBd method, which adds a PFX/PKCS#12 certificate store
# to the MailMan object's internal list of sources used for locating certificates and
# private keys.  The 1st argument is a BinData containing the PFX bytes and the 2nd is the
# PFX password.

my $mailman = Chilkat2::MailMan->new;

# Configure the POP3 server connection.
$mailman->MailHost('pop.example.com');
$mailman->MailPort(995);
$mailman->PopSsl(1);
$mailman->PopUsername('user@example.com');
$mailman->PopPassword('myPassword');

# Load the PFX bytes into a BinData (they could come from a file, database, or secrets store).
my $bdPfx = Chilkat2::BinData->new;
my $success = $bdPfx->LoadFile('qa_data/certs/decryption.pfx');
if (!$success) {
    print $bdPfx->LastErrorText, "\n";
    exit;
}

# Add the PFX as a source of certificates and private keys.
$success = $mailman->AddPfxSourceBd($bdPfx, 'pfx_password');
if (!$success) {
    print $mailman->LastErrorText, "\n";
    exit;
}

# Fetch a message; if it is encrypted, Chilkat can decrypt it using the PFX source.
my $email = Chilkat2::Email->new;
$success = $mailman->FetchOne(0, 0, 1, $email);
if (!$success) {
    print $mailman->LastErrorText, "\n";
    exit;
}

print 'Decrypted = ', ($email->Decrypted ? 1 : 0), "\n";

# Note: The path "qa_data/certs/decryption.pfx" is a relative local filesystem path,
# relative to the current working directory of the running application.

# Note: Explicitly connecting/authenticating is optional.  Chilkat MailMan automatically
# connects and authenticates -- using the property settings above -- whenever a server
# operation requires it.  Calling the explicit connect/authenticate methods can still be
# helpful to determine whether a failure occurs while connecting or while authenticating.