(Visual Basic 6.0) X509Certificate GetCertHash SHA256
Shows how to get the SHA256 hash of a certificate.
Dim cert As New ChilkatCert
Dim success As Long
' 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
Debug.Print cert.LastErrorText
Exit Sub
End If
' Get the binary DER of the certificae, and compute the SHA256 hash:
Dim bdDer As New ChilkatBinData
success = cert.ExportCertDerBd(bdDer)
' Get the base64 representation of the SHA256 hash.
Dim certHash As String
certHash = bdDer.GetHash("sha256","base64")
Debug.Print "Certificate hash in base64 = " & certHash
|