BHG Base64 Encoder / Decoder

Hi Guys
Base64 Encoder / Decoder Perl


#!/usr/bin/perl
#BHG Base64 Encoder and Decoder
#Code By G3n3Rall
#Black Hat Group Security Center
#www.black-hg.org   ||| www.black-hg.org/cc/
#We Are : Net.Edit0r , A.Crox , 3H34N
#Am!n , tHe.K!ll3r , ArYaIeIrAn , G3n3Rall
#Mr.XHat , NoL1m1t , Dj.TiniVini , 4ut0n0m0us
#############
#My New Friendz
#Iranian Dark Coders
#www.idc-team.net  ||| www.idc-team.net/cc/
#M.R.S.CO , DevilZone , Mr.Cicili
#############
use MIME::Base64;
use Term::ANSIColor;

Menu:;
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print color 'bold red';
print "\n\t Base64 Encoder / Decoder \n\t\t www.Black-hg.org [Home] \n\t\t www.idc-team.com \n\n";
print color 'reset';
print color 'bold green';
print "\n\t\t Menu:\n";
print color 'reset';
print color 'bold yellow';
print "\n\t\t What Do you want ?";
print "\n\n\t\t 1-EnCode";
print "\n\t\t 2-DeCode";
print "\n\n\t\t 3-Exit";
print color 'reset';
print color 'blue';
print "\n\n\t\t Choose:";
chomp($Choose=<>);
print color 'reset';

if ($Choose==1){
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print color 'bold blue';
print "\nEnter Text To Encode:";
chomp($TEXT=<STDIN>);
print color 'reset';
$Encode = encode_base64($TEXT);
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print color 'bold red';
print "\n####################################\n";
print color 'reset';
print color 'bold yellow';
print "$Encode";
print color 'reset';
print color 'bold red';
print "####################################\n";
print color 'reset';
exit;
}

if ($Choose==2){
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print color 'bold blue';
print "\nEnter Text To Decode:";
chomp($TEXT=<STDIN>);
print color 'reset';
$Decode = decode_base64($TEXT);
print color 'bold red';
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print "\n####################################\n";
print color 'reset';
print color 'bold yellow';
print "$Decode";
print color 'reset';
print color 'bold red';
print "\n####################################\n";
print color 'reset';
exit;
}
if ($Choose==3){
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print color 'bold red';
print "\nExit\n";
print color 'reset';
exit;
}
else {
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print color 'bold red';
print "\n\t\t Invalid ID \n";
sleep(1);
print color 'reset';
goto Menu;
}



Black Hat group Security Center
Site: www.Black-hg.org
Forum: www.Black-hg.org/cc/
By G3n3Rall
AnTi.SecurityBoy@Gmail.com

Bye.