#!/usr/bin/perl

   open GEN,">obf.pl";
  while(<DATA>){chomp;
  print 
  GEN;}
  my $s     = <>;chomp 
  $s;my     @ss = split
   //,$s;         print
     GEN "\nmy \$s = \"
      \" ;\n\$_=\"";   

             foreach(@ss){
             print 
             GEN chr((
             ord)+1);}
             print
             GEN "\";\nmy
             


             \@ss=   split//;
             \nforeach(\@ss){\n";
             print GEN "   print 
             chr((         ord)-
             1);";         print
             GEN "         \n}\n
             print         \"\\n
             \n\";         \n";
             close         GEN;   __DATA__

#!/usr/bin/perl
[download]