Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

BlinkenObfu

by Mr. Muskrat (Abbot)
on Aug 17, 2002 at 00:34 UTC ( #190800=obfuscated: print w/ replies, xml ) Need Help??

My first serious attempt at obfuscation.

#!/usr/bin/perl -w use strict; $_='pGiBt(5(),5|G(61),"3;7|",5()," 2J");$/={iBt(GZB=($_[0])+$_[1])}w| ile(1){pGiBt(5(),=(23,0),";",=(79, 0),"H",5(),=(8,40),"m\x20");}$/5{" \e["}';s/\s+//g#$+=7**6-473*(4^5); ;y#B5Z|=G#ncahdr##fugr//fh/g;$_.3; ;s?\$\/(\w)?\x73\x75\x62\x20$1?g#; ;eval#s/=/*/g;tr/362/sub/g;y/%/&/;

Comment on BlinkenObfu
Download Code
Re: BlinkenObfu
by jynx (Priest) on Aug 17, 2002 at 01:25 UTC

    Woah...

    Whether or not this is obfuscated code (and i'd say it's pretty decent for a first serious attempt), i have to ++ this just for the niftiness value. It does cool things :)

    By the by, with a minor tweak you can cause seizures in anyone who sits too close to their monitor
    (code not shown here to not solicit hazardous or dangerous coding practices among today's youth; but it can be currently found on my scratchpad :-)

    thanks for the amusement,
    jynx

Re: BlinkenObfu
by Mr. Muskrat (Abbot) on Aug 17, 2002 at 03:56 UTC

    jynx++
    That's a pretty cool seizure system there. ;)

    Now, should I explain mine? Or just let everyone do it for themselves?

Re: BlinkenObfu
by LAI (Hermit) on Aug 20, 2002 at 21:29 UTC

    I liked this a lot. Very good first attempt; I'm happy to have tried out this little CPU-sucker. Personally, I never quite got the hang of printing colours to the terminal -- but then I never sat down with any instructions, either :o)

    The obfu's not too difficult to figure out with a sharp eye and a little patience, so I'd say let the curious figure it out themselves rather than print a spoiler. As with any good obfuscation, making sense of the code is where all the fun is.

    Keep up the good work,
    LAI
    :eof

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (8)
As of 2014-11-26 12:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (171 votes), past polls