(Excel) Load PKCS12 / PFX and Access Contents

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

Download Excel Class Modules Chilkat Excel Class Modules

Dim pfx As Chilkat.Pfx
Set pfx = Chilkat.NewPfx

' Load the PKCS12 from a file

success = pfx.LoadPfxFile("/someDir/my.p12","pfxFilePassword")
If (success <> True) Then
    Debug.Print pfx.LastErrorText
    Exit Sub
End If


numPrivateKeys = pfx.NumPrivateKeys

Debug.Print "Private Keys:"


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

    ' Do something with the private key ...

    i = i + 1
Loop


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() = True) Then

        Debug.Print "Has private key!"

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

    End If

    i = i + 1
Loop