PROMPT DRAW PERL MODULE Otimize seus scripts PERL inserindo cores, sons, formas, etc.Utilizando o modulo PDPM voce personaliza seus scripts e deixa com uma interface muito mais organizada e intuitiva.O modulo e inteiramente gratis. O que e PERL? PERL e umas das linguagens preferidas por administradores de sistemas.Devido a sua praticidade, Perl e uma linguagem muito util para programacao de ferramentas voltadas a seguranca 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 baixa-lo. Exemplo de Script: #!/usr/bin/perl print \n Meu Primeiro Programa PERL; system pause > nul; (Salve como Programa.pl) O que e Modulo PERL?Modulo Perl e um componente de software destinado a Scripts Perl. O modulo contem varias funcoes devidamente pre programadas. O PROMPT DRAW PERL MODULE e um modulo desenvolvido para auxiliar na parte grafica de seu Script tornando a interface mais organizada e objetiva. Caracteristicas do ModuloO PROMPT DRAW PERL MODULE nao e um aplicativo comum, o modulo atua sobre Scripts Perl desenvolvidos para Windows. Sua utilizacao requer conhecimentos em linguagem Perl. Inclusao do modulo:use prompt_draw_insecuritynet; Funcoes:ATRIBUICAO DE CORES: inet_color_geral(cor_fundo,cor_fonte)Determina um padrao 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 padrao de cores para escrita a partir da funcao. 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 Cores0 = Preto1 = Azul2 = Verde3 = Verde-agua4 = Vermelho5 = Roxo6 = Amarelo7 = Branco8 = Cinza9 = Azul claro10 = Verde claro11 = Verde-agua claro12 = Vermelho claro13 = Lilas14 = Amarelo claro15 = Branco brilhantePOSICIONAMENTO DO CURSORinet_gotoxy(posicao_x,posicao_y) Determina a posicao do cursor na janela do Prompt de Comando Exemplo: #!/usr/bin/perluse 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; FUNCOES PARA DESENHOS Quadro: inet_quadro(posicao_x,posicao_y,largura,altura); Desenha um quadro Exemplo: #!/usr/bin/perluse prompt_draw_insecuritynet;inet_quadro(5,6,20,7);inet_pause; Barra de Status: inet_barra_status(posicao_x,posicao_y,valor_total,valor_parcial); Exibe uma barra de status com a porcentagem atual. Exemplo: #!/usr/bin/perluse prompt_draw_insecuritynet;inet_barra_status(5,6,100,75);inet_pause; Linhas: inet_line(posicao_x,posicao_y,tamanho,tipo)Exibe uma linhatipo 1 = verticaltipo 2 = horizontal Exemplos: #!/usr/bin/perluse prompt_draw_insecuritynet;inet_line(5,6,15,1);inet_pause; #!/usr/bin/perluse 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 a um Port Scan, tornando seu script muito mais organizado. Para executar o script e necessario o ativador PERLClique 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.bruse 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);printIP.............:;inet_color_local(0,9);chomp(my $server = <STDIN>);inet_gotoxy(2,6);inet_color_local(0,15);printPorta Inicial..:;inet_color_local(0,9);chomp(my $porta_ini = <STDIN>);inet_gotoxy(2,7);inet_color_local(0,15);printPorta 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 +