Perl Requires Chilkat v11.0.0+

POP3 Verify Signed (S/MIME) Email

Demonstrates how to download and verify digitally signed S/MIME email. 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 $mailman = Chilkat2::MailMan->new;

# Set the POP3 server's hostname
$mailman->MailHost('pop.example.com');

# Set the POP3 login/password.
$mailman->PopUsername('myLogin');
$mailman->PopPassword('myPassword');

my $stUidls = Chilkat2::StringTable->new;
my $success = $mailman->FetchUidls($stUidls);
if (!$success) {
    print $mailman->LastErrorText, "\n";
    exit;
}

my $email = Chilkat2::Email->new;
my $cert = Chilkat2::Cert->new;

my $count = $stUidls->Count;
my $i = 0;
while ($i < $count) {
    # Download the full email.
    $success = $mailman->FetchByUidl($stUidls->StringAt($i), 0, 0, $email);
    if (!$success) {
        print $mailman->LastErrorText, "\n";
        exit;
    }

    print $i, "\n";
    print 'From: ', $email->From, "\n";
    print 'Subject: ', $email->Subject, "\n";

    # The security layers of signed and/or encrypted emails
    # are automatically "unwrapped" when loaded into
    # a Chilkat email object.
    # An application only needs to check to see if an email
    # was received signed or encrypted, and then examine
    # the success/failure.  For example:
    if ($email->ReceivedSigned) {
        print "This email was signed.\n";

        # Check to see if the signatures were verified.
        if ($email->SignaturesValid) {
            print "Digital signature(s) verified.\n";
            print 'Signer: ', $email->SignedBy, "\n";

            $success = $email->LastSignerCert(0, $cert);
            if (!$success) {
                print $email->LastErrorText, "\n";
                exit;
            }

            print 'Signing cert: ', $cert->SubjectCN, "\n";
        }
    } else {
        print "Digital signature verification failed.\n";
    }

    $i = $i + 1;
}

$mailman->Pop3EndSession();