(Excel) 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.

Download Excel Class Modules Chilkat Excel Class Modules

Dim certStore As Chilkat.CertStore
Set certStore = Chilkat.NewCertStore


thumbprint = "12c1dd8015f3f03f7b1fa619dc24e2493ca8b4b2"

'  This part of the example is specific to Windows because it is opening the Windows Current-User certificate store.

bReadOnly = True

success = certStore.OpenCurrentUserStore(bReadOnly)
If (success <> True) Then
    Debug.Print certStore.LastErrorText
    Exit Sub
End If

'  Find the certificate with the desired thumbprint

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

Debug.Print "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 Chilkat.CertStore
Set certStorePem = Chilkat.NewCertStore

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

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

Debug.Print "Found: "; cert.SubjectCN