(Perl) Import a PFX/P12 into the Windows Certificate Stores

Demonstrates how to import the certificates contained in a .pfx/.p12 to the Windows certificate stores.

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

use chilkat();

$primaryCert = chilkat::CkCert->new();

# Load a PFX file into a certificate object.
# The cert object will contain the certificate from the PFX that has a private key.
# The certs in the chain of authentication (if contained in the PFX) are also loaded,
# and can be accessed by getting the certificate chain (see below).
# If the PFX did not include the issuer certs in the chain of authentication, then Chilkat will
# automatically try to construct the issuer chain from the CA and intermedicate CA certs
# already installed on the Windows system.
$pfxPassword = "myPfxPassword";
$success = $primaryCert->LoadPfxFile("qa_data/pfx/somePfx.p12",$pfxPassword);
if ($success == 0) {
    print $primaryCert->lastErrorText() . "\r\n";
    exit;
}

# certChain is a CertChain
$certChain = $primaryCert->GetCertChain();
if ($primaryCert->get_LastMethodSuccess() == 0) {
    print $primaryCert->lastErrorText() . "\r\n";
    exit;
}

# If the certificate chain reaches the root CA cert, then the last cert in the chain
# is the root CA cert.
$chainReachesRoot = $certChain->get_ReachesRoot();
if ($chainReachesRoot == 1) {
    print "The certificate chain reaches the root CA cert." . "\r\n";
}

$i = 0;
$numCerts = $certChain->get_NumCerts();
while ($i < $numCerts) {
    # cert is a Cert
    $cert = $certChain->GetCert($i);
    print "SubjectDN " . $i . ": " . $cert->subjectDN() . "\r\n";
    print "IssuerDN " . $i . ": " . $cert->issuerDN() . "\r\n";
    print "--" . "\r\n";

    $i = $i + 1;
}

# The primary cert having the private key will be imported into the Current User "My" certificate store.
# Any intermediate root certificates will be imported into certificate store for intermediate certificate authorities.
# The root CA cert will be imported into the Root CA cert store.

# Let's open each of these 3 certificate stores..
$certStoreCU = chilkat::CkCertStore->new();
$certStoreCA = chilkat::CkCertStore->new();
$certStoreRootCA = chilkat::CkCertStore->new();
$readOnlyFlag = 0;

# "CurrentUser" and "My" are the exact keywords to select your user account's certificate store.
$success = $certStoreCU->OpenWindowsStore("CurrentUser","My",$readOnlyFlag);
if ($success == 0) {
    print "Failed to open the CurrentUser/My certificate store for read/write." . "\r\n";

    exit;
}

# Certificate store for intermediate certification authorities (CAs). 
$success = $certStoreCA->OpenWindowsStore("CurrentUser","CertificationAuthority",$readOnlyFlag);
if ($success == 0) {
    print "Failed to open the CurrentUser/CertificationAuthority certificate store for read/write." . "\r\n";

    exit;
}

# Certificate store for trusted root certification authorities (CAs). 
$success = $certStoreRootCA->OpenWindowsStore("CurrentUser","Root",$readOnlyFlag);
if ($success == 0) {
    print "Failed to open the CurrentUser/Root certificate store for read/write." . "\r\n";

    exit;
}

# Iterate over the certs in the chain and import each into the desired certificate store.
$allSuccess = 1;
$i = 0;
while ($i < $numCerts) {
    # cert is a Cert
    $cert = $certChain->GetCert($i);
    if ($i == 0) {
        # Import the primary certificate into the CurrentUser/My certificate store.
        $success = $certStoreCU->AddCertificate($cert);
        if ($success == 0) {
            print $certStoreCU->lastErrorText() . "\r\n";
            $allSuccess = 0;
        }

    }
    else {
        if (($i == ($numCerts - 1)) and ($chainReachesRoot == 1)) {
            # Add the root CA certificate to the CurrentUser/Root certificate store.
            # (Your application can obviously choose whether this should be done or not.  Perhaps you prompt the user.)

            # Note: If the root CA cert is already present in the Windows certificate store, Windows will display
            # a dialog to ask if it should be deleted.  Chilkat does not explicitly display dialogs.
            $success = $certStoreRootCA->AddCertificate($cert);
            if ($success == 0) {
                print $certStoreRootCA->lastErrorText() . "\r\n";
                $allSuccess = 0;
            }

        }
        else {
            # This is an intermediate CA certificate.
            $success = $certStoreCA->AddCertificate($cert);
            if ($success == 0) {
                print $certStoreCA->lastErrorText() . "\r\n";
                $allSuccess = 0;
            }

        }

    }

    if ($success == 0) {
        print "Failed to import certificate." . "\r\n";
    }

    $i = $i + 1;
}

print "allSuccess = " . $allSuccess . "\r\n";