#!/usr/bin/perl
# It Came From the Crypt!
$q=
q&9RM 8 ba1c
HtJprcG 6SJ3dk
aQM 8 p j p8vsY
i3UnT f kcRJk9w xW2v
h2GVK3 YL1gNvf YEX
dBQdE TIdpMu WD9Y
CAvK0 BrsuKn9kXUwk aNpj8q
ISZgRZkUg2I8W9jJsG8Rg9yeE8LvqZR7A
Ho PDIRVAVCgafA9MZjFb31Ea5bqr7gCg
X zPpgkPsHjTP8iC2TtVYE0PUR b z
Y b3 EQiZrZiIm6Nc81WY qs U g
7m QzHM2VjY62II5Bg 7N e k
kt 7 5JLD86&;$u=$q =~ s &
\s &&xg&&-2;@v= unpack
q &c3&,qq&i\nm &;
unshift@v,2 **
2*2**2*2;%l =
map{chr$_}
reverse@v;$i
=2*2*2&&$q,$q
=$i&&8; while(
$i=~m& [^ *]{$q}
&x){$y = substr
(crypt( $&,$&),
$u,print );print !
$l{$y} &&$y ne
"y"?$y: $l{$y} ;$i=~
s+$&+ +x }$y=~m
&ymum ~
my&
Just a little something to get into the Halloween spirit.
joecamel
-
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.
|