;#################################
; 
; BPA (Buscando Puertos Abiertos)
;       By [SaRRiO] 2000
;      sarrio@univers.org
;   http://sarrio.univers.org
;
;#################################


; para empezar comprobar si un puerto esta abierto pon: /bpa  
; ejemplos: /bpa KaT 12345 ; /bpa [SaRRiO] 20034 ; /bpa ChEvArA 1080


on 1:SOCKOPEN:socktcp*:{
  set %socktcp.tmp.ip $sock($sockname).ip
  set %socktcp.tmp.port $sock($sockname).port
  puertokees %socktcp.tmp.port capullo
  set %socktcp.tmp 1El usuario12 %socktcp.nick 10(6 $+ %socktcp.tmp.ip  $+ 10)1
  if ($sockerr > 0) { 
  set %socktcp.temp %socktcp.tmp tiene el puerto %socktcp.tmp.port cerrado... %puerto.ke.es
  }
  else set %socktcp.temp %socktcp.tmp tiene el puerto %socktcp.tmp.port abierto. %puerto.ke.es
  sockclose $sockname
  echo -s 12[-BPA-] %socktcp.temp
  unset %socktcp.* %puerto.ke.es
}

alias puertokees {
  if ($1 == 23) set %puerto.ke.es Telnet
  elseif ($1 == 21) set %puerto.ke.es FTP
  elseif ($1 == 80) set %puerto.ke.es HTTP
  elseif ($1 == 6667) set %puerto.ke.es IRC Server
  elseif ($1 == 113) set %puerto.ke.es Identd
  elseif ($1 == 59) set %puerto.ke.es DCC IP
  elseif ($1 == 8080) set %puerto.ke.es Proxy HTTP
  elseif ($1 == 110) set %puerto.ke.es POP3
  elseif ($1 == 25) set %puerto.ke.es SMTP
  elseif ($1 == 119) set %puerto.ke.es News
  elseif ($1 == 135) set %puerto.ke.es Win NT
  elseif ($1 == 139) set %puerto.ke.es NetBios
  elseif ($1 == 40426) set %puerto.ke.es Paradise
  elseif ($1 == 53) set %puerto.ke.es DNS
  elseif ($1 == 79) set %puerto.ke.es Finger
  elseif ($1 == 98) set %puerto.ke.es LinuxConf
  elseif ($1 == 1080) set %puerto.ke.es WinGate
  elseif ($1 == 12345) set %puerto.ke.es NetBus
  elseif ($1 == 21554) set %puerto.ke.es GirlFriend
  elseif ($1 == 12076) set %puerto.ke.es GJamer
  elseif ($1 == 20034) set %puerto.ke.es NetBus 2
  else {
   if ($2 == $null) set %puerto.ke.es DESCONOCIDO 
  }
  if (%puerto.ke.es != $null) set %puerto.ke.es ( $+ %puerto.ke.es $+ )
}

alias bpa {
  set %socktcp.nick $1 
  set %socktcp.port $2
  set %dns socktcp 
  dns $1
}

on 1:DNS:{
  if (%dns == socktcp) { sockopen socktcp $+ %socktcp.port $iaddress %socktcp.port }
  unset %dns
}

 Volver a la página principal