My first JAPH art

Somebody in the CB today pointed out this node, and when I read it (and learned), it inspired me to write a new obfu-JAPH. In fact, the resulting code was so large, and yet so easy to break apart, I decided to make ASCII art out of it as well.... Unfortunately, I'm not all that good at ASCII art yet. I'm going to inflict it upon you all anyways. :-)

#!/usr/bin/perl
@a=(qq qaq..qq
      qzq,
      qq
      q q
);    $a=
0;@aa=(uc
$a[$a++,

$a++,$a++,$a++,
$a++,$a++,$a++,
$a++,     $a++,
$a],        $a[
$a++,$a++,$a++,
$a++,     $a++,
$a++,     $a++,
$a++,     $a++,

$a++,$a++,$a],
$a[$a--,$a--,$a],
$a[         $a++,
$a],        $a[
$a++,$a++,$a++
,$a++
,$a++
,$a++
,$a++

,$a],          uc$a
[$a--          ,$a--
,$a--          ,$a--
,$a--          ,$a--
,$a--,$a--,$a--,$a--
,$a--,$a--,$a--,$a--
,$a--,          $a--
,$a--,          $a--
,$a--,          $a--

  ,$a--,$a--,$a--,$a--
 ,$a--,$a--,$a],$a[$a++
,$a++,              $a++,
$a++,               $a++,
$a++,$a++,$a++,$a++,$a++,
$a++,$a++,$a++,$a],$a[$a++
,$a],                $a[
$a++,               $a++,
$a++,               $a++,
$a++                ,$a],

$a[$a--,$a--,$a--,$a--,$a--
,$a--,$a--,$a--,$a--,$a--,
$a--,
$a--,
$a],
$a[
$a--,
$a--,
$a--,
$a],$a[$a++,$a++,$a++,$a++,
$a++,$a++,$a++,$a++,$a++,

$a++,$a++,           $a++,$a++
,$a],$a[             $a++,$a++
,$a++,              $a++,$a++
,$a++,             $a++,$a++
,$a++,$a],   uc$a[$a--,$a--
,$a--,$a--,$a--,$a--,
$a--,$a--,$a--,$a--
,$a--,$a],  $a[$a--,
$a--,$a--    ,$a--,$a--,
$a--,$a--     ,$a--,$a--,
$a--,$a--      ,$a],$a[$a++,
$a++,$a++       ,$a++,$a++,$a++

,$a++,$a++,$a++,$a++,$a++,
$a++,$a++,$a],$a[$a--,$a--
,$a--
,$a--
,$a--,$a--,$a]
,$a[$a++,$a++,
$a++,
$a++,
$a++,
$a++,$a++,$a++,$a++,$a++,
$a++,$a++,$a++,$a++,$a++,

$a],uc$a[$a--,$a--,$a--,$a--,
$a--,$a--,$a--,$a--,$a--,$a--,
$a--,$a--,           $a--,$a--,
$a--,$a--,           $a--,$a--,
$a--,$a],$a         [$a--,$a--
,$a--,$a--,$a--,$a--,$a--,$a],
$a[$a++,$a++,$a],$a[$a++,$a++,
$a++,$a++      ,$a++,$a++,
$a++,$a++       ,$a],$a[$a--,
$a--,$a--        ,$a--,$a--,$a--
,$a],$a[          $a++,$a++,$a++,

$a++,$a++,$a++,$a++,$a++,$a++,$a++,$a++,$a++,$a++,$a]);$a=0;print@aa[$
+a++,$a++,$a++,$a++,$a++,$a++,$a++,$a++,$a++,$a++,$a++,$a++,$a++,$a++,
+$a++,$a++,$a++,$a++,$a++,$a++,$a++,$a++,$a++,$a];
[download]

--
Linux, sci-fi, and Nat Torkington, all at Penguicon 3.0
perl -e 'print(map(chr,(0x4a,0x41,0x50,0x48,0xa)))'

Comment on My first JAPH art Download Code

Replies are listed 'Best First'.
Re: My first JAPH art by K_M_McMahon (Hermit) on Feb 04, 2005 at 02:51 UTC
Your ASCII art is actually pretty good....until it gets to the last line. Maybe you could turn the last line into an exclamation line? Nice job. Hope you don't mind, I modified the formatting to include exclamations at the end. I didn't make any code changes, just moved things around to change the ASCII art. If it bugs you (since it is your JAPH) message me and I'll edit it out of my post. UPDATE: I forgot that I did modify the code, just added the '-w' for warnings and there are none! Great Job Wolfger! Read more... (2 kB) -Kevin	[reply] [d/l]
Re^2: My first JAPH art by wolfger (Deacon) on Feb 04, 2005 at 10:23 UTC
That's a beautiful solution! Why didn't I think of that? Thanks for the feedback. -- Linux, sci-fi, and Nat Torkington, all at Penguicon 3.0 perl -e 'print(map(chr,(0x4a,0x41,0x50,0x48,0xa)))'	[reply] [d/l]