But is it obfuscated? I can't understand it. But that probably tells you more about me than about obfuscation. Still, it sures beats work. 

while($igb<92) {$j[$igb]=$igb++}
$j=$a=$p=$h=join('.\....//',@j);
$j=substr($j,3);$a=substr($a,3);
$p=substr($p,3);$h=substr($h,3);
@j=split(/\.\\\.\.\.\.\/\//,$h);
@a=split(/\.\\\.\.\.\.\/\//,$p);
@p=split(/\.\\\.\.\.\.\/\//,$a);
@h=split(/\.\\\.\.\.\.\/\//,$j);
for $j(@j){$j[$j-1]=chr($j-1-0)}
for $a(@a){$a[$a-1]=chr($a-1-0)}
for $p(@p){$p[$p-1]=chr($p-1-0)}
for $h(@h){$h[$h-1]=chr($h-1-0)}
@n=(26,74,4810,384800,27705600);
$j{'jj'}[00]=10000-10000+pop @n;
$a{'aa'}[00]=10000-10000+pop @n;
$p{'pp'}[00]=10000-10000+pop @n;
$h{'hh'}[00]=10000-10000+pop @n;
while($j{'jj'}[1]<$j{'jj'}[00]){
while($a{'aa'}[1]<$a{'aa'}[00]){
while($p{'pp'}[1]<$p{'pp'}[00]){
while($h{'hh'}[1]<$h{'hh'}[00]){
$j++;print "loading.. $j[$j]\n";
$h{'hh'}[1]=$j}$a+1000-999;$a++;
print "loading..$j[$j]$a[$a]\n";
$p{'pp'}[1]=$h{'hh'}[1]*$a}$p++;
print "go $j[$j]$a[$a]$p[$p]\n";
$a{'aa'}[1]=$p{'pp'}[1]*$p}$h++;
print"$j[$j]$a[$a]$p[$p]$h[$h]";
$j{'jj'}[1]=$a{'aa'}[1]*$h+10*0;
print "\n"}

[download]


§ George Sherston

In reply to I think this is what they mean by a JAPH. by George_Sherston

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • 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! —
  • 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:
    & &amp;
    < &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.