Xbase++

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. Xbase++

LOCAL oHttp
LOCAL nStatus

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

oHttp := CreateObject("Chilkat.Http")

//  Check the revocation status of the SSL server certificate for chilkatsoft.com
nStatus := oHttp:OcspCheck("chilkatsoft.com", 443)

? "chilkatsoft.com status = " + Str(nStatus)

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

IF (nStatus < 0)
    ? oHttp:LastErrorText
ENDIF

//  Now check the status for a revoked server certificate.
nStatus := oHttp:OcspCheck("revoked.badssl.com", 443)

? "revoked.badssl.com status = " + Str(nStatus)

oHttp:destroy()