(PureBasic) OCSP Check Domain's Server Certificate Revocation Status

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

Note: This example requires Chilkat v9.5.0.84 or greater.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttp.pb"

Procedure ChilkatExample()

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Check the revocation status of the SSL server certificate for chilkatsoft.com
    status.i = CkHttp::ckOcspCheck(http,"chilkatsoft.com",443)

    Debug "chilkatsoft.com status = " + Str(status)

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

    If status < 0
        Debug CkHttp::ckLastErrorText(http)
    EndIf

    ; Now check the status for a revoked server certificate.
    status = CkHttp::ckOcspCheck(http,"revoked.badssl.com",443)

    Debug "revoked.badssl.com status = " + Str(status)


    CkHttp::ckDispose(http)


    ProcedureReturn
EndProcedure