Example: Ocsp.MakeRequest 

[VB6 equivalent: OCSP_MakeRequest]

Dim strCertFile As String
Dim strIssuerFile As String
Dim strBuf As String

strIssuerFile = "UTNUSERFirst-Object.cer"
strCertFile = "dims.cer"

Console.WriteLine("IssuerFile=" & strIssuerFile)
Console.WriteLine("CertFile=" & strCertFile)
' Find required length (or error)
strBuf = Ocsp.MakeRequest(strIssuerFile, strCertFile, HashAlgorithm.Sha1)
Console.WriteLine("OCSP_MakeRequest returns " & strBuf.Length & "(expected +ve)")
Console.WriteLine("OCSPRequest=" & strBuf)

' Pass a hex serial number instead of filename
strCertFile = "#x 00 FB C7 23 22 8C 8C 80 22 D8 85 92 23 DE E7 06 60"
Console.WriteLine("Cert SerialNumber=" & strCertFile)
strBuf = Ocsp.MakeRequest(strIssuerFile, strCertFile, HashAlgorithm.Sha1)
Console.WriteLine("OCSP_MakeRequest returns " & strBuf.Length & "(expected +ve)")
Console.WriteLine("OCSPRequest=" & strBuf)

See Also:
Ocsp.MakeRequest Method

[Contents] [Index]