Proyectos Script

[Erik#]

Esta es una manera de crear proyectos organizadamente ofrecida por nuestro compañero checmated.

Nombre: Escaner de puertos
Utilidad: Escanear puertos en modo ofensivo (Saber que puertos tiene abiertos una web)
Lenguaje: Perl
Avanzes: ACABADO
Objetivo: Crear un escaner de puertos en perl

Estructura: Haremos un escaner con doble forma de seleccion, la simple de 1 solo puerto y la máx. de x puerto a x puerto.
Utilizaremos una conexion por sockets y poco más .

Código (perl) [Seleccionar] Expandir

#!/usr/bin/perl
print "|--------------------------------------------|\n";
print "|     Escaner de puertos ofensivo by C.T     |\n";
print "|        Desarollador principal: Erik        |\n";
print "| Sistema operativo: Linux, FreeBSD, Windows |\n";
print "|    Otros desarolladores: Console Team      |\n";
print "|--------------------------------------------|\n";
use IO::Socket;
print "Introduce que sistema de escaner deseas utilizar:\n";
print "1. Simple (1 solo puerto)\n";
print "2. Máx (Del puerto x al puerto y)\n";
$opc = <STDIN>;
if($opc == 1){
print "Introduce la web a escanear: ";
$web = <STDIN>;
print "Introduce el puerto a escanear: ";
$puerto = <STDIN>;
$sockets = IO::Socket::INET->new(PeerAddr, "$web", PeerPort, "$puerto", Proto, 'tcp');
if($sockets) {
print "El puerto $ip esta abierto\n\n";
}
}
if($opc==2){
print "Introduce la web a escanear: ";
$web = <STDIN>;
print "Introduce el puerto de comienzo a escanear: ";
$puerto = <STDIN>;
print "Introduce el puerto de acabada a escanear: ";
$puertofin = <STDIN>;
for($puertototal = $puerto; $puertototal < $puertofin; $puertototal++){
$sockets = IO::Socket::INET->new(PeerAddr, "$web", PeerPort, "$puertototal", Proto, 'tcp');
if($sockets) {
print "El puerto $puertototal esta abierto\n";
}
}
}else{
print "ERROR: Introduce una opcion correcta\a";
}
print "\n\n\aEl escaner ha terminado de escanear, gracias por usar C.T Escaner\n\n";