(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example requires Chilkat v9.5.0.83 or greater.

set cert [new_CkCert]

# The thumbprint can be passed in any encoding, such as hex, base64, etc.
# The 2nd argument indicates the encoding of the 1st argument.
set success [CkCert_LoadByThumbprint $cert "ea5a129c1919a52d238ee28d9f3a8f345b768388" "hex"]
if {$success == 0} then {
    puts [CkCert_lastErrorText $cert]
    delete_CkCert $cert
    exit
}

puts "Found: [CkCert_subjectDN $cert]"

delete_CkCert $cert