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

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoHttp
    Integer iStatus
    String sTemp1

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

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    // Check the revocation status of the SSL server certificate for chilkatsoft.com
    Get ComOcspCheck Of hoHttp "chilkatsoft.com" 443 To iStatus

    Showln "chilkatsoft.com status = " iStatus

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

    If (iStatus < 0) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
    End

    // Now check the status for a revoked server certificate.
    Get ComOcspCheck Of hoHttp "revoked.badssl.com" 443 To iStatus

    Showln "revoked.badssl.com status = " iStatus


End_Procedure