Help for this page

Select Code to Download


  1. or download this
    /usr/bin/perl -v

...
/usr/bin/perl -E 'srand(80085);say(join("",map({g($_)}("3f5a6471135061
+5c5b4f5867114c5666521f59535b604e57"=~m/../g))));sub g($num){chr(hex($
+num)+int(rand(31)));}'
Just another Perl hacker
  2. or download this
    perl -v

...
perl -E 'srand(80085);say(join("",map({g($_)}("3f5a64711350615c5b4f586
+7114c5666521f59535b604e57"=~m/../g))));sub g($num){chr(hex($num)+int(
+rand(31)));}'
Just another Perl hacker