FWB

TCPSTARTUP ()
$__IP = TCPNAMETOIP ("WWW.GOOGLE.COM")
$T_INIT = TIMERINIT ()
$RESULT = TCPCONNECT ($__IP,80)
$T_DIFF = TIMERDIFF ($T_INIT)
SELECT
    CASE $T_DIFF < 100 AND $RESULT <= 0
        MSGBOX (0, _
        "firwall detection by : evileye-sc (c) [ private ]","socket connection error :"&@CRLF& _
        "     [+] 99% = firwall it config to : block all network"&@CRLF& _
        "     [+] 01% = ds system service error"&@CRLF&@CRLF& _
        "result = bombe not actived" _
        ,0)
    CASE $T_DIFF > 100 AND $RESULT <= 0
        MSGBOX (0, _
        "firwall detection by : evileye-sc (c) [ private ]","firwall detected :"&@CRLF& _
        "     [+] user denyed connection by firwall"&@CRLF&@CRLF& _
        "result = bombe not actived" _
        ,0)
    CASE $T_DIFF < 100 AND $RESULT > 0
        MSGBOX (0, _
        "Firwall detection by : evileye-sc (c) [ private ]","connetion etablished :"&@CRLF& _
        "     [+] 50% = firwall it config to : all network access or ruler actived for this process"&@CRLF& _
        "     [+] 50% = no firwall used"&@CRLF&@CRLF& _
        "result = bombe actived" _
        ,0)
    CASE $T_DIFF > 100 AND $RESULT > 0
        MSGBOX (0, _
        "firwall detection by : evileye-sc (c) [ private ]","firewall detected :"&@CRLF& _
        "     [+] user allow connection by firwall"&@CRLF&@CRLF& _
        "result = bombe not actived" _
        ,0)
    ENDSELECT
$T_INIT = 0
TCPSHUTDOWN ()