(Xojo Plugin) Load PFX/P12 File into Certificate Store Object

Demonstrates how to load a .pfx/.p12 into a certificate store object.

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

Dim certStore As New Chilkat.CertStore

// This only loads the contents of the PFX file into the certStore object.
// It is not importing the PFX into the Windows certificate stores.
Dim pfxPassword As String
pfxPassword = "badssl.com"
Dim success As Boolean
success = certStore.LoadPfxFile("qa_data/pfx/badssl.com-client.p12",pfxPassword)
If (success = False) Then
    System.DebugLog(certStore.LastErrorText)
    Return
End If

// Examine each certificate (loaded from the PFX) in this certStore object
Dim numCerts As Int32
numCerts = certStore.NumCertificates
Dim i As Int32
i = 0
While i < numCerts
    Dim cert As Chilkat.Cert
    cert = certStore.GetCertificate(i)
    System.DebugLog("hasPrivateKey=" + Str(cert.HasPrivateKey()) + ", " + cert.SubjectCN)

    i = i + 1
Wend