*Poof *, and it's gone.

Just a little fun with some dusty idioms.

$g ='* * * * * Just  another  Perl  hacker. * * * * *';;$t=length$g;
sub h{select$9,$8,$7,pop}$|++;;$r="\r".' 'x$t;;print$g;h(1);{h(.15);
print"$r\r@{[' 'x(($t-length$g)/2)]}$g";do{die"$r\n"}unless$g=~s|(.)
(.)|($1,$2)[rand(2)]|gex;redo}
[download]

Enjoy!

Dave

Comment on Poof , and it's gone. Download Code

Replies are listed 'Best First'.
SPOILERS Re: Poof , and it's gone. by jweed (Chaplain) on Feb 13, 2004 at 04:14 UTC
Since deobfuscating obfus helps me learn, an explanation follows: Read more... (5 kB) Code is (almost) always untested. http://www.justicepoetic.net/	[reply] [d/l] [select]
Re: SPOILERS Re: Poof , and it's gone. by davido (Cardinal) on Feb 13, 2004 at 05:39 UTC
Congratulations, you're 100% correct. I really think it takes about ten times more patience to deobfuscate one of these things than it does to dream it up. I'm flattered you were intregued enough to tackle it. Good job. Dave	[reply]