Perl

Load P7B and List Certificates

Demonstrates how to load a .p7b containing certificates and accesses each individual certificate. Perl

use chilkat();

$success = 0;

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$success = 0;

$pem = chilkat::CkPem->new();

# Load the .p7b from a file.
$success = $pem->LoadP7bFile("/Users/chilkat/testData/p7b/myCerts.p7b");
if ($success != 1) {
    print $pem->lastErrorText() . "\r\n";
    exit;
}

$numCerts = $pem->get_NumCerts();
if ($numCerts == 0) {
    print (("Error: Expected the .p7b to contain certificates.")) . "\r\n";
    exit;
}

# Access each certificate and show the DN (Distinguished Name)
for ($i = 1; $i <= $numCerts; $i++) {
    # cert is a Cert
    $cert = $pem->GetCert($i - 1);
    print $i . ": " . $cert->subjectDN() . "\r\n";

}