(Xojo Plugin) Load PKCS12 / PFX and Access Contents

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

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim pfx As New Chilkat.Pfx

// Load the PKCS12 from a file
Dim success As Boolean
success = pfx.LoadPfxFile("/someDir/my.p12","pfxFilePassword")
If (success <> True) Then
    System.DebugLog(pfx.LastErrorText)
    Return
End If

Dim numPrivateKeys As Int32
numPrivateKeys = pfx.NumPrivateKeys

Dim privKey As Chilkat.PrivateKey

System.DebugLog("Private Keys:")

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

    // Do something with the private key ...

    i = i + 1
Wend

Dim cert As Chilkat.Cert

Dim numCerts As Int32
numCerts = pfx.NumCerts

System.DebugLog("Certs:")
i = 0
While i < numCerts
    cert = pfx.GetCert(i)
    System.DebugLog(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

        System.DebugLog("Has private key!")

        privKey = cert.ExportPrivateKey()
        // ...

    End If

    i = i + 1
Wend