Perl Codificador-Encriptador 0.2

[BreakPoint]

Opciones:

* Hex

* SHA1

* MD5 (solo encode)

* Base64

* ASCII

* URL

>#!usr/bin/perl
#Codificator 0.2
#Coded By Doddy H
#This tool encode in :
#
#Hex
#MD5
#Base64
#ASCII
#URL
#
#

use Digest::MD5;
use Digest::SHA1;
use MIME::Base64;
use URI::Escape;

sub head {
   clean();
   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 =  );
   print "\n\n";
   if ( $op eq 1 ) {
       print "[+] String : ";
       chomp( my $string =  );
       print "\n\n[+] MD5 : " . Digest::MD5->md5_hex($string) . "\n\n";
   }
   elsif ( $op eq 2 ) {
       print "[+] String : ";
       chomp( my $string =  );
       print "\n\n[+] Base64 : " . encode_base64($string);
   }
   elsif ( $op eq 3 ) {
       print "[+] String : ";
       chomp( my $string =  );
       print "\n\n[+] Base64 Decode : " . decode_base64($string) . "\n";
   }
   elsif ( $op eq 4 ) {
       print "[+] String : ";
       chomp( my $string =  );
       print "\n\n[+] Ascii : " . join ',', unpack "U*", $string;
       print "\n";
   }
   elsif ( $op eq 5 ) {
       print "[+] String : ";
       chomp( my $string =  );
       print "\n\n[+] Ascii decode : " . join q[], map { chr } split q[,],
         $string . "\n";
       print "\n";
   }
   elsif ( $op eq 6 ) {
       print "[+] String : ";
       chomp( my $string =  );
       $hex = "0x";
       for ( split //, $string ) {
           $hex .= sprintf "%x", ord;
       }
       print "\n\n[+] Hex : " . $hex . "\n";
   }
   elsif ( $op eq 7 ) {
       print "[+] String : ";
       chomp( my $string =  );
       $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 =  );
       print "\n\n[+] URL Encode : " . uri_escape($string) . "\n";
   }
   elsif ( $op eq 9 ) {
       print "[+] String : ";
       chomp( my $string =  );
       print "\n\n[+] URL Decode : " . uri_unescape($string) . "\n";
   }
   elsif ( $op eq 10 ) {
       copyright();
       exit(1);
   }
   else {
       print "[+] Write good stupid !\n";
   }
}

sub clean {
   my $os = $^O;
   if ( $os =~ /Win32/ig ) {
       system("cls");
   }
   else {
       system("clear");
   }
}

sub copyright {
   print "\n-- == Doddy Hackman 2012 == --\n\n";
   ;
   exit(1);
}

# The End ?