(VBScript) X509Certificate GetCertHash SHA256

See more Certificates Examples

Shows how to get the SHA256 hash of a certificate.

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Cert")
set cert = 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..
success = cert.LoadFromFile("qa_data/certs/cert_test123.cer")
If (success <> 1) Then
    outFile.WriteLine(cert.LastErrorText)
    WScript.Quit
End If

' Get the binary DER of the certificae, and compute the SHA256 hash:
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bdDer = CreateObject("Chilkat.BinData")
success = cert.ExportCertDerBd(bdDer)

' Get the base64 representation of the SHA256 hash.
certHash = bdDer.GetHash("sha256","base64")

outFile.WriteLine("Certificate hash in base64 = " & certHash)

outFile.Close