[PERL] Encoder max monster v1.0

[mdh3ll]

fla amigos!!
Escreve este codificador em perl e gostaria de disponibilizar para os amigos do forum
creio que seja bem útil para encodar tanto urls como partes de sources de programas.
basta rodar o programa e escolher o tipo de codificação.
ele suporta 10 tipos diferentes de codificação ^^

por exemplo se pegarmos meu nome mdh3ll
ele é capaz de criar as seguintes codificações ... basta selecionar no menu qual quer usar.
------------------------------------------------------------------------------------
%6d%64%68%33%6c%6c
%u006d%u0064%u0068%u0033%u006c%u006c
&#x6d&#x64&#x68&#x33&#x6c&#x6c
&#x006d&#x0064&#x0068&#x0033&#x006c&#x006c
\x6d\x64\x68\x33\x6c\x6c
\x06d\x064\x068\x033\x06c\x06c
\x006d\x0064\x0068\x0033\x006c\x006c
\x0006d\x00064\x00068\x00033\x0006c\x0006c
\x00006d\x000064\x000068\x000033\x00006c\x00006c
\x000006d\x0000064\x0000068\x0000033\x000006c\x000 006c
\u006d\u0064\u0068\u0033\u006c\u006c
------------------------------------------------------------------------------------

segue o source:

