(Tcl) X509Certificate GetCertHash SHA256
Shows how to get the SHA256 hash of a certificate.
load ./chilkat.dll
set cert [new_CkCert]
# Load a certificate object with a certificate.
# The certificate object could have come from any source,
# or perhaps was obtained from another Chilkat function.
# The source does not matter. What matters is that we have
# a cert object loaded with the certificate..
set success [CkCert_LoadFromFile $cert "qa_data/certs/cert_test123.cer"]
if {$success != 1} then {
puts [CkCert_lastErrorText $cert]
delete_CkCert $cert
exit
}
# Get the binary DER of the certificae, and compute the SHA256 hash:
set bdDer [new_CkBinData]
CkCert_ExportCertDerBd $cert $bdDer
# Get the base64 representation of the SHA256 hash.
set certHash [CkBinData_getHash $bdDer "sha256" "base64"]
puts "Certificate hash in base64 = $certHash"
delete_CkCert $cert
delete_CkBinData $bdDer
|
