This should theoretically be fairly portable, but I've only tested it on 5.6.0/Linux and 5.8.0/ActiveState. If you don't like the first joke it gives you, run it some more times and you won't like the other ones either ;-)
$|++;;($;,$:,$,,$\,$^,$==>$~,$.,$})=("Izntvar n", "Prey pbqr","fpevor"=> "!$/","ernql"=>$^F, "boshfpng","fho",join ' ',@{;;[_(qw(oepgnf rhnuar nfarqr gu))]} [2,$?,3,$|,@;,5]);sub ::{;my$i=$^;;[split /#/,join$`,map{$i^=$_} split//,pop@_]}@%= map{my$die=$_;sub{print for join$',@$die[ $%,$==>$|]}}map{[map{sub {my$i=$!;join$&, map{my$o=$i;$i=$_;$o^$_;} split//,shift}; y;a-z;n-za-m;;$_;}@$_];}([ q"Ia Sbivrg ", "rf lbh","Rhffvn, $: $~"],[ "Ayy lbhe $~" ," ner orybat gb hf","rq $:" ], ["$; orb" ,"rq $:","jhys pyhfgre bs $~" ],["$|. We" .'v'."gr $~","$/3. Pebsvg","r" .qq-q-.' ' .$:.".$/$=. ???"],["Tur arkg ". "$: $~"=> "ef $} vg"." rneyl",q"vba jvyy " .'or'.qq ' $^ fbba, ohg $.$,'] );%_=map {my$z=( ($_|=$^O)?$_:::($_)); $_,sub{ while( pop){my$x=unpack'V',$_ ;push@| ,($x> $_?$x:$_)}print for@|}} 1..1024; ;sub _{+(@;=>@:)=map{[split//]}@_;for(1..9 ){push@:,join$&,map{shift@$_}@;}@:}$%[rand@%]->()
update: code below this point is
my signature and is not part of the above
obfuscation. I've reworked the sig to start
with a semicolon in case someone uses them
together, but that was not the intention.
update2: corrected
spelling error
;$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()} }split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Slashdot lamejoke generator
by Notromda (Pilgrim) on Oct 02, 2003 at 18:15 UTC | |
by jonadab (Parson) on Oct 04, 2003 at 00:14 UTC | |
by Notromda (Pilgrim) on Oct 08, 2003 at 00:28 UTC | |
by Notromda (Pilgrim) on Oct 02, 2003 at 18:18 UTC | |
by jonadab (Parson) on Mar 23, 2004 at 19:40 UTC | |
Re: Slashdot lamejoke generator
by NetWallah (Canon) on Oct 03, 2003 at 00:02 UTC | |
by Clachair (Acolyte) on Oct 03, 2003 at 08:57 UTC | |
Re: Slashdot lamejoke generator
by Anonymous Monk on Feb 10, 2004 at 20:25 UTC | |
Re: Slashdot lamejoke generator
by johndageek (Hermit) on Sep 30, 2003 at 12:18 UTC | |
Re: Slashdot lamejoke generator
by thelenm (Vicar) on Sep 29, 2003 at 15:57 UTC | |
Re: Slashdot lamejoke generator
by mojobozo (Monk) on Sep 29, 2003 at 20:38 UTC | |
Re: Slashdot lamejoke generator
by Anonymous Monk on Jan 19, 2004 at 13:54 UTC | |
Re: Slashdot lamejoke generator
by Anonymous Monk on Feb 07, 2004 at 22:02 UTC | |
by jonadab (Parson) on Feb 08, 2004 at 12:44 UTC | |
How to run it?
by Anonymous Monk on Mar 22, 2004 at 06:51 UTC | |
by jonadab (Parson) on Mar 23, 2004 at 19:33 UTC | |
Re: Slashdot lamejoke generator
by exussum0 (Vicar) on Sep 30, 2003 at 04:35 UTC |
Back to
Obfuscated Code