perl -e '$"="*";$a=hex eval "@ARGV";for my $x(0..3) {$b=128**(3-$x);$_=int($a/$b);print chr;$a-=$_*$b;}' 4 8 13 22853

I'm not very happy with this, as most of the obfuscation is in math, not code.

Replies are listed 'Best First'.
Re: Yet another...
by jdalbec (Deacon) on Mar 07, 2005 at 01:42 UTC
    Nothing wrong with mathematical obfuscation++. Of course I may be biased.