(Visual Basic 6.0) 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

Dim pfx As New ChilkatPfx

' Load the PKCS12 from a file
Dim success As Long
success = pfx.LoadPfxFile("/someDir/my.p12","pfxFilePassword")
If (success <> 1) Then
    Debug.Print pfx.LastErrorText
    Exit Sub
End If

Dim numPrivateKeys As Long
numPrivateKeys = pfx.NumPrivateKeys

Dim privKey As PrivateKey

Debug.Print "Private Keys:"

Dim i As Long
i = 0
Do While i < numPrivateKeys
    Set privKey = pfx.GetPrivateKey(i)

    ' Do something with the private key ...

    i = i + 1
Loop

Dim cert As ChilkatCert

Dim numCerts As Long
numCerts = pfx.NumCerts

Debug.Print "Certs:"
i = 0
Do While i < numCerts
    Set cert = pfx.GetCert(i)
    Debug.Print cert.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 (cert.HasPrivateKey() = 1) Then

        Debug.Print "Has private key!"

        Set privKey = cert.ExportPrivateKey()
        ' ...

    End If

    i = i + 1
Loop