(Perl) Load Signed and/or Encrypted Email and Unwrap Security Layers

The LoadEml method loads an email (.eml file containing the MIME of an email) and automatically unwraps the digital signature and encryption security layers. A program can then examine the properties of the email object to see what was unwrapped.

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

use chilkat();

$email = chilkat::CkEmail->new();

#  Provide PFX/.p12 files for any certs+keys needed for decryption.
#  Signature verification does not need anything extra.
#  (Also, Chilkat will automatically find and use pre-installed certs + private keys needed for decryption
#  on a Windows system.)
$success = $email->AddPfxSourceFile("/pfxFiles/certs_and_keys_1.pfx","pfxPassword1");
if ($success != 1) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

$success = $email->AddPfxSourceFile("/pfxFiles/certs_and_keys_2.pfx","pfxPassword2");
if ($success != 1) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

#  ...

#  Load a potentially signed and/or encrypted email.
$success = $email->LoadEml("someDir/someEmail.eml");

#  If the email was signed and/or encrypted, it was "unwrapped", i.e.
#  the email is already decrypted and in a state as if it were never signed or encrypted.

#  You may check to see if the email was received encrypted or signed, and if so,
#  whether it was successfully unwrapped and who signed or encrypted it:
if ($email->get_ReceivedEncrypted() == 1) {

    print "This email was encrypted." . "\r\n";
    if ($email->get_Decrypted() == 1) {
        print "This email was successfully decrypted.  It was encrypted by:" . "\r\n";
        print $email->encryptedBy() . "\r\n";
    }
    else {
        print "This email was not decrypted." . "\r\n";
    }

}

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

    print "This email was signed." . "\r\n";
    if ($email->get_SignaturesValid() == 1) {
        print "The signature was verified.  It was signed by:" . "\r\n";
        print $email->signedBy() . "\r\n";
    }
    else {
        print "The signature verification failed." . "\r\n";
    }

}

#  At this point, the contents of the email, including attachments, can be accessed normally..