Underc0de
Programación Scripting => Perl => Mensaje iniciado por: BigBear en Julio 03, 2011, 10:06:35 PM
Un simple codificador
Soportes :
- Hex encode/decode
- MD5 encode
- Base64 encode/decode
- ASCII encode/decode
- URL encode/decode
#!usr/bin/perl
#Codificator version consola (C) Doddy Hackman 2011
#This tool encode in :
#
#Hex
#MD5
#Base64
#ASCII
#URL
#
#
use Digest::MD5;
use Digest::SHA1;
use MIME::Base64;
use URI::Escape;
sub head {
system("cls");
print q(
@@@ @ @ @ @ @
@ @ @ @ @
@ @@@ @@ @ @ @@@ @ @@@ @@@ @@@ @@@ @ @
@ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @@
@ @ @ @ @ @ @ @ @ @@@@ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @@ @ @ @ @ @ @ @@ @ @ @ @
@@@ @@@ @@ @ @ @ @ @@@ @@ @ @@ @@@ @
);
}
head();
print "\n[+] Options\n\n";
print q(
1 - MD5 encode
2 - Base64 encode
3 - Base64 decode
4 - Ascii encode
5 - Ascii decode
6 - Hex encode
7 - Hex decode
8 - URL encode
9 - URL decode
10 - Exit
);
while(true) {
print "\n\n[+] Option : ";
chomp(my $op = <stdin>);
print "\n\n";
if ($op eq 1) {
print "[+] String : ";
chomp(my $string = <stdin>);
print "\n\n[+] MD5 : ".Digest::MD5->md5_hex($string)."\n\n";
}
elsif ($op eq 2) {
print "[+] String : ";
chomp(my $string = <stdin>);
print "\n\n[+] Base64 : ".encode_base64($string);
}
elsif ($op eq 3) {
print "[+] String : ";
chomp(my $string = <stdin>);
print "\n\n[+] Base64 Decode : ".decode_base64($string)."\n";
}
elsif ($op eq 4) {
print "[+] String : ";
chomp(my $string = <stdin>);
print "\n\n[+] Ascii : ".join ',',unpack "U*",$string;
print "\n";
}
elsif ($op eq 5) {
print "[+] String : ";
chomp(my $string = <stdin>);
print "\n\n[+] Ascii decode : ".join q[], map { chr } split q[,],$string."\n";
print "\n";
}
elsif ($op eq 6) {
print "[+] String : ";
chomp(my $string = <stdin>);
$hex = "0x";
for (split //,$string) {
$hex .= sprintf "%x", ord;
}
print "\n\n[+] Hex : ".$hex."\n";
}
elsif ($op eq 7) {
print "[+] String : ";
chomp(my $string = <stdin>);
$string =~ s/^0x//;
$encode = join q[], map { chr hex } $string =~ /../g;
print "\n\n[+] Hex decode : ".$encode."\n";
}
elsif ($op eq 8) {
print "[+] String : ";
chomp(my $string = <stdin>);
print "\n\n[+] URL Encode : ".uri_escape($string)."\n";
}
elsif ($op eq 9) {
print "[+] String : ";
chomp(my $string = <stdin>);
print "\n\n[+] URL Decode : ".uri_unescape($string)."\n";
}
elsif ($op eq 10) {
copyright();
exit(1);
}
else {
print "[+] Write good stupid !\n";
}
}
sub copyright {
print "\n-- == Doddy Hackman 2011 == --\n\n";
}
# ¿The End ?
Ejemplo de uso
@@@ @ @ @ @ @
@ @ @ @ @
@ @@@ @@ @ @ @@@ @ @@@ @@@ @@@ @@@ @ @
@ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @@
@ @ @ @ @ @ @ @ @ @@@@ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @@ @ @ @ @ @ @ @@ @ @ @ @
@@@ @@@ @@ @ @ @ @ @@@ @@ @ @@ @@@ @
[+] Options
1 - MD5 encode
2 - Base64 encode
3 - Base64 decode
4 - Ascii encode
5 - Ascii decode
6 - Hex encode
7 - Hex decode
8 - URL encode
9 - URL decode
10 - Exit
[+] Option :