Perl

Check if a MIME Tree Contains Encrypted Parts

Demonstrates the Chilkat Mime.ContainsEncryptedParts method, which returns whether the currently visible MIME tree contains a CMS/PKCS #7 encrypted entity. It takes no arguments.

Note: The file path is relative to the application's current working directory. Absolute paths may also be used. Supply the path to your own file.

Background: The tree-wide counterpart to IsEncrypted: it finds an encrypted entity nested anywhere in the message, not just at the top. This lets you detect partially-encrypted messages and decide which parts require decryption before processing.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the Mime.ContainsEncryptedParts method, which returns whether the MIME tree contains a CMS/PKCS #7 encrypted entity.  It takes no arguments.

$mime = chilkat::CkMime->new();
$success = $mime->LoadMimeFile("qa_data/message.eml");
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

if ($mime->ContainsEncryptedParts()) {
    print "The message tree contains an encrypted part." . "\r\n";
}
else {
    print "The message tree contains no encrypted part." . "\r\n";
}