Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Give me XP, or give me food!

by wombat (Curate)
on Sep 08, 2000 at 12:10 UTC ( #31559=obfuscated: print w/ replies, xml ) Need Help??

This isn't really that obfuscated. This is my first time writing obfuscated code... in any language. You might say this is more of a translation than a obfuscation, but I don't think it can be parsed with a two line regexp. :-)
Mostly this is for all you slackers to enjoy. ;-)
UPDATE: Fine, so it can be parsed with a simple regexp. I told you I've never done this before. :-P
UPDATE++;Yeesh. You guys really don't like this. I thought there'd by more SubGenii here.

~W
#!/usr/bin/perl push @a,(39,2,5,1,0,6,4,0,6,3,4,2,1,4,14,2,19,6,6,0,1,4,14,23); push @a,(7,3,4,2,0,6,4,1,0,6,4,2,5,3,4,2,0,4,14,0,4,1,12,0); push @a,(0,6,6,27,0,4,14,0,1,1,12,0,0,3,4,0,1,1,12,0,1,3,4,2); push @a,(0,1,12,0,0,3,4,0,0,1,12,0,0,3,4,0,0,1,12,0,0,3,4,0); push @a,(0,1,12,0,0,3,13,0,1,1,12,0,0,6,6,0,0,4,14,0,5,3,4,0); push @a,(0,6,4,1,0,6,4,0,4,3,4,0,11,1,12,0,0,6,6,0,0,1,12,0); push @a,(1,6,6,0,0,1,12,0,0,6,6,0,0,3,13,0,9,1,12,0,4,3,4,0); push @a,(0,6,4,1,0,6,4,0,3,3,4,0,0,2,-1,0,17,1,12,0,0,2,-1,0); push @a,(1,1,12,0,0,5,-5,0,0,2,4,0,0,6,-1,0,0,3,4,0,0,3,0,0); push @a,(3,1,12,0,3,3,4,0,0,6,4,1,0,6,4,0,3,3,4,0,4,1,12,0); push @a,(7,3,4,0,0,6,-1,0,2,5,-5,0,0,2,4,0,0,6,-1,0,7,3,4,0); push @a,(1,1,12,0,0,3,4,0,1,1,12,0,2,3,4,0,0,6,4,1,0,6,4,0); push @a,(3,3,4,0,4,1,12,0,21,3,4,0,1,1,12,0,0,3,13,0,1,1,12,0); push @a,(2,3,4,0,0,6,4,1,0,6,4,0,3,3,4,0,4,1,12,0,19,3,4,0); push @a,(0,2,2,0,0,3,4,0,0,4,11,0,0,1,12,0,0,5,5,0,1,1,12,0); push @a,(2,3,4,0,0,6,4,1,0,6,4,0,3,3,4,0,4,1,12,0,19,3,4,0); push @a,(0,4,11,0,0,4,13,0,0,4,11,0,0,1,12,0,0,6,4,0,0,1,12,0); push @a,(0,4,13,0,2,3,4,0,0,6,4,1,0,6,4,0,3,3,4,0,4,1,12,0); push @a,(0,6,6,0,0,5,-5,0,1,2,4,0,0,5,-5,0,0,1,12,0,0,6,6,0); push @a,(6,3,4,0,0,6,6,0,0,1,12,0,3,5,-5,0,0,6,6,0,0,1,12,0); push @a,(0,3,4,0,3,1,12,0,2,3,4,0,0,6,4,1,0,6,4,0,3,3,4,0,3); push @a,(1,12,0,0,5,-5,0,0,6,6,0,0,1,12,0,0,2,4,0,1,1,12,0,0); push @a,(2,4,0,1,1,12,0,0,5,-4,0,2,3,4,0,0,6,6,0,1,1,12,0,0,5); push @a,(-5,0,1,1,12,0,0,5,-5,0,0,5,-4,0,0,3,4,0,0,1,12,0,0,4); push @a,(13,0,0,3,16,0,1,1,12,0,0,3,14,0,2,3,4,0,0,6,4,1,0,6,4); push @a,(0,3,3,4,0,1,1,12,0,0,2,4,0,0,1,12,0,1,3,4,0,0,6,-1,0,0); push @a,(3,4,0,1,6,-1,0,0,2,3,0,2,1,12,0,2,3,4,0,1,6,-1,0,1,5,-4); push @a,(0,1,2,4,0,0,3,4,0,0,6,-1,0,0,3,4,0,0,1,12,0,0,4,13,0,0); push @a,(4,11,0,1,1,12,0,3,3,4,0,0,6,4,1,0,6,4,0,3,3,4,0,0,2,4,0); push @a,(1,1,12,0,3,3,4,0,2,6,-1,0,2,3,4,0,0,1,12,0,6,3,4,0,1,6); push @a,(-1,0,4,3,4,0,0,4,11,0,1,1,12,0,3,3,4,0,0,6,4,1,0,6,4,0); push @a,(4,3,4,0,0,5,-5,0,1,6,4,0,0,1,12,0,5,3,4,0,0,4,0,0,0,2,-1); push @a,(0,0,1,12,0,1,3,4,0,0,4,0,0,10,3,4,0,0,4,11,0,0,6,4,0,0); push @a,(5,-1,0,3,3,4,0,0,6,4,1,0,6,4,0,5,3,4,0,0,6,-1,0,0,6,4,0); push @a,(0,1,12,0,0,2,-1,0,1,3,4,0,0,4,0,0,0,6,6,0,1,1,12,0,0,4,0); push @a,(0,0,4,13,0,2,3,4,0,0,2,5,0,0,6,6,0,0,2,4,0,0,1,12,0,0,6); push @a,(6,0,0,4,9,0,1,3,4,0,0,4,14,0,0,2,-1,0,0,4,13,0,0,2,4,0); push @a,(5,3,4,0,0,6,4,1,0,6,4,0,6,3,4,0,0,4,11,0,2,1,12,0,0,5); push @a,(-5,0,7,1,12,0,0,5,-5,0,0,3,14,0,1,3,4,0,0,4,4,0,0,5,7,0); push @a,(4,1,12,0,1,4,13,0,5,3,4,0,0,6,4,1,0,6,4,0,7,3,4,0,0,2,4); push @a,(0,0,3,4,0,0,1,12,0,1,3,4,0,0,2,4,0,0,1,12,0,0,5,-1,0,6,2); push @a,(4,0,0,6,1,0,0,1,12,0,0,2,4,0,0,6,-1,0,1,3,4,0,0,4,11,0); push @a,(0,1,12,0,0,2,4,0,6,3,4,0,0,6,4,1,0,6,4,0,8,3,4,0,0,1,12); push @a,(0,0,5,5,0,0,1,12,0,0,3,4,0,0,6,-1,0,2,1,12,0,3,3,1,0,1,2); push @a,(5,0,0,5,-5,0,4,3,4,0,1,1,12,0,7,3,4,0,0,6,4,1,0,6,4,0,9); push @a,(3,4,0,0,5,-4,0,0,2,4,0,0,4,0,0,0,6,6,0,0,1,12,0,0,5,-5,); push @a,(0,0,1,12,0,0,6,6,0,3,4,14,0,0,4,9,0,4,3,4,0,1,1,12,0,8); push @a,(3,4,0,0,6,4,1,0,6,4,0,3,3,4,0,1,4,14,0,0,3,1,0,0,4,14); push @a,(0,1,3,4,0,0,4,14,0,2,1,12,0,0,4,14,0,0,2,-1,0,0,1,12); push @a,(0,0,2,4,0,1,6,-1,0,0,2,4,0,0,6,-1,0,4,3,4,0,0,1,12,0,0); push @a,(5,-5,0,9,3,4,0,0,6,4,1,0,6,4,0,2,3,4,0,0,5,-5,0,0,6,0); push @a,(0,0,3,14,0,0,6,6,0,0,1,12,0,0,6,6,0,2,1,12,0,0,2,4,0,3,1); push @a,(12,0,6,3,4,0,0,4,0,0,0,6,6,0,0,5,-5,0,11,3,4,0,0,6,4,1,0); push @a,(6,4,0,1,3,4,0,2,1,12,0,0,3,4,0,0,2,4,0,2,1,12,0,0,2,4,0); push @a,(2,3,4,0,0,2,4,0,4,5,-5,0,2,1,12,0,0,5,-5,0,0,2,4,0,0,3,14); push @a,(0,12,3,4,0,0,6,4,1,0,6,4,0,1,3,4,0,0,3,16,0,1,1,12,0,0); push @a,(5,-4,0,0,2,-1,0,0,1,12,0,0,2,4,0,29,3,4,0,0,6,4,1,0,6,4); push @a,(0,38,3,4,0,0,6,4,1,39,2,5,1); foreach $f(@a){push @b,$f;$c++;if($c==4*7%8) {$c=0;&q($b[0],$b[1],$b[2]);if($b[3]==1){print"\n";}@b=();}} sub q{for(0..$_[0]){&p($_[1],$_[2]);}}sub p {print chr(4*(2+3)*$_[0]+$_[1]);}

Comment on Give me XP, or give me food!
Download Code
RE: Give me XP, or give me food!
by Fastolfe (Vicar) on Sep 08, 2000 at 18:07 UTC
    Parsed with a 2-line regexp? I'll do better:
    print chr(20*$2+$3)x($1+1).($4==1?"\n":"") while /\D*?([-\d]+)\D+?([-\ +d]+)\D+?([-\d]+)\D+?([-\d]+)/g;
    Operating on your push() lines in $_ only. Give me some sugar, baby.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://31559]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (4)
As of 2014-08-02 00:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Who would be the most fun to work for?















    Results (53 votes), past polls