Otimize seus Perl scripts

quarta-feira, 27 de abril de 2011

PROMPT DRAW PERL MODULE Otimize seus scripts PERL inserindo cores, sons, formas, etc.
Utilizando o modulo PDPM você personaliza seus scripts e deixa com uma interface muito mais organizada e intuitiva.
O modulo é inteiramente grátis.
O que é PERL?
PERL é umas das linguagens preferidas por administradores de sistemas.
Devido á sua praticidade, Perl é uma linguagem muito útil para programação de ferramentas voltadas à segurança
Como executar scripts PERL no Windows?
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
print “\n Meu Primeiro Programa PERL”;
system “pause > nul”;
(Salve como “Programa.pl”)

O que é Módulo PERL?
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.
Características do Modulo
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.
Inclusão do modulo:
use prompt_draw_insecuritynet;
Funções:
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
use prompt_draw_insecuritynet;
inet_color_geral(1,10);
print “\n TESTE COR”;
inet_pause;

inet_color_local(cor_fundo,cor_fonte)
Determina um padrão de cores para escrita a partir da função.
Exemplo:
#!/usr/bin/perl
use prompt_draw_insecuritynet;
inet_color_local(0,10);
print “\nTESTE VERDE”;
inet_color_local(0,12);
print “\nTESTE VERMELHO”;
inet_color_local(14,1);
print “\nTESTE “;
inet_pause;

Tabela de Cores

0     =     Preto
1     =     Azul
2     =     Verde
3     =     Verde-água
4     =     Vermelho
5     =     Roxo
6     =     Amarelo
7     =     Branco
8     =     Cinza
9     =     Azul claro
10     =     Verde claro
11     =     Verde-água claro
12     =     Vermelho claro
13     =     Lilás
14     =     Amarelo claro
15     =     Branco brilhante

POSICIONAMENTO DO CURSOR

inet_gotoxy(posicão_x,posição_y)
Determina a posição do cursor na janela do Prompt de Comando
Exemplo:

#!/usr/bin/perl
use prompt_draw_insecuritynet;
inet_gotoxy(15,22);
print “TEXTO 1″;
inet_gotoxy(1,2);
print “TEXTO 2″;
inet_gotoxy(40,10);
print “TEXTO 3″;
inet_pause;

FUNÇOES PARA DESENHOS
Quadro:
inet_quadro(posicão_x,posicão_y,largura,altura);
Desenha um quadro
Exemplo:

#!/usr/bin/perl
use prompt_draw_insecuritynet;
inet_quadro(5,6,20,7);
inet_pause;

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
use prompt_draw_insecuritynet;
inet_barra_status(5,6,100,75);
inet_pause;

Linhas:
inet_line(posicão_x,posicão_y,tamanho,tipo)
Exibe uma linha
tipo 1 = vertical
tipo 2 = horizontal
Exemplos:

#!/usr/bin/perl
use prompt_draw_insecuritynet;
inet_line(5,6,15,1);
inet_pause;

#!/usr/bin/perl
use prompt_draw_insecuritynet;
inet_line(5,6,15,2);
EFEITOS
Pausa:
inet_pause;
Pausa o Script (semelhante ao “pause” do MS_DOS).
Alerta sonoro:
inet_alertsond;
Emite um som de alerta
Exemplo de Script
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;