(Lianja) Load PKCS12 / PFX and Access Contents

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

Chilkat Lianja Extension Download Chilkat Lianja Extension

loPfx = createobject("CkPfx")

// Load the PKCS12 from a file
llSuccess = loPfx.LoadPfxFile("/someDir/my.p12","pfxFilePassword")
if (llSuccess <> .T.) then
    ? loPfx.LastErrorText
    release loPfx
    return
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() = .T.) then

        ? "Has private key!"

        loPrivKey = loCert.ExportPrivateKey()
        // ...
        release loPrivKey
    endif

    release loCert
    i = i + 1
enddo


release loPfx