X509_CertSerialNumber

Extracts serial number of X.509 certificate.

VB6/VBA

Debug.Print "Testing X509_CertSerialNumber ..."
Dim nRet As Long
Dim strCertName As String
Dim strOutput As String * 64
 
strCertName = "BobRSASignByCarl.cer"    ' Set dir to suit
nRet = X509_CertSerialNumber(strCertName, strOutput, Len(strOutput), 0)
Debug.Print "X509_CertSerialNumber returns " & nRet & " for " & strCertName & ": " & strOutput

Output

Testing X509_CertSerialNumber ...
X509_CertSerialNumber returns 32 for BobRSASignByCarl.cer: 46346bc7800056bc11d36e2ecd5d71d0                                

VB.NET

Console.WriteLine("Testing X509_CertSerialNumber ...")
Dim strCertName As String
Dim strOutput As String

strCertName = "BobRSASignByCarl.cer"    ' Set dir to suit
strOutput = X509.CertSerialNumber(strCertName)
Console.WriteLine("X509_CertSerialNumber returns " & strOutput.Length & " for " & strCertName & ": " & strOutput)

[Contents]