Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid


by Mr. Muskrat (Canon)
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/%/&/;

Replies are listed 'Best First'.
Re: BlinkenObfu
by jynx (Priest) on Aug 17, 2002 at 01:25 UTC


    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,

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

    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,

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://190800]
Approved by sm3g
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (2)
As of 2018-07-22 01:39 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (451 votes). Check out past polls.