B4X

OCSP Check Domain's Server Certificate Revocation Status

See more HTTP Examples

Sends an OCSP request to determine the revocation status for an SSL server certificate. B4X

'  This example requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

Dim http As ChilkatHttp
http.Initialize("http")

'  Check the revocation status of the SSL server certificate for chilkatsoft.com
Dim status As Int = http.OcspCheck("chilkatsoft.com", 443)

Log("chilkatsoft.com status = " & status)

'  The status can have 4 values:
'  -1: Unable to check because of an error.
'   0: Good
'   1: Revoked
'   2: Unknown

If status < 0 Then
    Log(http.LastErrorText)
End If


'  Now check the status for a revoked server certificate.
status = http.OcspCheck("revoked.badssl.com", 443)

Log("revoked.badssl.com status = " & status)