poor attempt to obfuscate.

here's the work of a bored 5 minutes. (:

#!/usr/bin/perl -w 
@$=qw/':&%C:V5R"@``%<&5R;`H`(86YO=&AE<@H`%:G5S=`H`/;map{$i=$i.$_}rever
+se split//,unpack('u',"@$");$_=$i;$i="\n";s.\n.\..g;@d=split/\./;map{
+$i=$i.scalar reverse"$_ ";}@d;$i=~s/^\s+(.*)/$1\n/g; print for(split/
+/,$i);
[download]

(PS: be gentle; i rarely ever -try- to obfuscate my code hehe)

Comment on poor attempt to obfuscate. Download Code

Replies are listed 'Best First'.
Re: poor attempt to obfuscate. by jynx (Priest) on Aug 21, 2001 at 04:12 UTC
boredom is rampant today, here's my 15-minute TMTOWTDI: #!/usr/local/bin/perl -w use strict; @$=qw/':&%C:V5R"@``%<&5R;`H`(86YO=&AE<@H`%:G5S=`H`/;$a.=$_ for reverse split//,unpack'u',"@$";($_,$a)=($a,$/);$a.= reverse"$_ "for split/$a/;$_=$a,s/^\s+(.)/$1\n/g;print; [download] enjoy :) jynx update*: changed it to be strict compliant by the letter of the law (not the essence ;)	[reply] [d/l]