(Visual FoxPro) Find and Load Certificate by Thumbprint

Demonstrates how to find and load a certificate by SHA1 thumbprint. This is a Microsoft Windows-only example. It assumes the certificate is already installed on the Windows system.

Note: This example requires Chilkat v9.5.0.83 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loCert
LOCAL lnSuccess

* This example requires Chilkat v9.5.0.83 or greater.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')

* The thumbprint can be passed in any encoding, such as hex, base64, etc.
* The 2nd argument indicates the encoding of the 1st argument.
lnSuccess = loCert.LoadByThumbprint("ea5a129c1919a52d238ee28d9f3a8f345b768388","hex")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    CANCEL
ENDIF

? "Found: " + loCert.SubjectDN

RELEASE loCert