(Xojo Plugin) Iterate over Certificates in a Certificate Store

See more Cert Store Examples

Note: Requires Chilkat v10.1.2 or later.

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

Dim certStore As New Chilkat.CertStore

// This opens the Current User certificate store on Windows,
// On MacOS and iOS it opens the default Keychain.
Dim readOnly As Boolean
readOnly = False
Dim success As Boolean
success = certStore.OpenCurrentUserStore(readOnly)
If (success = False) Then
    System.DebugLog(certStore.LastErrorText)
    Return
End If

Dim cert As New Chilkat.Cert

Dim numCerts As Int32
numCerts = certStore.NumCertificates
Dim i As Int32
i = 0

While (i < numCerts)
    // Load the cert object with the Nth certificate.
    success = certStore.GetCert(i,cert)
    System.DebugLog(Str(i) + ": " + cert.SubjectCN)
    i = i + 1
Wend