(PureBasic) Load PKCS12 / PFX and Access Contents

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCert.pb"
IncludeFile "CkPrivateKey.pb"
IncludeFile "CkPfx.pb"

Procedure ChilkatExample()

    pfx.i = CkPfx::ckCreate()
    If pfx.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Load the PKCS12 from a file
    success.i = CkPfx::ckLoadPfxFile(pfx,"/someDir/my.p12","pfxFilePassword")
    If success <> 1
        Debug CkPfx::ckLastErrorText(pfx)
        CkPfx::ckDispose(pfx)
        ProcedureReturn
    EndIf

    numPrivateKeys.i = CkPfx::ckNumPrivateKeys(pfx)

    privKey.i

    Debug "Private Keys:"

    i.i = 0
    While i < numPrivateKeys
        privKey = CkPfx::ckGetPrivateKey(pfx,i)

        ; Do something with the private key ...

        CkPrivateKey::ckDispose(privKey)

        i = i + 1
    Wend

    cert.i

    numCerts.i = CkPfx::ckNumCerts(pfx)

    Debug "Certs:"
    i = 0
    While i < numCerts
        cert = CkPfx::ckGetCert(pfx,i)
        Debug CkCert::ckSubjectDN(cert)

        ; 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 CkCert::ckHasPrivateKey(cert) = 1

            Debug "Has private key!"

            privKey = CkCert::ckExportPrivateKey(cert)
            ; ...
            CkPrivateKey::ckDispose(privKey)

        EndIf

        CkCert::ckDispose(cert)

        i = i + 1
    Wend


    CkPfx::ckDispose(pfx)


    ProcedureReturn
EndProcedure