Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
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]);}

Replies are listed 'Best First'.
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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (3)
As of 2016-12-04 07:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (63 votes). Check out past polls.