Nothing of truly Damian proportions, but still maybe perverse and poetic enough to post. 
${*A{SCALAR}}=q!UuX!,$_=$A.'reVERSAL',s/uX//;
y/er/IN/;$"=qq= $_'=.++($WH='AT').'TOLOAD',$,=q; ;or die;@qq=qw
!sub {$_=$ ;/::/&&print($`,$',$\)||die ; };
!;$_=qq;@qq;;eval, hacker perl another just;
--
/s

Replies are listed 'Best First'.
Re: call it a work in progress
by tretin (Friar) on Nov 04, 2001 at 22:06 UTC
    If I only knew how to obfu....

    But very nice job there, I like it a lot.

    just my 5 cents (ran out of pennies!)
[reply]
      Glad you like it. Here's a version I tweaked a bit to add a bit more silliness (gotta love the "$!=$"...): 
      ${*A{SCALAR}}=q!UeStIoN!,$_=$A.reVERSAL, s.u??eStIoN..?
y-eah, whatever...-I am CONFUSING my $self- : argh;
$!=$ ;=$,; $,=$ ",$"=$,.qq=$_'=.++($WH=AT).TO.LOAD,@qq=qw!
sub {$_=$ ;/::/and$;=$\;$\="$`$,$'$,";}; STOP! and LOOK
and eval qq? @qq?? hacker perl another just: yes; print$;

      BTW, if you haven't checked out Larry Wall's entries to the Obfuscated C contest from way back, you need to do so. It shows you where perl came from ;).

      /s

[reply]
        sweet... that ones even more confusing.

        Do you have to write obfu like that out by yourself or is there something that does it for you? I've got an idea for a good obfu but I don't know how to go about making it...

        and I'll check out the contest entries too

        just my 5 cents (ran out of pennies!)
[reply]

Back to Obfuscated Code