(Visual FoxPro) Load PFX (PKCS#12) and List Certificates

Loads a PFX file (.pfx, .p12) and iterates over the certificates found within.

Note: This example requires Chilkat v10.1.2 or greater.

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

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

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

lcPfxPath = "/Users/chilkat/testData/pfx/chilkat_ssl.pfx"
lcPfxPassword = "test"
lnSuccess = loCertStore.LoadPfxFile(lcPfxPath,lcPfxPassword)
IF (lnSuccess <> 1) THEN
    ? loCertStore.LastErrorText
    RELEASE loCertStore
    CANCEL
ENDIF

lnNumCerts = loCertStore.NumCertificates

? "PFX contains " + STR(lnNumCerts) + " certificates"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')
i = 0
DO WHILE i < lnNumCerts
    loCertStore.GetCert(i,loCert)

    ? STR(i) + ": (Common Name) " + loCert.SubjectCN
    ? STR(i) + ": (Serial Number) " + loCert.SerialNumber
    ? STR(i) + ": (Distinguished Name) " + loCert.SubjectDN

    i = i + 1
ENDDO

RELEASE loCertStore
RELEASE loCert