; port scan 0.1
; pensado para operadores iRC-Hispano

; 17:30 19/05/2001
; [SaRRiO] <admin@sarrio.org>

; cogiendo de referencia el doc siguiente:
; http://www.irc-hispano.org/ayuda/seguridad/aproxys.html

on 1:start:{
  ; puertos por defecto
  ;set %pscan.puertos 81 1080 3128 8080 31337 6667
}

on 1:load:{
  set %pscan.version 0.1 | set %pscan.hora 17:30 19/05/2001

  set %pscan.puertos 81 1080 3128 8080 31337 6667 | set %pscan.timeout 15


  echo -s 
  echo -s port scan %pscan.version ( $+ %pscan.hora $+ )
  echo -s 
  echo -s Has cargado este pequeño scan de puertos sin ningun problema.
  echo -s Configuracion: TimeOut( $+ %pscan.timeout segundos) puertos( $+ %pscan.puertos $+ )
  echo -s 
  echo -s Sintaxis: /pscan [ip/host]
  echo -s Dudas, comentarios, bugs... /query [SaRRiO]
  echo -s 
}

on 1:sockopen:pscanhisp:{
  .timerpscantimeout off
  if ($sockerr > 0) { pscan.m   3 => $sock($sockname).port cerrado | sockclose $sockname | pscan.sig | return }
  pscan.m   4 => $sock($sockname).port abierto | sockclose $sockname | pscan.sig
}

alias pscan {
  if ($1 == $null) set %pscan.ip $$?="Introduce la ip o host a escanear:"
  else set %pscan.ip $1 
  sockclose pscanhisp
  pscan.m 
  pscan.m  Escaneando puertos de %pscan.ip
  unset %pscan.n 
  pscan.sig
  ;sockopen pscanhisp $1 $2
}

alias pscan.sig {
  if (%pscan.n == $null) set %pscan.n 0
  inc %pscan.n 1
  if ($1 == timeout) { pscan.m   3 => $2 cerrado (por timeout) | sockclose pscanhisp }
  if (%pscan.n > $wildtok(%pscan.puertos,*,0,32)) { pscan.m  Fin del scan a %pscan.ip | unset %pscan.ip %pscan.n | pscan.m  | return }
  .timer -m 1 1 sockopen pscanhisp %pscan.ip $wildtok(%pscan.puertos,*,%pscan.n,32)
  .timerpscantimeout 1 %pscan.timeout pscan.sig timeout $wildtok(%pscan.puertos,*,%pscan.n,32)
}

alias pscan.m {
  if ($window(@pscan).state == $null) window @pscan -1 -1 450 300
  echo @pscan $1-
}

menu @pscan {
  Iniciar scan: pscan
  -

  Puertos ( $+ %pscan.puertos $+ ):{
    set %pscantmp $$?="Introduce los puertos que se escanearan (Por defecto: 81 1080 3128 8080 31337 6667)"
    if (%pscantmp == $null) set %pscan.puertos 81 1080 3128 8080 31337 6667 | else set %pscan.puertos %pscantmp  
  }

  TimeOut ( $+ %pscan.timeout segundos):{
    set %pscantmp $$?="Introduce el tiempo en segundos que se considerara 'timeout' (Por defecto: 15) EN BLANCO NO EFECTUA CAMBIOS"
    if (%pscantmp == $null) set %pscan.timeout 15 | else set %pscan.timeout %pscantmp
  }
}