[Perl TK] Codificator

#!usr/bin/perl
#Codificator (C) Doddy Hackman 2011

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

if ($^O eq 'MSWin32') {
use Win32::Console; 
Win32::Console::Free();
}

$header= "This tool encode text in :

Hex
SHA1
MD5
Base64
ASCII
URL


";

$window = MainWindow->new(-background=>"black",-foreground=>"white");
$window->geometry("500x500+80+80");
$window->title("Codificator (C) Doddy Hackman 2011");
$window->resizable(0,0);
$window->Label(-background=>"black",-foreground=>"white",-font=>"Impact",-text=>"Codificator")->pack();
$window->Label(-background=>"black",-foreground=>"white")->pack();
$window->Label(-background=>"black",-foreground=>"white")->pack();
$window->Label(-background=>"black",-foreground=>"white",-text=>"Code")->place(-x =>180, -y => 70);
$window->Optionmenu(-background=>"black",-foreground=>"white",-activebackground=>'white',
-options => [[HEX=>HEX], [ASCII=>ASCII], [BASE64=>BASE64], [MD5=>MD5],[SHA1=>SHA1],[URL=>URL]],   
-variable => \$var,
-textvariable => \$codificacion
)->place(-x =>220, -y => 70);
my $rot = $window->Text(-background=>"black",-foreground=>"white",-width=> 45,-height=> 15)->place(-x =>90, -y => 150);
$window->Button(-text=>"Encode",-background=>"black",-foreground=>"white",-activebackground=>"white",-command=>\&encode,-width=>"10")->place(-x =>12, -y => 170);
$window->Button(-text=>"Decode",-background=>"black",-foreground=>"white",-activebackground=>"white",-command=>\&decode,-width=>"10")->place(-x =>12, -y => 200);
$window->Button(-text=>"Clear",-background=>"black",-foreground=>"white",-activebackground=>"white",-command=>\&clear,-width=>"10")->place(-x =>420, -y => 170);
$window->Button(-text=>"About",-background=>"black",-foreground=>"white",-activebackground=>"white",-command=>\&about,-width=>"10")->place(-x =>420, -y => 200);
$window->Button(-text=>"Exit",-background=>"black",-foreground=>"white",-activebackground=>"white",-command=>[$window=>'destroy'],-width=>"10")->place(-x =>420, -y => 230);
$window->Label(-background=>"black",-foreground=>"white",-text=>"Copyright 2011 Doddy Hackman",-font=>"Impact")->place(-x =>150, -y => 430);
$rot->insert('end',$header);

MainLoop;


sub about {
my $venta = MainWindow->new(-background=>"black");
$venta->geometry("300x180+20+20");
$venta->title("About");
$venta->resizable(0,0);
$venta->Label(-font=>"Impact",-text=>"\nCodificator",-background=>"black",-foreground=>"white")->pack();
$venta->Label(-text=>"\nProgrammer : Doddy Hackman\n\nContact : lepuke[at]hotmail[com]\n\n",-background=>"black",-foreground=>"white")->pack();
$venta->Button(-text=>"Exit",-foreground=>"white",-background=>"black",-command => [$venta => 'destroy'],-activebackground=>'white',-width=>"20")->pack()
}

sub clear {
$rot->delete('0.1','end');
}

sub encode {
$text = $rot->get("1.0", "end");
chomp $text;
&clear;
if ($codificacion eq "HEX") {
$result = hexar($text);
$rot->insert('end',$result);
print $result;
}

elsif ($codificacion eq "SHA1") {
$sha1 = Digest::SHA1->new->add($text);
my $digest = $sha1->digest;
$rot->insert('end',$digest);
}
elsif ($codificacion eq "BASE64") { 
$result = encode_base64($text);
$rot->insert('end',$result);
}
elsif ($codificacion eq "URL") {
my $codec  = Badger::Codec::URL->new();
my $ya = $codec->encode($text);
$rot->insert('end',$ya);
}
elsif ($codificacion eq "ASCII") {
$result = ascii($text);
$rot->insert('end',$result);
}
elsif ($codificacion eq "MD5") {
$digest = Digest::MD5->md5_hex($text);
$rot->insert('end',$digest);
}
else {
$window->messageBox(-message=>"What?!\n");
}}


sub decode {
$text = $rot->get("1.0", "end");
chomp $text;
&clear;
if ($codificacion eq "HEX") {
$result = decodera($text);
$rot->insert('end',$result);
}

elsif ($codificacion eq "SHA1") {
$window->messageBox(-message=>"What?! , it's not possible with a function decoded\n");
}
elsif ($codificacion eq "BASE64") { 
$result = decode_base64($text);
$rot->insert('end',$result);
}
elsif ($codificacion eq "URL") {
my $codec  = Badger::Codec::URL->new();
my $ya = $codec->decode($text);
$rot->insert('end',$ya);
}
elsif ($codificacion eq "ASCII") {
$result = ascii_de($text);
$rot->insert('end',$result);
}
elsif ($codificacion eq "MD5") {
$window->messageBox(-message=>"What?! , it's not possible with a function decoded\n");
}
else {
$window->messageBox(-message=>"What?!\n");
}}

sub hexar {
my $string = $_[0];
$hex = '0x';
for (split //,$string) {
$hex .= sprintf "%x", ord;
}return $hex;}

sub ascii {
return join ',',unpack "U*",$_[0]; 
}


sub decodera {
$_[0] =~ s/^0x//;
$encode = join q[], map { chr hex } $_[0] =~ /../g;
return $encode;
}

sub ascii_de {
$_[0] = join q[], map { chr } split q[,],$_[0];
return $_[0];
}

# ¿ The End ?