(PowerBuilder) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_CertStore
string ls_Thumbprint
integer li_BReadOnly
integer li_Success
oleobject loo_Cert
oleobject loo_CertStorePem

loo_CertStore = create oleobject
li_rc = loo_CertStore.ConnectToNewObject("Chilkat_9_5_0.CertStore")
if li_rc < 0 then
    destroy loo_CertStore
    MessageBox("Error","Connecting to COM object failed")
    return
end if

ls_Thumbprint = "12c1dd8015f3f03f7b1fa619dc24e2493ca8b4b2"

// This part of the example is specific to Windows because it is opening the Windows Current-User certificate store.
li_BReadOnly = 1
li_Success = loo_CertStore.OpenCurrentUserStore(li_BReadOnly)
if li_Success <> 1 then
    Write-Debug loo_CertStore.LastErrorText
    destroy loo_CertStore
    return
end if

// Find the certificate with the desired thumbprint
loo_Cert = loo_CertStore.FindCertBySha1Thumbprint(ls_Thumbprint)
if loo_CertStore.LastMethodSuccess <> 1 then
    Write-Debug "Failed to find the certificate."
    destroy loo_CertStore
    return
end if

Write-Debug "Found: " + loo_Cert.SubjectCN
destroy loo_Cert

// -------------------------------------------------------------------------------------
// Alternatively, one could load a certificate store object with certs from a PEM file,
// and do the same thing..
loo_CertStorePem = create oleobject
li_rc = loo_CertStorePem.ConnectToNewObject("Chilkat_9_5_0.CertStore")

li_Success = loo_CertStorePem.LoadPemFile("pemFiles/certificates.pem")
if li_Success <> 1 then
    Write-Debug loo_CertStorePem.LastErrorText
    destroy loo_CertStore
    destroy loo_CertStorePem
    return
end if

loo_Cert = loo_CertStorePem.FindCertBySha1Thumbprint(ls_Thumbprint)
if loo_CertStorePem.LastMethodSuccess <> 1 then
    Write-Debug "Failed to find the certificate."
    destroy loo_CertStore
    destroy loo_CertStorePem
    return
end if

Write-Debug "Found: " + loo_Cert.SubjectCN
destroy loo_Cert


destroy loo_CertStore
destroy loo_CertStorePem