perl -e '$x=sub{$s=0;map{$s+=$_}@_;$s%17};@_[1]=11;@==map{84+($z++%2?s
+hift @_:18)}qw<P E R L>;
print map{chr&$x(map{ord}split//)+shift(@=)}sort qw"Who is Perl guru?"
+'

[download]
--
Lubomir Host 'rajo'
http://rajo.platon.sk

Edit: g0n replaced pre tags with code tags

Replies are listed 'Best First'.
Re: who is perl guru?
by zshzn (Hermit) on Feb 06, 2006 at 00:23 UTC
    Neat. 
    perl -e '$x=sub{$s=0;map{$s+=$_}@_;$s%17};@_[1]=11;@==map{84+($z++%2?s
+hift @_:18)}qw<P E R L>;
print map{chr&$x(map{ord}split//)+shift(@=)}sort qw"Who is Perl ego?"'

    [download]
[reply]
[d/l]

Back to Obfuscated Code