Just another Perl shrine PerlMonks

### It Came From the Crypt!

by joecamel (Hermit)
 on Oct 07, 2001 at 13:21 UTC Need Help??

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

Replies are listed 'Best First'.
Re: It Came From the Crypt!
by theorbtwo (Prior) on Oct 07, 2001 at 14:32 UTC
Amazingly enough, running this through O::Deparse seems to change the result of the run. I'm baffeled... but may just need sleep.
For me, it (running via O::Deparse) works on 5.8.0 but not on 5.6.2.
Re: It Came From the Crypt!
by hopes (Friar) on Oct 07, 2001 at 19:50 UTC
I think it's really very good... Great!
Very cool!
Re: It Came From the Crypt!
by Open (Initiate) on Oct 12, 2001 at 04:40 UTC
cool

Create A New User
Node Status?
node history
Node Type: obfuscated [id://117294]
Approved by root
help
Chatterbox?
 [Your Mother]: Most health insurance will cover that.

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (7)
As of 2017-11-23 17:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
In order to be able to say "I know Perl", you must have:

Results (336 votes). Check out past polls.

Notices?