Otimize seus Perl scripts

Otimize seus Perl scripts
Otimize seus scripts PERL inserindo cores, sons, formas, etc.
Utilizando o módulo PDPM você personaliza seus scripts e deixa com uma interface muito mais organizada e intuitiva.
O módulo é 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 módulo contem várias funções devidamente pré programadas. O PROMPT DRAW PERL MODULE é um módulo desenvolvido para auxiliar na parte gráfica de seu Script tornando a interface mais organizada e objetiva.

 Características do Módulo
 O PROMPT DRAW PERL MODULE não é um aplicativo comum, o módulo atua sobre Scripts Perl desenvolvidos para Windows. Sua utilização requer conhecimentos em linguagem Perl.

Inclusão do módulo:
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ÇÕES 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;

Execute o script (“PortScan.pl”).



 Download do Módulo

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


 
  • 24/04/2011

  • by Insecuritynet

Compartilhar

logo