Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Neon Japh

by liverpole (Monsignor)
on Oct 07, 2005 at 05:20 UTC ( [id://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}

Replies are listed 'Best First'.
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
Domain Nodelet?
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?Last hourOther CB clients
Other Users?
Others imbibing at the Monastery: (7)
As of 2024-03-28 19:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found