Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

What if God were one of us?

by boo_radley (Parson)
on Jan 03, 2001 at 21:32 UTC ( [id://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 } };

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
Domain Nodelet?
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?Last hourOther CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (4)
As of 2024-03-19 05:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found