Perl Requires Chilkat v11.4.0+

Example: Mime.GetDecryptCertInfo method

Demonstrates the GetDecryptCertInfo method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $mime = Chilkat2::Mime->new;

# Load MIME that is has Content-Type like this:
# Content-Type: application/pkcs7-mime; smime-type="enveloped-data"; name="smime.p7m"; smime-type="enveloped-data"
my $success = $mime->LoadMimeFile('qa_data/mime/enveloped_data.eml');
if (!$success) {
    print $mime->LastErrorText, "\n";
    exit;
}

# Get information about the certificate that would be needed to decrypt.
# An enveloped-data can potentially be decrypted by multiple certificates if it was encrypted in a way that allows it,
# but in most cases, only a single certificate with associated private key (that of the message recipient) is possible.
my $json = Chilkat2::JsonObject->new;
$success = $mime->GetDecryptCertInfo($json);
if (!$success) {
    print $mime->LastErrorText, "\n";
    exit;
}

$json->EmitCompact(0);
print $json->Emit(), "\n";

# Sample output:

# {
#   "recipientInfo": [
#     {
#       "serial": "****",
#       "issuerCN": "****"
#     }
#   ]
# }

# Get each certificate's information like this:
my $serial = '';
my $issuerCN = '';

my $i = 0;
my $count = $json->SizeOfArray('recipientInfo');
while ($i < $count) {
    $json->I($i);
    $serial = $json->StringOf('recipientInfo[i].serial');
    $issuerCN = $json->StringOf('recipientInfo[i].issuerCN');
    $i = $i + 1;
}