Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Neon Japh

by liverpole (Monsignor)
on Oct 07, 2005 at 05:20 UTC ( #498129=obfuscated: print w/ replies, xml ) Need Help??

Runs under Linux/Unix, with the command:
    % perl neon
$q=q=l83kal7kbl7kbl1kcl1k0m4kal4Jal3Kbxal3KbXcX0eXfXcXbXcXbXcX0eXfxam3 +Jbxam3J=. q-bxam3J0eXfxal3Kbxal5jbxal3K0eXfXcXbXhXcX0al3JfXcXbXhXcX0am5jfm1jcm1j +bm1jhm1-. q+jcm1j+;$_=$q;s=([1-8])=q+q+x$1=eg;s-0-\n-g;s+([A-Z])+lc$1.'ax'+eg;s* +([a-h])* ' 'x(-96+ord$1)*eg;$/=$_;until($r){$|=printf"\x0e\e[3%d;%dm\e[H\e[J$/\ +x0f",int rand+8,$O=7-$O;select$o,$o,$o,.3}

Comment on Neon Japh
Download Code
Re: Neon Japh
by sand_ (Sexton) on Oct 11, 2005 at 10:31 UTC
    ahahha very nice! :)

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (6)
As of 2014-11-27 17:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (186 votes), past polls