CHR Crypter,Decrypter/CHR File Crypter

#!perl
#by Bl0od3r
while () {
print "\n\t~~~~~~~~CHR Crypter And Decrypter\n";
print("1.CHR Crypter
2.CHR Decrypter");
print "\n";
chomp($c=);
if ($c=="1") {
print "Crypt:";
chomp($crypt=);
my $cr = $crypt;
my $length = length($cr);
open(file, ">chr.txt");
for(my $i=0; $i<$length; $i++) {
$ok=substr($cr,$i,1);
print "chr(".ord($ok).").";
print file "chr(".ord($ok).").";
}
close(file);
}
#-------------------------------------------------------------------------------
if ($c=="2") {
print "Decrypt:";
chomp($de=);
print "\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n";
print eval("$de");
}
}
#http://tech-bl0od3r.blogspot.com/


FileChrCrypter:
open(file, ">chrs.txt");
open IN,"yourfile";
while ($line=) {
$cr=$line;
my $length = length($cr);
for(my $i=0; $i<$length; $i++) {
$ok=substr($cr,$i,1);
print "chr(".ord($ok).").";
print file "chr(".ord($ok).").";
}}
#http://tech-bl0od3r.blogspot.com/