Perl

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;
}