Visual FoxPro

Load PFX (PKCS#12) and List Certificates

See more Certificates Examples

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

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

lnSuccess = 0

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"

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