Calculates the message digest hash of the issuer-and-serial-number value of an X.509 certificate.
VB6/VBA
Debug.Print "Testing X509_HashIssuerAndSN ..."
Dim nRet As Long
Dim strCertName As String
Dim strOutput As String * PKI_MAX_HASH_CHARS
strCertName = "BobRSASignByCarl.cer" ' Set dir to suit
nRet = X509_HashIssuerAndSN(strCertName, strOutput, Len(strOutput), 0)
Debug.Print "X509_HashIssuerAndSN returns " & nRet & " for " & strCertName & ": " & Left(strOutput, nRet)
Output
Testing X509_HashIssuerAndSN ... X509_HashIssuerAndSN returns 40 for BobRSASignByCarl.cer: 483538bca32adeb3134fe9f74d1ae74cc9ed2e9e
VB.NET
Console.WriteLine("Testing X509_HashIssuerAndSN ...")
Dim strCertName As String
Dim strOutput As String
strCertName = "BobRSASignByCarl.cer" ' Set dir to suit
strOutput = X509.HashIssuerAndSN(strCertName, HashAlgorithm.Sha1)
Console.WriteLine("X509_HashIssuerAndSN returns " & strOutput.Length & " for " & strCertName & ": " & strOutput)
[Contents]