B4X

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.

B4X

Dim success As Boolean = False

Dim certStore As ChilkatCertStore
certStore.Initialize

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


'  Find the certificate having a serial number = "48FC93B46055948D36A7C98A89D69416".
Dim hexSerial As String = "48FC93B46055948D36A7C98A89D69416"
Dim json As ChilkatJsonObject
json.Initialize
json.UpdateString("serial", hexSerial)

Dim cert As ChilkatCert
cert.Initialize("cert")
success = certStore.FindCert(json, cert)
If success = True Then
    '  Show the serial number and subject CN
    Log("Found: " & cert.SerialNumber & ", " & cert.SubjectCN)
Else
    Log("Not found.")
End If