Visual FoxPro

X509Certificate GetCertHash SHA256

See more Certificates Examples

Shows how to get the SHA256 hash of a certificate. Visual FoxPro

LOCAL lnSuccess
LOCAL loCert
LOCAL loBdDer
LOCAL lcCertHash

lnSuccess = 0

loCert = CreateObject('Chilkat.Cert')

* 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..
lnSuccess = loCert.LoadFromFile("qa_data/certs/cert_test123.cer")
IF (lnSuccess <> 1) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    CANCEL
ENDIF

* Get the binary DER of the certificae, and compute the SHA256 hash:
loBdDer = CreateObject('Chilkat.BinData')
loCert.ExportCertDerBd(loBdDer)

* Get the base64 representation of the SHA256 hash.
lcCertHash = loBdDer.GetHash("sha256","base64")

? "Certificate hash in base64 = " + lcCertHash

RELEASE loCert
RELEASE loBdDer