It's been a while. Here's an obfuscated script written over 4 years ago that finally got finished up.
Though it technically works in Windows with "perl -MWin32::Console::ANSI <script>", it looks much better in Linux or MacOS (or probably Cygwin), for which it was designed, as it uses ansi escape sequences.
Note: to change the speed give an optional delay argument in fractions of a second. The default is 0.1 (ie. 0.5 would be slower, 0.05 faster).
die+eval(q{$|=pr int"\e[ 2J\n";$k=' |';s ,,2
220;3500731;352273 5071;16007150 74;1622713,x;y; 0-4;8| _/%;;s
;5;\e[103m;g;s,6, \e[102m,g;s;7;\e [m;g;$/=$_;$_=q| hb2Gbb 5hhDei
4dh0Bh lFbi20 1hoC4d o0CdsB bp201h vDev5d v0ChzG
|;s;[1 -9];>$&;g;s;[A-I ];^$&;g;y|A-I|1- 9|;{s;^(\w)(\w);
;x?($y =-97+ord$1,$x=-9 7+ord$2):s,^0,, ?$k='/':s,^([>^]
)(\d), ,?map{$c=$1,$X=1 +3*$x,$Y=$y* 2,$Z=4;$"=$/=~s;
%;$k;r ;map{p rint"\ e[${\$Y ++};${ X}H$_"
;$X--if++$ Z<7}sp lit';' ,$";$k= '|';se lect$J
,$a,$p,$ARG V[0]|| .1;'^' eq$c?$y --:$x+ +}1..$
2:last;redo }}=~y %8 \n % %dr), "\e[". "22H\n"
say
substr+lc crypt(qw $i3 SI$),4,5
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.