PROMPT DRAW PERL MODULE (Otimize seus Perl scripts)

Otimize seus scripts PERL inserindo cores, sons, formas, etc.
 Utilizando o modulo PDPM você personaliza seus scripts perl prompt 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";

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		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

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 "; 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;

Execute o script (“PortScan.pl”).

Informações : 

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

DOWNLOAD

Fonte : Insecuritynet