PROMPT DRAW PERL MODULE
Otimize seus scripts PERL inserindo cores, sons, formas, etc. Sobre
o produto
PERL
é umas das linguagens preferidas por administradores de
sistemas.
Basta instalar um Ativador Perl para que seu computador interprete
scripts PERL.
Recomendamos o Active Perl.
Clique aqui para baixá-lo.
Exemplo de Script:
#!/usr/bin/perl
(Salve como “Programa.pl”)
Módulo Perl é um componente de software destinado a
Scripts Perl. O modulo contem várias funções
devidamente pré programadas. O PROMPT DRAW PERL MODULE é
um modulo desenvolvido para auxiliar na parte gráfica de seu
Script tornando a interface mais organizada e objetiva.
O PROMPT DRAW PERL MODULE não é um aplicativo comum, o
modulo atua sobre Scripts Perl desenvolvidos para Windows. Sua
utilização requer conhecimentos em linguagem Perl.
ATRIBUIÇÃO DE
CORES:
inet_color_geral(cor_fundo,cor_fonte)
Determina um padrão de cores para todo o script
Exemplo:
#!/usr/bin/perl
inet_color_local(cor_fundo,cor_fonte) Determina um padrão de cores para escrita a
partir da função.
Exemplo:
#!/usr/bin/perl
Tabela
de Cores
0
= Preto
8
= Cinza
1
= Azul
9
= Azul claro
2
= Verde
10
= Verde claro
3
=
Verde-água
11
= Verde-água
claro
4
= Vermelho
12
= Vermelho
claro
5
=
Roxo
13
= Lilás
6
= Amarelo
14
= Amarelo claro
7
= Branco
15
= Branco
brilhante
inet_gotoxy(posicão_x,posição_y)
Determina a posição do cursor na janela do Prompt
de Comando
Exemplo:
#!/usr/bin/perl
FUNÇOES PARA
DESENHOS
Quadro:
inet_quadro(posicão_x,posicão_y,largura,altura);
Desenha um quadro
Exemplo:
#!/usr/bin/perl
Barra de Status:
inet_barra_status(posicão_x,posicão_y,valor_total,valor_parcial);
Exibe uma barra de status com a porcentagem atual.
Exemplo:
#!/usr/bin/perl
Linhas:
inet_line(posicão_x,posicão_y,tamanho,tipo)
Exibe uma linha
tipo 1 = vertical
tipo 2 = horizontal
Exemplos:
#!/usr/bin/perl
#!/usr/bin/perl
EFEITOS
Pausa:
inet_pause;
Pausa o Script (semelhante ao “pause” do MS_DOS).
Alerta sonoro:
inet_alertsond;
Emite um som de alerta
Veja como o PROMPT DRAW PERL MODULE pode ser aplicado à um
Port Scan, tornando seu script muito mais organizado.
Para executar o script é necessario o ativador PERL
Clique aqui para baixar o ACTIVE PERL.
Instale o PROMPT DRAW PERL MODULE
Salve o script abaixo como “PortScan.pl”
#!/usr/bin/perl # Perl Port Scanner
v1. # Author: Edson
Duarte # Version 1: Example of
Application (PROMPT DRAW PERL MODULE) # S.O.:
Windows # Module Download:
www.insecuritynet.com.br 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 <Example>"; 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 =
<STDIN>); inet_gotoxy(2,6); inet_color_local(0,15); print"Porta
Inicial..:"; inet_color_local(0,9); chomp(my $porta_ini =
<STDIN>); inet_gotoxy(2,7); inet_color_local(0,15); print"Porta
Final....:"; inet_color_local(0,9); chomp(my $porta_fin =
<STDIN>); $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;
Execute o script (“PortScan.pl”).
Sistema Operacional:
Windows XP / Vista / Seven
Licença:
Freeware
Tamanho:
788 KB
Empresa:
Insecuritynet
CURSO PPAS Programação
em Perl aplicada à
Segurança Aprenda
a programar utilizando umas das linguagens preferidas por
administradores de sistemas. evido
á sua praticidade, Perl é uma linguagem muito útil
para programação de ferramentas voltadas à
segurança. Saiba
mais
Tabs
List
