Perl Requires Chilkat v11.4.0+

Example: Mime.GetDecryptCertInfo method

Demonstrates the GetDecryptCertInfo method. Perl

use chilkat();

$success = 0;

$mime = chilkat::CkMime->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"
$success = $mime->LoadMimeFile("qa_data/mime/enveloped_data.eml");
if ($success == 0) {
    print $mime->lastErrorText() . "\r\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.
$json = chilkat::CkJsonObject->new();
$success = $mime->GetDecryptCertInfo($json);
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

$json->put_EmitCompact(0);
print $json->emit() . "\r\n";

#  Sample output:

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

#  Get each certificate's information like this:

$i = 0;
$count = $json->SizeOfArray("recipientInfo");
while ($i < $count) {
    $json->put_I($i);
    $serial = $json->stringOf("recipientInfo[i].serial");
    $issuerCN = $json->stringOf("recipientInfo[i].issuerCN");
    $i = $i + 1;
}