Otimize seus Perl scripts
Autor: MaxExpert | Publicado: 2012-05-13T14:22:00-07:00

<img alt="PROMPT DRAW PERL MODULE" class="alignleft size-full wp-image-1498" height="232" src="http://www.invasaohacking.com/wp-content/uploads/2011/04/box_prompt_draw.png" title="PROMPT DRAW PERL 
MODULE" width="161" />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 &gt; 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; <img alt="Otimize seus Perl scripts" class="size-full wp-image-1499 aligncenter" height="208" src="http://www.invasaohacking.com/wp-content/uploads/2011/04/prompt_draw002.jpg" title="Otimize seus Perl 
scripts" width="375" /> 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&nbsp; VERDE”; inet_color_local(0,12); print “\nTESTE VERMELHO”; inet_color_local(14,1); print “\nTESTE “; inet_pause; Tabela de  Cores0 &nbsp;&nbsp;&nbsp; = &nbsp;&nbsp;&nbsp; Preto
1 &nbsp;&nbsp;&nbsp; = &nbsp;&nbsp;&nbsp; Azul
2 &nbsp;&nbsp;&nbsp; = &nbsp;&nbsp;&nbsp; Verde
3 &nbsp;&nbsp;&nbsp; = &nbsp;&nbsp;&nbsp; Verde-água
4 &nbsp;&nbsp;&nbsp; = &nbsp;&nbsp;&nbsp; Vermelho
5 &nbsp;&nbsp;&nbsp; = &nbsp;&nbsp;&nbsp; Roxo
6 &nbsp;&nbsp;&nbsp; = &nbsp;&nbsp;&nbsp; Amarelo
7 &nbsp;&nbsp;&nbsp; = &nbsp;&nbsp;&nbsp; Branco
8 &nbsp;&nbsp;&nbsp; = &nbsp;&nbsp;&nbsp; Cinza
9 &nbsp;&nbsp;&nbsp; = &nbsp;&nbsp;&nbsp; Azul claro
10 &nbsp;&nbsp;&nbsp; = &nbsp;&nbsp;&nbsp; Verde claro
11 &nbsp;&nbsp;&nbsp; = &nbsp;&nbsp;&nbsp; Verde-água claro
12 &nbsp;&nbsp;&nbsp; = &nbsp;&nbsp;&nbsp; Vermelho claro
13 &nbsp;&nbsp;&nbsp; = &nbsp;&nbsp;&nbsp; Lilás
14 &nbsp;&nbsp;&nbsp; = &nbsp;&nbsp;&nbsp; Amarelo claro
15 &nbsp;&nbsp;&nbsp; = &nbsp;&nbsp;&nbsp; Branco brilhante
POSICIONAMENTO DO CURSORinet_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;&nbsp; 
 
 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&nbsp; 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 &lt;Example&gt;”;
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 = &lt;STDIN&gt;);
inet_gotoxy(2,6);
inet_color_local(0,15);
print”Porta Inicial..:”;
inet_color_local(0,9);
chomp(my $porta_ini = &lt;STDIN&gt;);
inet_gotoxy(2,7);
inet_color_local(0,15);
print”Porta Final….:”;
inet_color_local(0,9);
chomp(my $porta_fin = &lt;STDIN&gt;);
$valport = “0″;
if($porta_ini &lt; “1″ or $porta_ini &gt; “65536″){$valport=”1″;}
if($porta_fin &lt; “1″ or $porta_fin &gt; “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 &gt;= $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 &lt;=  $porta_fin){inet_barra_status(4,11,$total_port,$n_scan);
$n_scan++;
$socket = new IO::Socket::INET (
PeerAddr =&gt; $server,
PeerPort =&gt; $porta,
Proto =&gt; “tcp”,
Timeout =&gt; 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&nbsp; “;
inet_alertsond;
inet_gotoxy($pxop,$pyop);
print “$porta “;
$pxop = “$pxop” + “6″;
if($pxop &gt; 61){$pyop++;
$pxop = “43″;}
}else{inet_color_local(0,12);
print ” OFF&nbsp; “;}
$porta++;
}
inet_gotoxy(4,13);
inet_color_local(0,14);
print “Scan Completo&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; “;
inet_gotoxy(17,13);
inet_pause; 
 Execute o script (“PortScan.pl”).
&nbsp;Download  do Módulo

 

  Sistema Operacional:  Windows XP / Vista / Seven 
  Licença:  Freeware 
  Tamanho:  389 KB 
  Empresa:   Insecuritynet