okay, okay, so as a first attempt at obfuscation, it's not perfect...
however, when run it will produce the
Ode to a Reaped Node to be found in the poetry section
...and just to make it more interesting, running the program will randomly give either one of the four verses, or the whole thing...
i know my time may come with the
NodeReaper, so i'm just doing all i can to ease that transition...
this was an exersise in making code obfuscated by adding WAY more code than was necessary, instead of the reverse...
hope y'all enjoy, and let me know of any bugs...
magnus
#!/usr/local/bin/perl
%p=(1,"ou",
2,"ing",3,"it",
4,"ev",5,"or",6,"of",
7,"th",8,"st",9,"be",10,
"ode", 11,"ack",12,
"er", 13,"ed",14,
"to", 15,"as",16,
"an", 17,"en",18,
"in", 19,"ip",20,
"w", 21,"y",22,
"m", 23, "j",24,
"l", 25," ",26, "\n",
31, "!",32,"v",33, "k"
,34, ":" ) ;sub a {$p
{1 } =~ /\w/;$l{c1}
=$& ; $p{1}=~/\w$/
;$l { c2}=$&;$p{2}=~
/\w$/; $l{c3}=$&;$p{4}
=~/\w/; $l{c4}=$&;$p{5}=~
/\w$/;$l{ c5}=$&;$p{6}=~/\w$/;
$l{c6}=$&; $p{7}=~/\w$/;$l{c7}=
$&; $p{9} =~/\w/;$l{c8}=$&;$p{11
}=~ /\w/ ;$l{c9}=$&;$p{11}=~/c/;$l
{ c10}= $&;$p{13}=~/\w$/;$l{c11}=$&;
$p{14} =~/\w/;$l{c12}=$&;$p{15}=~/\w$/
;$l{c13 }=$&;$p{17}=~/\w$/;$l{c14}=$&;$p{
19}=~/\w/;$l{c15}=$&;$p{19}=~/\w$/;$l{c16}
=$&;$p{27}=reverse$p{3};$p{28}=reverse$p{
12};$p{29}=reverse$p{15};$p{30}=reverse$p
{19};return(%l) ; }sub b { $s1="$l{c1}" .
"$p{25}$p{20}$l{c1}$l{c4}$p{31}$p{25}" .
"$p{14}$p{25}$p{21}". "$p{1}$p{25}$p{16}"
."$l{c11}$p{25}$p{14}$p{25}$p{21}$p{1}".
"$l{c5}$p{25}$l{c14}$p{10}$p{26}";$s2 =
"$p{6}$p{25}$p{22}$p{13}$p{3}$l{c9}" .
"$p{27}$l{c1}$l{c14}$p{25}$p{5}$p{25}".
"$l{c8}$p{3}$l{c13}$p{25}$p{6}$p{25}".
"$l{c10}$p{10}$p{26}$p{26}";print"$s1";
print"$s2";}sub c {$s3= "$l{c6}$p{5}".
"$p{25}$p{4}$p{17}$p{25}"."$l{c15}$l{c6}".
"$p{25}$p{3}$l{c13}$p{25}$l{c5}$p{19}$l{c4}".
"$p{25}$p{20}$p{3}$l{c7}$p{25}"."$l{c7}$p{11}".
"$p{2}$p{26}";$s4="$p{3}$p{25}$p{20}$p{15}$p{25}".
"$p{23}$l{c2}$l{c11}"."$l{c3}$p{13}$p{25}$l{c8}$p{21}".
"$p{25}$l{c1}$p{7}$p{12}$l{c13}$p{25}$p{15}$p{25}$l{c13}".
+ "$p{4}".
"$p{12}$p{24}$p{21}$p{25}$p{24}$p{11}$p{2}$p{26}$p{26}";pri
+nt "$s3";print
"$s4"; }sub d {$s5="$p{28}$l{c3}$l{c9}$l{c5}"."$l{c11}$p{24}
+". "$l{c4}$l{c13}".
"$l{c13}"."$p{25}$p{6}$p{25}$l{c14}$l{c1}$p{32}$l{c15}$l{c10}
+". "$l{c4}$p{25}".
"$p{5}$p{25}$p{29}$p{18}$l{c12}$p{25}$l{c2}$l{c16}$p{25}$l{c7}
+" . "$l{c15}$l{c3}".
"$l{c7}$p{26}"; $s6 = "$p{21}$p{1}$l{c5}$p{25}$l{c16}$l{c1}$p{8
+}" . "$p{2}"."$p{25}".
"$l{c15}$l{c13}$p{25}$p{23}$l{c2}$p{8}$p{25}$p{16}$l{c1}$p{7}$p{
+12}". "$p{25}$l{c10}".
"$l{c7}$p{12}$l{c5}$p{21}$p{25}$p{30}$l{c4}$p{26}$p{26}";print"$s
+5";print"$s6";}sub e {
$s7="$l{c13}$l{c1}$p{25}$p{7}$p{1}$l{c3}$l{c7}$p{25}$p{18}$p{25}$l{c1
+6}$p{12}$p{24}$p{25}".
"$p{3}$p{25}$p{22}$l{c9}$p{21}$p{25}$p{9}$p{25}"."$p{8}$l{c4}$l{c4}"."
+$l{c16}$p{13}$p{26}";$s8=
"$l{c12}$l{c9}$p{33}$l{c4}$p{25}$l{c9}$p{25}$l{c3}$p{16}$l{c11}$p{12}$
+p{34}"."$p{25}$p{21}$p{1}".
"$l{c5}$p{25}$l{c14}$p{10}$l{c13}$p{25}$p{9}$p{17}$p{25}$p{28}$l{c9}$l
+{c16}$p{13}$p{31}$p{26}";
print"$s7";print"$s8";}%l=&a();srand;$n=int(rand 5);if($n==0){&b;}elsi
+f($n==1){&c;}elsif($n==2){
&d;}elsif($n==3){&e;}else{&b;&c;&d;&e;}
