 | PROMPT DRAW PERL MODULE Otimize seus Perl scripts |
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 ModuloO 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 ScriptVeja 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”).
Download do Módulo
| Sistema Operacional: | Windows XP / Vista / Seven |
| Licença: | Freeware |
| Tamanho: | 389 KB |
| Empresa: | Insecuritynet |
Download
Deseja aprender a programar em PERL?
Saiba mais sobre o Curso Online de programação em Perl.
