(Visual FoxPro) Load PKCS12 / PFX and Access Contents

Loads a PKCS12 / PFX file and iterates over the contents which include private keys and certificates.

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

LOCAL loPfx
LOCAL lnSuccess
LOCAL lnNumPrivateKeys
LOCAL loPrivKey
LOCAL i
LOCAL loCert
LOCAL lnNumCerts

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

* Load the PKCS12 from a file
lnSuccess = loPfx.LoadPfxFile("/someDir/my.p12","pfxFilePassword")
IF (lnSuccess <> 1) THEN
    ? loPfx.LastErrorText
    RELEASE loPfx
    CANCEL
ENDIF

lnNumPrivateKeys = loPfx.NumPrivateKeys

? "Private Keys:"

i = 0
DO WHILE i < lnNumPrivateKeys
    loPrivKey = loPfx.GetPrivateKey(i)

    * Do something with the private key ...

    RELEASE loPrivKey
    i = i + 1
ENDDO

lnNumCerts = loPfx.NumCerts

? "Certs:"
i = 0
DO WHILE i < lnNumCerts
    loCert = loPfx.GetCert(i)
    ? loCert.SubjectDN

    * If the certificate has a private key (one of the private keys within the PFX)
    * then it can also be obtained via the certificate object:
    IF (loCert.HasPrivateKey() = 1) THEN

        ? "Has private key!"

        loPrivKey = loCert.ExportPrivateKey()
        * ...
        RELEASE loPrivKey
    ENDIF

    RELEASE loCert
    i = i + 1
ENDDO

RELEASE loPfx