This is my first try at obfu. Comments please. 
$_=japh;$a=chr(ord(chop)- y;pj;vd;-1);split? *?;push(@_,$a);map{s:(\14
+4):\u\1:;print} reverse join(q~~,@_);

[download]

Replies are listed 'Best First'.
Re: First try
by Juerd (Abbot) on Jan 10, 2002 at 00:35 UTC
    Does nothing. Was it supposed to do anything?

    Update (200201092354+0100)
    It does print "Dave", but it didn't when I first tried, because I copy/pasted the code and didn't remove the "+" sign (p+rint), because I was using a monochrome terminal :) 

    2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$

    [download]

[reply]
[d/l]
      Should print "Dave"
[reply]

Back to Obfuscated Code