(Visual FoxPro) Load PFX/P12 File into Certificate Store Object

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loCertStore
LOCAL lcPfxPassword
LOCAL lnSuccess
LOCAL lnNumCerts
LOCAL i
LOCAL loCert

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CertStore')
loCertStore = CreateObject('Chilkat.CertStore')

* This only loads the contents of the PFX file into the certStore object.
* It is not importing the PFX into the Windows certificate stores.
lcPfxPassword = "badssl.com"
lnSuccess = loCertStore.LoadPfxFile("qa_data/pfx/badssl.com-client.p12",lcPfxPassword)
IF (lnSuccess = 0) THEN
    ? loCertStore.LastErrorText
    RELEASE loCertStore
    CANCEL
ENDIF

* Examine each certificate (loaded from the PFX) in this certStore object
lnNumCerts = loCertStore.NumCertificates
i = 0
DO WHILE i < lnNumCerts
    loCert = loCertStore.GetCertificate(i)
    ? "hasPrivateKey=" + STR(loCert.HasPrivateKey()) + ", " + loCert.SubjectCN
    RELEASE loCert
    i = i + 1
ENDDO

RELEASE loCertStore