Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
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 studying the Monastery: (7)
As of 2014-08-28 11:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (259 votes), past polls