(VB.NET) Find a Certificate by it's SHA-1 Thumbprint

Finds a certificate by it's SHA-1 hex thumbprint. Parts of this example are specific to Windows because it searches the Windows Current User certificate store.

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

Dim certStore As New Chilkat.CertStore

Dim thumbprint As String = "12c1dd8015f3f03f7b1fa619dc24e2493ca8b4b2"

' This part of the example is specific to Windows because it is opening the Windows Current-User certificate store.
Dim bReadOnly As Boolean = True
Dim success As Boolean = certStore.OpenCurrentUserStore(bReadOnly)
If (success <> True) Then
    Debug.WriteLine(certStore.LastErrorText)
    Exit Sub
End If


' Find the certificate with the desired thumbprint
Dim cert As Chilkat.Cert = certStore.FindCertBySha1Thumbprint(thumbprint)
If (certStore.LastMethodSuccess <> True) Then
    Debug.WriteLine("Failed to find the certificate.")
    Exit Sub
End If


Debug.WriteLine("Found: " & cert.SubjectCN)


' -------------------------------------------------------------------------------------
' Alternatively, one could load a certificate store object with certs from a PEM file,
' and do the same thing..
Dim certStorePem As New Chilkat.CertStore

success = certStorePem.LoadPemFile("pemFiles/certificates.pem")
If (success <> True) Then
    Debug.WriteLine(certStorePem.LastErrorText)
    Exit Sub
End If


cert = certStorePem.FindCertBySha1Thumbprint(thumbprint)
If (certStorePem.LastMethodSuccess <> True) Then
    Debug.WriteLine("Failed to find the certificate.")
    Exit Sub
End If


Debug.WriteLine("Found: " & cert.SubjectCN)