Requer a instalação do módulo:"PROMPT DRAW PERL MODULE"
------------------
#!/usr/bin/perl
# Perl Port Scanner v1.
# Author: Edson Duarte
# Version 1: Example of Application (PROMPT DRAW PERL MODULE)
# S.O.: Windows
use prompt_draw_insecuritynet;
use IO::Socket;
inet_color_geral(0,10);
inet_color_local(0,10);
inet_quadro(1,1,65,19);
inet_color_local(2,10);
inet_quadro(0,0,57,1);
inet_gotoxy(2,1);
inet_color_local(0,10);
print "PORT SCAN - PROMPT DRAW PERL MODULE ";
inet_color_local(0,10);
inet_color_local(0,2);
inet_gotoxy(46,22);
print "www.insecuritynet.com";
inet_color_local(0,2);
inet_gotoxy(4,18);
print "PERL SCRIPT";
inet_color_local(0,12);
inet_line(3,17,12,1);
inet_line(3,19,12,1);
inet_gotoxy(2,5);
inet_color_local(0,15);
print"IP.............:";
inet_color_local(0,9);
chomp(my $server = );
inet_gotoxy(2,6);
inet_color_local(0,15);
print"Porta Inicial..:";
inet_color_local(0,9);
chomp(my $porta_ini = );
inet_gotoxy(2,7);
inet_color_local(0,15);
print"Porta Final....:";
inet_color_local(0,9);
chomp(my $porta_fin = );
$valport = "0";
if($porta_ini < "1" or $porta_ini > "65536"){$valport="1";}
if($porta_fin < "1" or $porta_fin > "65536"){$valport="1";}
if($valport=="1"){inet_gotoxy(2,9);
inet_color_local(0,12);
print "Porta Invalida";
inet_pause;
exit(1);
}
if($porta_ini >= $porta_fin){inet_gotoxy(2,9);
inet_color_local(0,12);
print "A porta final deve ser maior que a inicial";
inet_pause;
exit(1);
}
$total_port = "$porta_fin" - "$porta_ini";
$n_scan ="0";
$porta="$porta_ini";
$pyop=6;
$pxop=43;
inet_gotoxy(32,6);
inet_color_local(0,8);
print "OPEN PORTS:";
while($porta <= $porta_fin){inet_barra_status(4,11,$total_port,$n_ scan);
$n_scan++;
$socket = new IO::Socket::INET (
PeerAddr => $server,
PeerPort => $porta,
Proto => "tcp",
Timeout => 1);
inet_gotoxy(4,13);
inet_color_local(0,9);
print "Scan Port:";
inet_color_local(0,15);
print "$porta ";
if($socket){inet_color_local(0,10);
print "ON ";
inet_alertsond;
inet_gotoxy($pxop,$pyop);
print "$porta ";
$pxop = "$pxop" + "6";
if($pxop > 61){$pyop++;
$pxop = "43";}
}else{inet_color_local(0,12);
print " OFF ";}
$porta++;
}
inet_gotoxy(4,13);
inet_color_local(0,14);
print "Scan Completo ";
inet_gotoxy(17,13);
inet_pause;
------------------------
Download do Projeto:
* Ativador Perl
* Modulo
* Script
Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...
Comment