[Perl] Scan Port 0.6

en: Mayo 19, 2012, 12:27:20 pm

Un simple scanner port hecho en Perl.

Código: Perl

#!usr/bin/perl
#ScanPort 0.6
#Coded By Doddy H
#Examples
#perl scan.pl -target localhost -option fast
#perl scan.pl -target localhost -option full -parameters 1-100
 
use IO::Socket;
use Getopt::Long;
 
GetOptions(
    "-target=s"     => \$target,
    "-option=s"     => \$opcion,
    "-parameters=s" => \$parameters
);
 
head();
unless ($target) {
    sintax();
}
else {
    if ( $opcion eq "fast" ) {
        scanuno($target);
    }
    if ( $opcion eq "full" and $parameters ) {
        if ( $parameters =~ /(.*)-(.*)/ ) {
            my $start = $1;
            my $end   = $2;
            scandos( $target, $start, $end );
        }
    }
}
 
copyright();
 
sub scanuno {
 
    my %ports = (
        "21"   => "ftp",
        "22"   => "ssh",
        "25"   => "smtp",
        "80"   => "http",
        "110"  => "pop3",
        "3306" => "mysql"
    );
 
    print "\n<ul class="bbc_list"><li type="square"> Scanning $_[0]\n\n\n";[/li][/list]
 
    for my $port ( keys %ports ) {
 
        if (
            new IO::Socket::INET(
                PeerAddr => $_[0],
                PeerPort => $port,
                Proto    => "tcp",
                Timeout  => 0.5
            )
          )
        {
            print "</li><li type="square"> Port Found : " [/li][/list]
              . $port
              . " [Service] : "
              . $ports{$port} . "\n";
        }
    }
    print "\n\n</li><li type="square"> Scan Finished\n";[/li][/list]
}
 
sub scandos {
 
    print "\n</li><li type="square"> Scanning $_[0]\n\n\n";[/li][/list]
 
    for my $port ( $_[1] .. $_[2] ) {
 
        if (
            new IO::Socket::INET(
                PeerAddr => $_[0],
                PeerPort => $port,
                Proto    => "tcp",
                Timeout  => 0.5
            )
          )
        {
            print "</li><li type="square"> Port Found : $port\n";[/li][/list]
        }
    }
    print "\n\n</li><li type="square"> Scan Finished\n";[/li][/list]
}
 
sub head {
    print "\n-- == ScanPort 0.6 == --\n\n";
}
 
sub copyright {
    print "\n\n-- == (C) Doddy Hackman 2012 == --\n\n";
}
 
sub sintax {
    print
"\n</li><li type="square"> sintax : $0 -target <target> -option fast/full -parameters <1-9999>\n";[/li][/list]
}
 
# The End ?
 
 

Tutorial perl desde cero By: Black Poision & Painboy Iniciado por ProcessKill	Respuestas: 2 Vistas: 5331	Septiembre 02, 2011, 09:43:36 pm por blozzter
[Perl] Verificando si es root para correr un script Iniciado por c1st	Respuestas: 1 Vistas: 3474	Octubre 07, 2012, 06:01:39 pm por ANTRAX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl Iniciado por tar3kw0rm3d	Respuestas: 0 Vistas: 3018	Junio 02, 2013, 08:01:28 pm por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List Iniciado por BigBear	Respuestas: 0 Vistas: 2560	Noviembre 12, 2012, 07:32:11 pm por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL] Iniciado por SkillmaX	Respuestas: 0 Vistas: 2598	Julio 04, 2010, 10:14:31 am por SkillmaX

Underc0de - Hacking y seguridad informática

[Perl] Scan Port 0.6

BigBear

[Perl] Scan Port 0.6

Similar topics (5)