#!/usr/bin/perl
#========================//
#simple ENCODE-MAXMonster v1.0
#por MDH3LL
#brazilian
#mdh3ll@gmail.com
#source feio :(
#========================//
use Term::ReadKey;
$sis="$^O";
c: c();
sub c {
if ($sis eq MSWin32) { $cmd="\x63\x6c\x73"; } else { $cmd="\x63\x6c\x65\x61\x72"; } system($cmd);
print "\x50\x6f\x72\x20\x6d\x64\x68\x33\x6c\x6c\x20\x20\x20\x20\x20\x20\x2f\x2f\x42\x72\x61\x7a\x69\x6c\x69\x61\x6e\x20\x47\x65\x65\x6b\x73\x20\x5b\x3c\x6f\x3e\x5d\x20\x20\x20\x2f\x2f\x45\x4e\x43\x4f\x44\x45\x2d\x4d\x41\x58\x4d\x6f\x6e\x73\x74\x65\x72\x20\x56\x31\x2e\x30\n";
print q{
opcoes:
#URL/URI
[0]  -> Hex(%XX)
[1]  -> Unicode(%uUUUU)

#HTML-Entity
[2]  -> Hex(&#xXX)
[3]  -> Hex long(&#x00XX)

#IE Especific
[4]  -> (\xXX)
[5]  -> (\x0XX)
[6]  -> (\x00XX)
[7]  -> (\x000XX)
[8]  -> (\x0000XX)
[9]  -> (\x00000XX)
[a] -> (\uUUUU)
};
print "\n\x6f\x70\x63\x61\x6f\x20\x3a\x29\n\x3e\x3e";
ReadMode('cbreak');
$op = ReadKey(0);
ReadMode('normal');
$op =~ s/a/10/g;
if($op =~ /[1,2,3,4,5,6,7,8,9,10]/){
system("$cmd");
print "\x54\x65\x78\x74\x6f\x20\x73\x69\x6d\x70\x6c\x65\x73\x3a\n";
chomp ( $d = <> );
my $dx = unpack("\x48\x2a","$d");
chomp $dx;
my @list = ("%","%u00","&#x","&#x00","\\x","\\x0","\\x00","\\x000","\\x0000","\\x00000","\\u00");
$dx =~ s/((.){2})/@list[$op]$1/g;
system("$cmd");
print "\n$dx\n\n\x70\x72\x65\x63\x69\x6f\x6e\x65\x20\'\x65\x6e\x74\x65\x72\'\x20\x70\x72\x61\x20\x63\x6f\x6e\x74\x69\x6e\x75\x61\x72";
<>;
goto c;
}else{
print "\x41\x20\x6f\x70\x63\x61\x6f\x20$op\x20\x6e\x61\x6f\x20\x65\x78\x69\x73\x74\x65\n\x50\x72\x65\x63\x69\x6f\x6e\x65\x20\'\x45\x6e\x74\x65\x72\'\x20\x70\x61\x72\x61\x20\x73\x61\x69\x72";
<>;
exit 0;
}
}

irei trabalhar em uma nova versão com um source menor,mais limpo e com mais tipos de codificação.

[mdh3ll]

uma correção
na linha

if($op =~ /[1,2,3,4,5,6,7,8,9,10]/){

coloque

if($op =~ /[\d]/){

vacilei que nem bobo ai ushsuhsushushsu...

[netsoul]

eae, bom código irmao...

Uma ajudinha:

#!/usr/bin/perl

use Modern::Perl;
use Curses;

&calculo(&menu);

sub menu{
       	refresh();
	print q*
        Por mdh3ll      //Brazilian Geeks [<o>]   //ENCODE-MAXMonster V1.0\n";
	
	opcoes:
	#URL/URI
	[0]  -> Hex(%XX)
	[1]  -> Unicode(%uUUUU)

	#HTML-Entity
	[2]  -> Hex(&#xXX)
	[3]  -> Hex long(&#x00XX)

	#IE Especific
	[4]  -> (\\xXX)
	[5]  -> (\\x0XX)
	[6]  -> (\\x00XX)
	[7]  -> (\\x000XX)
	[8]  -> (\\x0000XX)
	[9]  -> (\\x00000XX)
	[10]  -> (\\uUUUU)"

        opcao :)
        >>*;
        my $a =<STDIN>;
}

sub calculo{
    if ($_[0] ~~ m@^\d{1}$|10@) {
            refresh();
            print "\tTexto simples: ";
            chomp(my $d = <STDIN>);
            my $dx = unpack('H*', $d);
            my(@list) = ('%', '%u00', '&#x', '&#x00', '\\x', '\\x0', '\\x00', '\\x000', '\\x0000', '\\x00000', '\\u00');
            $dx =~ s!((.){2})!$list[$_[0]]$1!g;
            say "\tResultado: $dx";
            say " \tPresione 'ENTER' pra continuar...";<STDIN>;
            &calculo(&menu);
    }
    else {
        die "\n\tA opcao nao existe.\n";
    }
}

Abraços.

[mdh3ll]

obrigado netsoul

^^

[mdh3ll]

Atualizei a ultima versão que escrevi....Agora traduzida para Inglês!! e arrumei alguns detalhes!!

#!/usr/bin/perl

# by MDH3LL
# mdh3ll@gmail.com
# 26/jan/2010
# Public

$sis="$^O";
if ($sis eq MSWin32) { $cmd="cls"; } else { $cmd="clear"; } system($cmd);
c: c();
sub c {
	 
    print "\tBy mdh3ll      //Brazil[<o>]   //Encode-max\n";
    print q{
    options:
    #URL/URI
    [0]  -> Hex(%XX)
    [1]  -> Unicode(%uUUUU)

    #HTML-Entity
    [2]  -> Hex(&#xXX)
    [3]  -> Hex long(&#x00XX)

    #IE Especific
    [4]  -> (\xXX)
    [5]  -> (\x0XX)
    [6]  -> (\x00XX)
    [7]  -> (\x000XX)
    [8]  -> (\x0000XX)
    [9]  -> (\x00000XX)
    [10]  -> (\uUUUU)
	
:};
chomp ($op = <>);
	 
if($op =~ m/^\d{1}$|^10$/){
     print "text >>\n";
     chomp ( $d = <> );
     my $dx = unpack('H*', $d);
     chomp $dx;
     my(@list) = ('%', '%u00', '&#x', '&#x00', '\\x', '\\x0', '\\x00', '\\x000', '\\x0000', '\\x00000', '\\u00');
     $dx =~ s/((.){2})/@list[$op]$1/g;
     print "Result:\n\n$dx";
	 print "\n\n\n<enter> to continue...";<>;
	 system("$cmd");
     goto c;
}else{
     print "The option \"$op\" does not exist.\n<enter> to exit";<>;
	 exit 0;
}
}

[gravetoumbra]

uma pergunta como que se compila "Perl"

ex: batch  *.bat

vlw!!!!!!!!!!!!!!