Here's one aimed at people new to obfuscation. Each package hides its data in a different way. Shouldn't be too challanging to sort out, but can give ideas about possibilities.package Through::and;$through="\x4a\x75\x73\x74\x20\x41\x7"; package Sit::Bubbu;@sit=('H',' ','l','r','e','P',' ','r','e'); package Captian::my;@captian= reverse(@Sit::Bubbu::sit); package Run::Spot;@_='a'..')';$run=@_[0].@_[2].@_[10].@_[4].@_[17]; package Die::Bart;$die=")n!o&t#h"; $die =~ s/\W//g; print $Through::and::through, $Die::Bart::die, @Captian::my::captian, +$Sit::Bubbu::sit, $Run::Spot::run, "\n";print;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Fun with Packages
by JediWizard (Deacon) on Mar 07, 2005 at 20:50 UTC | |
|
Re: Fun with Packages
by Fletch (Bishop) on Mar 07, 2005 at 15:17 UTC | |
by ktross (Deacon) on Mar 07, 2005 at 15:41 UTC | |
|
Re: Fun with Packages
by jdalbec (Deacon) on Mar 10, 2005 at 01:53 UTC |