BHG Text Encryptor - Decryptor

Hi Guys
with this script you can have hash with your own key
just u choose a key for example "BHG" and then encrypt a text

it will get u a hash in Crypted.txt then if you want take it back [ decrypt it]
u just enter your own key and u script will read Crypted.txt and get u
real text

if no body dont have your key no body cannot decrypt your text
it's good for when you have important text in your pc :D



#!/usr/bin/perl
#BHG Text Cryptor & Decryptor Version Beta
#You Can Have Your Own Hash Code With Your Own Key :)
#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 ...

system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print "\n\t\t www.Black-hg.org\n\n";
print "\n\n\t\t Welcome To BHG Encryptor - Decryptor\n";
print "\n\n\t\tPlease Enter a Key:";
$GetKey=<STDIN>;
chomp($GetKey);
my $key = "$GetKey";
Menu:;
print "\n\n\n\t\t What Do you want to do ?";
print "\n\t\t 1- Encrypt";
print "\n\t\t 2-Decrypt";
print "\n\t\tChoose:";
$Menu=<STDIN>;
chomp ($Menu);
if ($Menu==1){
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print "\n\n\t\t\t Please Enter Your Text \n";
print"Text:";
$TEXT=<STDIN>;
chomp($TEXT);
print "\n";
my $str = $TEXT;
my $encoded = xor_encode($str,$key);
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print "\n\n\t\t Your Code Saved to Crypted.txt\n\n\n";
open (TEXT, '>>Crypted.txt');
print TEXT "$encoded";
close (TEXT);
print "\nwww.Black-hg.org  || Code by G3n3Rall";
print "Exit\n";
exit;
}
if($Menu==2){
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print "Please Wait ... ";
print "\n";
print "\n\n\t\t Opening Crypted.txt \n";
open (Decrypt, "<Crypted.txt") or die "\n\tSry NOT FOUND Crypted.txt \n";
while (<Decrypt>){
my $encoded = $_;
my $decoded = xor_encode($encoded,$key);
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print "\n\n\t\t Decoded ! \n\n";
print "\nYour Text:\n";
print "$decoded";

print "\n\n\n";
print "\nwww.Black-hg.org  || Code by G3n3Rall";
print "Exit\n";
exit;
}
}

sub xor_encode {
    my ($str, $key) = @_;
    my $enc_str = '';
    for my $char (split //, $str){
        my $decode = chop $key;
        $enc_str .= chr(ord($char) ^ ord($decode));
        $key = $decode . $key;
    }
   return $enc_str;
}

if ($Menu=! 1 || 2) {

print "\n\n\t\t INVALID ID\n ";
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.