Playing with numbers to create a first obfuscation.

#!/usr/bin/perl
                          $t=+qw/c/                       ,$c=-0,$s
                          ="Just an                       other Perl
                         hacker,";                       for($c<12)
                         {@1=+qw                         /34 0 -10 
                        8 79 6 0                        -67 9 14 
                        3 30/,,@=                       +qw/make
                       it canonic                      al Just for
                       (fun;$++;                       $do until;it
                      ){another                       $JAPH}/,
                      @2=+qw                          /46 101 124
                     100 -47 98                      97 166 98
                     87 111 14                       /,push @g,
   pack$t, z;$foo>>$s<<pack 'h',$foo;for $i (@1){u->($i,$c), p->($i,$c
+++);sub d
   {@g}sub p($$\%$$;$&@){push @g,pack($t,($_[0]+$2[$_[1]]))}sub u($$$;
+$\@$$@*;$)
   {unshift@g,pack($t,($_[0]+$2[$_[1]]) + $_[0])}}}print d;sub z{(((((
+)=$s=~/\w*
                   \w/g)+(()=                      $s=~/\b \b
                   /g)+(()=$s                      =~/\w,/g)+ 
                  ++(()=$s=~                      /\b?\w/g))^
                  ((((()=$s=~                     /\w*\w/g)*
                 (()=$s=~/                       \b \b/g)*((
                 )=$s=~/\w                       ,/g)* ++(()=
                $s=~/\b?\w                      /g))) / (((()=
                $s=~/\w*\w                      /g)*(()=$s=~
/\b \b/g)*(()=$s=~/\w,/g)*++(()=$s=~/\b?\w/g))&((()=$s=~/\w*\w/g)+(()=
+$s=~/\b
\b/g)+(()=$s=~/\w,/g)+ ++(()=$s=~/\b?\w/g)))))^((((()=$s=~/\b \b/g)+ +
++(()=$s
=~/\b?\w/g)) & ((((()=$s=~/\w*\w/g)*(()=$s=~/\b\b/g)*(()=$s=~/\w,/g)* 
+++(()=
             $s=~/\b?                        \w/g)))/(
             ((()=$s                         =~/\w*\w
            /g)*(()                         =$s=~/\b 
            \b/g)*(                         ()=$s=~/\
           w,/g)*++                        (()=$s=~/
           \b?\w/g)                        )&((()=$s
          =~/\w*\w                        /g)+(()=
          $s=~/\b                         \b/g)+((
          )=$s=~/                        \w,/g)+ 
         ++(()=$s                        =~/\b?\w
         /g)))))+                       ((()=$s
         =~/\w*                         \w/g)+(
        ()=$s=~                        /\b\b/g)
        +(()=$s                        =~/\w,/g
       )+ ++((                        )=$s=~/
       \b?\w/g                        ))))}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.