(Perl) Load PFX/P12 File into Certificate Store Object

Demonstrates how to load a .pfx/.p12 into a certificate store object.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

$certStore = chilkat::CkCertStore->new();

# This only loads the contents of the PFX file into the certStore object.
# It is not importing the PFX into the Windows certificate stores.
$pfxPassword = "badssl.com";
$success = $certStore->LoadPfxFile("qa_data/pfx/badssl.com-client.p12",$pfxPassword);
if ($success == 0) {
    print $certStore->lastErrorText() . "\r\n";
    exit;
}

# Examine each certificate (loaded from the PFX) in this certStore object
$numCerts = $certStore->get_NumCertificates();
$i = 0;
while ($i < $numCerts) {
    # cert is a Cert
    $cert = $certStore->GetCertificate($i);
    print "hasPrivateKey=" . $cert->HasPrivateKey() . ", " . $cert->subjectCN() . "\r\n";

    $i = $i + 1;
}