Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Halloween JAPH ?

by TheEnigma (Pilgrim)
on Oct 13, 2004 at 03:02 UTC ( #398757=obfuscated: print w/replies, xml ) Need Help??

Well, it's October, and Halloween will be here soon. Maybe this is a little early, but I worked hard on this one, and it's finally done, so here it is. It should work on both Windows and *nix; I tried it on Win98 and Mandrake Linux.

It just barely fits in my DOS window, so you have to hit enter to bring back the prompt.

This is my second posting of this type of thing; any comments, suggestions, or criticism are welcome!

#!/usr/bin/perl $ q= "Ju stPe rl";# ;my@g= <DATA>; ;;;my$ h =join'' ,@ g;;;;$h =~ s/\s+//g; my ($a,$b,$c,$d,$ e,$ f)=split/:/,$h;### chomp($a,$b,$c,$d,$e,$ f );system($^O=~Win?CLS: "clear");my@a=split//,$a;my@b =split//,$b;my@c=split//,$c;;;;; my@d=split//,$d;;;;;;;;;;;;;;;; my@e=split//,$e;;;;;;;;;;;;;;;;;; my @f=split//,$f;;;;;;;;;;;;;;;;; ;;; for(@f){for(1..$_){;;;;;;;;;;;;; ;;; my$g=shift@a;$g*=10;;;;;;;;;;;;;;; ;;; $g+=shift@a;my$x=shift@c;;;;;;;;;;;; ;;; $x*=10;$x+=shift@c;;;;;;;;;;;;;;;;;;; ;;; print"",chr(32)x$g;;;;;;;;;;;;;;;;;;; hex ;; "hacker,"; ;;;;;;;;;;;;;;;;;;;;; print"" ,"X"x$x;}; ;;;;;;;;;;;;;;;;;;;; print" \n";};another ;;;;;;;;;;;;;;;;;;; print"\n\n";;;;my$g=shift@b ;;;;;;;;;;;;;;;;; $g*=10;$g+=shift@b;halloween ;;;;;;;;;;;;;;;;; print""," "x$g;;while(@d){ ;;;;;;;;;;;;;;;;; my$c=shift@d;$c.=shift@d ;;;;;;;;;;;;;;; print"",chr(hex("0x$c"));} ;;;;;;;;;;;;;; print"\n";$g=shift@b;booo ;;;;;;;;;;;; $g*=10;$g+=shift@b;bats ;;;;;;;;; print" "x$g;while(@e){ ;;;;; my$c=shift@e;$c.=shift@e ;;; print"",chr( hex("0x$c" ));};;<STDIN> ;;;__DATA__ 353433292520 18171602021504 04140606140 214041406150202160 3031 707081 815202529:1925:0202 0311192 9333509141009121009101 0192018 1917180819080815080804 080 909291911:4A4150483A204 A757 37420616E6F74686572205 0756D 706B696E206861636B6 5 7 221 :2848617070792048 6 1 6C6C6F7765656 E 2 1 2 9:111 1 1 1 1 1 3 3 3 2 2 2 3 3 3 2 1 1 1


Replies are listed 'Best First'.
Re: Halloween JAPH ?
by mutated (Monk) on Oct 13, 2004 at 14:21 UTC
    That's pretty damn cool! good job!

Re: Halloween JAPH ?
by muba (Priest) on Oct 14, 2004 at 19:23 UTC
Re: Halloween JAPH ?
by TheEnigma (Pilgrim) on Oct 15, 2004 at 04:19 UTC
    Thanks for your kind words, they're nice to hear.
    The XP I gained from this pushed me into the next level, I'm a friar now.

    Imagine! A friar!

    I've always wanted to be a friar!

    But... now that I am, I'm not sure... maybe there's something else for me...

    Hmmm... to only slightly* misquote Jethro Bodine from The Beverly Hillbillies:

    I can't decide twixt bein' a friar or a brain surgeon!


    *Ok.. a lot
Re: Halloween JAPH ?
by opqdonut (Acolyte) on Oct 19, 2004 at 13:13 UTC

    Really smooth. I like the use of ; to spice up the pic and the __DATA__ section.


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://398757]
Approved by davido
Front-paged by grinder
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (6)
As of 2017-10-23 07:17 GMT
Find Nodes?
    Voting Booth?
    My fridge is mostly full of:

    Results (277 votes). Check out past polls.