[Perl] Codificator version consola

#!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 ? 

  @@@            @ @   @ @             @
 @   @           @    @                @
@       @@@   @@ @ @ @@@ @  @@@   @@@ @@@  @@@  @ @
@      @   @ @  @@ @  @  @ @   @ @   @ @  @   @ @@
@      @   @ @   @ @  @  @ @      @@@@ @  @   @ @
@      @   @ @   @ @  @  @ @     @   @ @  @   @ @
 @   @ @   @ @  @@ @  @  @ @   @ @  @@ @  @   @ @
  @@@   @@@   @@ @ @  @  @  @@@   @@ @ @@  @@@  @




[+] 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 :