;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
; Scanneur de serveurs : SERVOX 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 

;; Scanneur Servox (pour HTTP, IRC...) 

alias servox { 
if (($1 != $null) || ($2 != $null) || ($3 != $null) || ($4 != $null)) { 
sockclose servox* 
if (%type == $null) set %type $?="Type de serveur à scanner ?" 
if (%portscan == $null) set %portscan $?="Port à scanner ?" 
unset %s3 
unset %s4 

set %s3 $3 
set %s4 $4 

set %chrono 1 

set %dns JPS 
window -e @SERVOX 
titlebar @SERVOX Scanneur de systèmes %type sur le port %portscan 

aleascan $1 $2 %s3 %s4 
} 
} 


;======================================== 

alias aleascan { 
if (%dns == JPS) { 
unset %site 
set %s3 $3 
set %s4 $4 
set %site $1 $+ . $+ $2 $+ . $+ %s3 $+ . $+ %s4 
sockopen servox $+ $rand(0,100000) $1 $+ . $+ $2 $+ . $+ %s3 $+ . $+ %s4 %portscan 
aline -ph 1 @SERVOX $1 $+ . $+ $2 $+ . $+ %s3 $+ . $+ %s4 

if (%s4 >= 255) { 
set %s4 1 
set %s3 $calc(%s3 + 1) 
} 

if (%s3 > 255) { 
set %s4 1 
} 

.timerjps $+ %chrono -m 1 1500 .aleascan $1 $2 %s3 $calc(%s4 + 1) 

inc %chrono 1 
} 
} 

;========================================= 

alias shutservox { 
unset %portscan 
unset %type 
unset %dns 
sockclose servox* 
notice $me Servox : Fermeture du scan de systèmes %type 
} 

;========================================= 

on *:sockopen:servox*:{ 
if ($sockerr > 0) { 
sockclose $sockname 
return 
} 
sockwrite -n $sockname GET / HEADERS 
dns $sock($sockname).ip 

aline -ph 12 @SERVOX $sock($sockname).ip :: port %portscan ouvert 
write c:\windows\bureau\Servox- $+ %type $+ .lwp $sock($sockname).ip Port %portscan ouvert 
.run c:\progra~1\intern~1\iexplore.exe http:// $+ $sock($sockname).ip $+ / 
} 

;========================================== 


on *:sockread:servox*:{ 
if ($sockerr > 0) return 
:scan 
sockread %crack 
if ($sockbr == 0) return 
if (%crack != $null) { 

if ((%portscan == 80) && (Server: isin %crack)) { 
aline -ph 4 @SERVOX $sock($sockname).ip :: Système %type détecté :: %crack 
write c:\windows\bureau\Servox- $+ %type $+ .lwp $sock($sockname).ip :: Système %type détecté :: %crack 
} 
if (%portscan != 80) { 
aline -ph 4 @SERVOX $sock($sockname).ip :: Système détecté :: port %portscan ouvert 
} 

} 
goto scan 
} 

;=========================================== 

on *:dns:{ 
if (%dns == JPS) { 
aline -ph 4 @SERVOX $address :: $naddress 
write c:\windows\bureau\Servox- $+ %type $+ .lwp $address :: $naddress 
} 
} 

;===================