Slightly revised... so I guess really it is my second attempt.
($p,$_)=(95,'1154_LarryWallTribute_02B4124AF01411' );$_.='54A024D0D4#perlmonks.org#014F054C1C4134B0'. q)D41134A0114:-]1B4$_0D41641D4C094174(024;084164-; 0D4168);for(split/4/){m#(\d)(.+)#;($1)?($p-=hex$2) :($p+=hex$2);print chr($p)}#eval;print'Hi Mom!';$_
|
---|
Replies are listed 'Best First'. | |
---|---|
RE: My first attempt at obfuscation
by ChuckularOne (Prior) on Apr 27, 2000 at 21:01 UTC | |
by Adam (Vicar) on Apr 28, 2000 at 00:24 UTC |
Back to
Obfuscated Code