Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

What if God were one of us?

by boo_radley (Parson)
on Jan 03, 2001 at 21:32 UTC ( #49563=obfuscated: print w/ replies, xml ) Need Help??

inspired by If God wrote a Perl script.
#!/usr/bin/perl # verse taken from # http://bible.gospelcom.net/ study $bible; do {print everything()} until judgement_day(); sub everything { $proverb="All the words of my mouth are just; none of them is croo +ked or perverse"; split /;/, $proverb; map {@saying=split //, reverse $_; scalar @proverb? (push @proverb +, @saying[7],@saying[25]):(push @proverb, (@saying[3], @saying[7])); +}@_; @proverb; } sub judgement_day { @God = ("Alpha" & "Omega", "First"&"Last","Beginning"&"End"); if (push @God, "too","far"){ # Rev 1-5 ;) { foreach $seal ($seals[1..7]) {$seal="broken"; }; # Rev 6- +8 foreach $angel ($angels[1..7]) {$trumpet="sounded"}; # Rev +8-9 foreach $thunder ($thunders[1..7]) {undef}; # Rev 10 shift @firmament; # Rev 11 $beast{heads}=7; $beast{horns}=10; $beast{horns}{crowns}=10; $beast{likeness} = "leopard" or "bear" or "lion"; $beast{powers}="many"; if ($man{opposes}==%beast) { die}; $man{mark}{location}="hand" or "head"; $man{mark}{number} = $beast{number};# Rev 13 $angel[1] = "sermonize" foreach (@tribe, @nation, @language, @ +people) ; $angel[2] = eval{$babylon = undef}; if ($man{mark}{number} eq $beast{number}) { $wine="God's wrathful vineyard, est 0."; $man{torment}="eternal"; } #Rev 14 foreach $angel ($angels[1..7]) { $bowl{contents} = $wrath && dump $bowl{contents}; $bowl{plague}= "unleashed" } #Rev 16 - 18 if (undef($babylon)) { $torture = $luxury; $adulters eq "weeping"; $merchants eq "weeping"; $cargo eq "unsold"; $saints eq "rejoicing"; $heaven eq "rejoicing"; } # Rev 18 $devil{location} eq $beast{location} or $false_prophet{locatio +n}; # Rev 21 @God = ("Alpha" & "Omega", "First"&"Last","Beginning"&"End");# + Rev 22 } };

Comment on What if God were one of us?
Download Code
Replies are listed 'Best First'.
Re: What if God were one of us?
by boo_radley (Parson) on Jan 03, 2001 at 21:49 UTC
    for added wrath, place this at the start of judgement_day
    $wrath= "vengeful";.
    just be sure you understand exactly what will happen!
    And, as always, I ♥ your comments :)
Re: What if God were one of us?
by cogent (Monk) on Jan 03, 2001 at 22:00 UTC
      Not necessarily.

      Though the code itself does not appear to be blatantly obfuscated, a quick gander at it will not let you easily know the output, because you are reading it like Perl Poetry, not obfuperl.

      That's Obfuscation through Diversion.

      Cheers boo_radley!

      --
      notsoevil
      --
      Jeremiah 49:32 - And their camels shall be a booty. . .

        Blargh. My fault. I'm sure I tried executing it, but only got compilation errors. I must have done something wrong that time, because now that I've tried it again, I see your point.

        Damn good obfuscation. Mayhap there oughtta be a sub-genre of obfuscation: steganobfuscation. :-)

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (13)
As of 2015-07-07 19:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (93 votes), past polls