Own3D

;------------------------------------------------------------ 
;---------scanner mrud--------------------------------------- 
;-utilisation : 
;-trouver une ip à partir d'un dns/url.. -> /iplookup www.skyblog.com 
;-scanner un port sur 254 ip -> /scip 212.129.63.0 80 
;->si le port se trouve être le 80 (http), vous aurez le serveur qui tourne dessus. 
;-scanner les ports de 1 à 1024 -> /scpo 212.129.63.216 
;-scanner des ports précis -> /scpa 212.129.63.216 21,23,25,80,110,139,445 
;------------------------------------------------------------ 
alias iplookup { sockopen lkip $1 80 | echo -at [9iplookup] - - $1 } 
on *:sockopen:lkip:{ echo -at [9iplookup] - 9ip : $sock($sockname).ip - 9table : $puttok($sock($sockname).ip,0,4,46) | sockclose lkip } 
;------------------------------------------------------------ 
alias scip { sockclose scip* 
var %i 1 
while (%i <= 254) { 
sockopen $+(scip,%i) $calc($longip($1) + %i) $2 
inc %i 
} 
echo -at [9scip] - - 9table : $1 - 9port : $2 
} 
on *:sockopen:scip*:{ 
if ((!$sockerr) && ($sock($sockname).port != 80)) { echo -at [9scip] [3+] 9ip : $longip($sock($sockname).ip) 9port : $sock($sockname).port 3open | sockclose $sockname } 
if ((!$sockerr) && ($sock($sockname).port = 80)) { sockwrite $sockname get / /// $+ $str($crlf,4) } 
;if ($sockerr) { echo -at [9scip] [4+] 9ip : $longip($sock($sockname).ip) 9port : $sock($sockname).port 4close | sockclose $sockname } 
} 
on *:sockread:scip*:{ 
sockread %a 
if (server isin %a) { echo -at [9scip] [0+] 9ip: $longip($sock($sockname).ip) - %a | sockclose $sockname } 
} 
;------------------------------------------------------------ 
alias scpo { sockclose scpo* 
var %i 1 
while (%i <= 1024) { 
sockopen $+(scpo,%i) $1 %i 
inc %i 
} 
echo -a $timestamp [9scpo] - - 9ip : $1 
} 
on *:sockopen:scpo*:{ 
if ((!$sockerr) && ($sockname)) { echo -at [9scpo] [3+] 9ip : $sock($sockname).ip 9port : $sock($sockname).port 3open | sockclose $sockname } 
if ($sockerr) { sockclose $sockname } 
} 
;------------------------------------------------------------ 
alias scpa { 
var %i 1, %nbport $numtok($2-,44) 
while (%i <= %nbport) { 
sockopen $+(scpa,%i) $1 $gettok($2-,%i,44) 
inc %i 
} 
echo -a $timestamp [9scpa] - - 9ip : $1 
} 
on *:sockopen:scpa*:{ 
if (!$sockerr) { echo -at [9scpa] - 9ip : $sock($sockname).ip 9port : $sock($sockname).port 3open | sockclose $sockname } 
if ($sockerr) { echo -at [9scpa] - 9ip : $sock($sockname).ip 9port : $sock($sockname).port 4close | sockclose $sockname } 
} 
;------------------------------------------------------------ 
;------------------------------------------------------------