(Lianja) 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 Lianja Extension Download Chilkat Lianja Extension

loPrimaryCert = createobject("CkCert")

// 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.
lcPfxPassword = "myPfxPassword"
llSuccess = loPrimaryCert.LoadPfxFile("qa_data/pfx/somePfx.p12",lcPfxPassword)
if (llSuccess = .F.) then
    ? loPrimaryCert.LastErrorText
    release loPrimaryCert
    return
endif

loCertChain = loPrimaryCert.GetCertChain()
if (loPrimaryCert.LastMethodSuccess = .F.) then
    ? loPrimaryCert.LastErrorText
    release loPrimaryCert
    return
endif

// If the certificate chain reaches the root CA cert, then the last cert in the chain
// is the root CA cert.
llChainReachesRoot = loCertChain.ReachesRoot
if (llChainReachesRoot = .T.) then
    ? "The certificate chain reaches the root CA cert."
endif

i = 0
lnNumCerts = loCertChain.NumCerts
do while i < lnNumCerts
    loCert = loCertChain.GetCert(i)
    ? "SubjectDN " + str(i) + ": " + loCert.SubjectDN
    ? "IssuerDN " + str(i) + ": " + loCert.IssuerDN
    ? "--"
    release loCert
    i = i + 1
enddo

// 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..
loCertStoreCU = createobject("CkCertStore")
loCertStoreCA = createobject("CkCertStore")
loCertStoreRootCA = createobject("CkCertStore")
llReadOnlyFlag = .F.

// "CurrentUser" and "My" are the exact keywords to select your user account's certificate store.
llSuccess = loCertStoreCU.OpenWindowsStore("CurrentUser","My",llReadOnlyFlag)
if (llSuccess = .F.) then
    ? "Failed to open the CurrentUser/My certificate store for read/write."
    release loCertChain
    release loPrimaryCert
    release loCertStoreCU
    release loCertStoreCA
    release loCertStoreRootCA
    return
endif

// Certificate store for intermediate certification authorities (CAs). 
llSuccess = loCertStoreCA.OpenWindowsStore("CurrentUser","CertificationAuthority",llReadOnlyFlag)
if (llSuccess = .F.) then
    ? "Failed to open the CurrentUser/CertificationAuthority certificate store for read/write."
    release loCertChain
    release loPrimaryCert
    release loCertStoreCU
    release loCertStoreCA
    release loCertStoreRootCA
    return
endif

// Certificate store for trusted root certification authorities (CAs). 
llSuccess = loCertStoreRootCA.OpenWindowsStore("CurrentUser","Root",llReadOnlyFlag)
if (llSuccess = .F.) then
    ? "Failed to open the CurrentUser/Root certificate store for read/write."
    release loCertChain
    release loPrimaryCert
    release loCertStoreCU
    release loCertStoreCA
    release loCertStoreRootCA
    return
endif

// Iterate over the certs in the chain and import each into the desired certificate store.
llAllSuccess = .T.
i = 0
do while i < lnNumCerts
    loCert = loCertChain.GetCert(i)
    if (i = 0) then
        // Import the primary certificate into the CurrentUser/My certificate store.
        llSuccess = loCertStoreCU.AddCertificate(loCert)
        if (llSuccess = .F.) then
            ? loCertStoreCU.LastErrorText
            llAllSuccess = .F.
        endif

    else
        if ((i = (lnNumCerts - 1)) and (llChainReachesRoot = .T.)) then
            // 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.
            llSuccess = loCertStoreRootCA.AddCertificate(loCert)
            if (llSuccess = .F.) then
                ? loCertStoreRootCA.LastErrorText
                llAllSuccess = .F.
            endif

        else
            // This is an intermediate CA certificate.
            llSuccess = loCertStoreCA.AddCertificate(loCert)
            if (llSuccess = .F.) then
                ? loCertStoreCA.LastErrorText
                llAllSuccess = .F.
            endif

        endif

    endif

    if (llSuccess = .F.) then
        ? "Failed to import certificate."
    endif

    release loCert
    i = i + 1
enddo

release loCertChain

? "allSuccess = " + str(llAllSuccess)


release loPrimaryCert
release loCertStoreCU
release loCertStoreCA
release loCertStoreRootCA