(Perl) IMAP Download and Verify Signed MIME

Downloads the unmodified MIME of a digitally signed email, saves the .p7s signature (and other MIME parts), then loads the email into a Chilkat email object (which unwraps the S/MIME and verifies the signature) and then saves attachments (if the MIME parts were not already saved).

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$imap = chilkat::CkImap->new();

# Connect to an IMAP server.
# Use TLS
$imap->put_Ssl(1);
$imap->put_Port(993);
$success = $imap->Connect("imap.someMailServer.com");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

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

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

# Download the 1st email (as MIME) in the Inbox by sequence number.
$sbMime = chilkat::CkStringBuilder->new();
$success = $imap->FetchSingleAsMimeSb(1,0,$sbMime);
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Load it into a MIME object and check to see if it is signed
$mime = chilkat::CkMime->new();
$mime->LoadMimeSb($sbMime);
$alreadySavedParts = 0;
if ($mime->ContainsSignedParts() == 1) {

    # This will save the .p7s and other parts...
    # sa is a StringArray
    $sa = $mime->ExtractPartsToFiles("qa_output");
    if ($mime->get_LastMethodSuccess() == 1) {
        $numFiles = $sa->get_Count();
        $i = 0;
        while ($i < $numFiles) {
            print "Created: " . $sa->getString($i) . "\r\n";
            $i = $i + 1;
        }

        $alreadySavedParts = 1;
    }

}

# Load the MIME into an Email object.  This unwraps the security layers and verifies signatures.
$email = chilkat::CkEmail->new();
$email->SetFromMimeSb($sbMime);

if ($email->get_ReceivedSigned() == 1) {

    print "This email was signed." . "\r\n";

    # Check to see if the signatures were verified.
    if ($email->get_SignaturesValid() == 1) {
        print "Digital signature(s) verified." . "\r\n";

        print "Signer: " . $email->signedBy() . "\r\n";

        # The certificate used for signing may be obtained
        # by calling email.GetSignedByCert.
        # cert is a Cert
        $cert = $email->GetSignedByCert();
        if ($email->get_LastMethodSuccess() != 1) {
            print "Failed to get signing certificate object." . "\r\n";
        }
        else {
            print "Signing cert: " . $cert->subjectCN() . "\r\n";

        }

    }

}
else {
    print "Digital signature verification failed." . "\r\n";
}

if ($alreadySavedParts != 1) {
    $email->SaveAllAttachments("qa_output");
}