Calculates the message digest thumbprint of an X.509 certificate.
VB6/VBA
Debug.Print "Testing X509_CertThumb ..."
Dim nRet As Long
Dim strCertName As String
Dim strHexHash As String
strHexHash = String(PKI_SHA1_CHARS, " ")
strCertName = "AliceRSASignByCarl.cer"
nRet = X509_CertThumb(strCertName, strHexHash, Len(strHexHash), 0)
Debug.Print "X509_CertThumb returns " & nRet & " for " & strCertName
Debug.Print strHexHash
Output
Testing X509_CertThumb ... X509_CertThumb returns 40 for AliceRSASignByCarl.cer b30c48855055c2e64ce3196492d4b83831a6b3cb
VB.NET
Console.WriteLine("Testing X509_CertThumb ...")
Dim strCertName As String
Dim strHexHash As String
strCertName = "AliceRSASignByCarl.cer"
strHexHash = X509.CertThumb(strCertName, HashAlgorithm.Sha1)
Console.WriteLine("X509_CertThumb returns " & strHexHash.Length & " for " & strCertName)
Console.WriteLine(strHexHash)
[Contents]