Using Client Certificate w/ IMAP SSL

Demonstrates how to use a client-side certificate with an IMAP SSL connection. The SetSslClientCert method is called to specify a certificate to be used for the SSL connection.

Download Chilkat Perl Module

use chilkat;

$imap = new chilkat::CkImap();

#  Anything unlocks the component and begins a fully-functional 30-day trial.
$success = $imap->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

#  To use a secure SSL connection, set SSL and the port:
$imap->put_Ssl(1);
#  The typical port for IMAP SSL is 993
$imap->put_Port(993);

#  Load a certificate from a PFX file and use it.
#  Note: Other methods are available to load pre-installed
#  certificates from registry-based certificate stores.

#  Create an instance of a certificate store object, load a PFX file,
#  locate the certificate we need, and use it for signing.
#  (a PFX file may contain more than one certificate.)
$certStore = new chilkat::CkCertStore();
#  The 1st argument is the filename, the 2nd arg is the
#  PFX file's password:
$success = $certStore->LoadPfxFile("myCertWithPrivateKey.pfx","secret");
if ($success != 1) {
    print $certStore->lastErrorText() . "\n";
    exit;
}

#  Find the certificate by the subject common name:

$cert = $certStore->FindCertBySubjectCN("Chilkat Software, Inc.");
if ($cert eq null ) {
    print $certStore->lastErrorText() . "\n";
    exit;
}

#  If a PFX file is known to contain a single certificate,
#  you may load it directly into a Chilkat certificate object.
#  This snippet of source code shows how:
$cert2 = new chilkat::CkCert();
#  The 1st argument is the filename, the 2nd arg is the
#  PFX file's password:
$success = $cert2->LoadPfxFile("tagtooga_secret.pfx","secret");
if ($success != 1) {
    print $cert->lastErrorText() . "\n";
    exit;
}

#  Use the cert:
$imap->SetSslClientCert($cert);

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

#  Login
$success = $imap->Login("myLogin","myPassword");
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

#  Select an IMAP mailbox
$success = $imap->SelectMailbox("Inbox");
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

#  We can choose to fetch UIDs or sequence numbers.
$fetchUids = 1;
#  Get the message IDs of all the emails in the mailbox
$messageSet = $imap->Search("ALL",$fetchUids);
if ($messageSet eq null ) {
    print $imap->lastErrorText() . "\n";
    exit;
}

#  Fetch the emails into a bundle object:

$bundle = $imap->FetchBundle($messageSet);
if ($bundle eq null ) {

    print $imap->lastErrorText() . "\n";
    exit;
}

#  Loop over the bundle and display the FROM and SUBJECT of each.

for ($i = 0; $i <= $bundle->get_MessageCount() - 1; $i++) {

    $email = $bundle->GetEmail($i);
    print $email->ck_from() . "\r\n";
    print $email->subject() . "\r\n";
    print "--" . "\r\n";

}

#  Disconnect from the IMAP server.
$imap->Disconnect();