$b="Just another Perl hacker.\nd";$c=uc join'', (split//,$b)[5,1,3,7,16,7,19,26]; chop $b;sub a{$b};eval join'=',map"*$_",qw($c a); print _Obfuscation_();
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Seems straightforward, but...
by tachyon (Chancellor) on Jul 06, 2001 at 01:35 UTC | |
(dissection) Re: Seems straightforward, but...
by japhy (Canon) on Jul 06, 2001 at 01:38 UTC |
Back to
Obfuscated Code