#!/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