Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

It Came From the Crypt!

by joecamel (Hermit)
on Oct 07, 2001 at 13:21 UTC ( #117294=obfuscated: print w/ replies, xml ) 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

Comment on It Came From the Crypt!
Download Code
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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://117294]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (7)
As of 2014-08-23 13:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (174 votes), past polls