Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

yet another useless code...

by Asmo (Monk)
on Oct 21, 2001 at 19:03 UTC ( [id://120377]=obfuscated: print w/replies, xml ) Need Help??

$i=95;$a="\"-S0\`";$b="#\,3\$W";$c="#\,3\$U";$d="#\,3\$V";$e="\,S<\`";$f="\"-C4\`";$g="#\,3\$P";$h="#\,3\$Q";$i="PERL";$j="MONKS";$k="#\,3\`Q";$l="#\,3\$T";$m="\,S<\`";$n="\".#\`\`";$o="#\,3\`Q";$p="#\,3\$T";$q="#\,3\`X";$r="\,S<\`";$s="#\,3\`T";$t="\".3<\´";$u="\".3D\´";$v="#\,3\`W";$w="#\,3\`Q";$x="#\,3\$T";z();sub z{if($i<121){if($i>103){if($i<105){print"t";$i++;z();}}if($i>104){if($i<106){print"h";$i++;z();}}$i++;$j=chr($i);$_=chr(unpack(u,${$j}));print;z();}}

Little game : Look for the little 'Perl Monks' in the code ;-)


My sig using the same way as the above code : $i=95;$a=$b="\"-C4\`";$c=$d="#\,3\$U";$e=$f="#\,3\`Y";$g=$h="#\,3\$Q";d();sub d{if($i<103){$i++;$i++;$j=chr($i);$_=chr(unpack(u,${$j}));print;d();}}

Asmo

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://120377]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having an uproarious good time at the Monastery: (5)
As of 2024-03-28 17:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found