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/%/&/;

[download]

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

[reply]
Re: BlinkenObfu
by Mr. Muskrat (Canon) 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?

[reply]
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
[reply]

Back to Obfuscated Code