Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

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.


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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://117294]
Approved by root
[Discipulus]: yes, bikers included. ;=)

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (5)
As of 2017-02-28 10:42 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (399 votes). Check out past polls.