SCANNER IP , PORT , IPLOOKUP

;------------------------------------------------------------
;---------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 }
}
;------------------------------------------------------------
;------------------------------------------------------------

22 septembre 2005 19:47:56 :

fermeture des sockets avant leur lancement dans scip et scpo.