Xojo Plugin

Find Certificate by Serial Number

See more Cert Store Examples

Demonstrates how to find a certificate having the specified hexadecimal serial number.

Note: Requires Chilkat v10.1.2 or later.

Xojo Plugin

Dim success As Boolean
success = False

Dim certStore As New Chilkat.CertStore

// This example will search the certs on connected USB tokens and smartcards.
Dim argNotUsed As String
argNotUsed = ""
success = certStore.OpenSmartcard(argNotUsed)
If (success = False) Then
    System.DebugLog(certStore.LastErrorText)
    Return
End If

// Find the certificate having a serial number = "48FC93B46055948D36A7C98A89D69416".
Dim hexSerial As String
hexSerial = "48FC93B46055948D36A7C98A89D69416"
Dim json As New Chilkat.JsonObject
success = json.UpdateString("serial",hexSerial)

Dim cert As New Chilkat.Cert
success = certStore.FindCert(json,cert)
If (success = True) Then
    // Show the serial number and subject CN
    System.DebugLog("Found: " + cert.SerialNumber + ", " + cert.SubjectCN)
Else
    System.DebugLog("Not found.")
End If