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 {
@@@ @ @ @ @ @
@ @ @ @ @
@ @@@ @@ @ @ @@@ @ @@@ @@@ @@@ @@@ @ @
@ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @@
@ @ @ @ @ @ @ @ @ @@@@ @ @ @ @
@ @ @ @ @ @ @ @ @ @ @ @ @ @ @
@ @ @ @ @ @@ @ @ @ @ @ @ @@ @ @ @ @
@@@ @@@ @@ @ @ @ @ @@@ @@ @ @@ @@@ @
);
}
head();
print "\n[+] Options\n\n"; 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 : "; if ($op eq 1) {
chomp(my $string = <stdin>); print "\n\n[+] MD5 : ".Digest
::MD5->md5_hex($string)."\n\n"; }
elsif ($op eq 2) {
chomp(my $string = <stdin>); print "\n\n[+] Base64 : ".encode_base64
($string); }
elsif ($op eq 3) {
chomp(my $string = <stdin>); print "\n\n[+] Base64 Decode : ".decode_base64
($string)."\n"; }
elsif ($op eq 4) {
chomp(my $string = <stdin>); }
elsif ($op eq 5) {
chomp(my $string = <stdin>); }
elsif ($op eq 6) {
chomp(my $string = <stdin>); $hex = "0x";
}
print "\n\n[+] Hex : ".$hex."\n"; }
elsif ($op eq 7) {
chomp(my $string = <stdin>); $string =~ s/^0x//;
print "\n\n[+] Hex decode : ".$encode."\n"; }
elsif ($op eq 8) {
chomp(my $string = <stdin>); print "\n\n[+] URL Encode : ".uri_escape
($string)."\n"; }
elsif ($op eq 9) {
chomp(my $string = <stdin>); print "\n\n[+] URL Decode : ".uri_unescape
($string)."\n"; }
elsif ($op eq 10) {
copyright();
}
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 :