Example: X509.CheckCertInCRL  X509.Revoked 

[VB6 equivalent: X509_CheckCertInCRL]

Dim nRet As Integer
Dim strCrlFile As String
Dim strCertFile As String
Dim strDate As String

' Use test CRL and certs from RFC3280
strCrlFile = "rfc3280bis_CRL.crl"
' This cert has not been revoked.
strCertFile = "rfc3280bis_cert1.cer"
Console.WriteLine("CrlFile=" & strCrlFile)
Console.WriteLine("CertFile=" & strCertFile)
nRet = X509.CheckCertInCRL(strCertFile, strCrlFile, "", "")
Console.WriteLine("X509_CheckCertInCRL returns " & nRet)
If nRet = X509.Revoked Then
    Console.WriteLine("CERT HAS BEEN REVOKED")
ElseIf nRet = 0 Then
    Console.WriteLine("Cert has not been revoked")
Else
    Console.WriteLine("ERROR: " & General.ErrorCode & ": " & General.LastError())
End If

' This cert has been revoked.
strCertFile = "rfc3280bis_cert2.cer"
Console.WriteLine("CrlFile=" & strCrlFile)
Console.WriteLine("CertFile=" & strCertFile)
nRet = X509.CheckCertInCRL(strCertFile, strCrlFile, "", "")
Console.WriteLine("X509_CheckCertInCRL returns " & nRet)
If nRet = X509.Revoked Then
    Console.WriteLine("CERT HAS BEEN REVOKED")
ElseIf nRet = 0 Then
    Console.WriteLine("Cert has not been revoked")
Else
    Console.WriteLine("ERROR: " & General.ErrorCode & ": " & General.LastError())
End If

' But the same cert was not revoked as at 15:00 GMT on 19 November 2004
strCertFile = "rfc3280bis_cert2.cer"
strDate = "2004-11-19T15:00Z"
Console.WriteLine("CrlFile=" & strCrlFile)
Console.WriteLine("CertFile=" & strCertFile)
Console.WriteLine("Date=" & strDate)
nRet = X509.CheckCertInCRL(strCertFile, strCrlFile, "", strDate)
Console.WriteLine("X509_CheckCertInCRL(" & strDate & ") returns " & nRet)
If nRet = X509.Revoked Then
    Console.WriteLine("CERT HAS BEEN REVOKED")
ElseIf nRet = 0 Then
    Console.WriteLine("Cert has not been revoked")
Else
    Console.WriteLine("ERROR: " & General.ErrorCode & ": " & General.LastError())
End If

See Also:
X509.CheckCertInCRL Method

[Contents] [Index]