(VB.NET) Load PKCS12 / PFX and Access Contents

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

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

Dim pfx As New Chilkat.Pfx

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


Dim numPrivateKeys As Integer = pfx.NumPrivateKeys

Dim privKey As Chilkat.PrivateKey

Debug.WriteLine("Private Keys:")

Dim i As Integer = 0
While i < numPrivateKeys
    privKey = pfx.GetPrivateKey(i)

    ' Do something with the private key ...


    i = i + 1
End While


Dim cert As Chilkat.Cert

Dim numCerts As Integer = pfx.NumCerts

Debug.WriteLine("Certs:")
i = 0
While i < numCerts
    cert = pfx.GetCert(i)
    Debug.WriteLine(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.WriteLine("Has private key!")

        privKey = cert.ExportPrivateKey()
        ' ...

    End If



    i = i + 1
End While