I haven't posted anything here for a while, so..
@m='just another perl hacker'=~/./g;@a=0..$#m;$|=1;map
{select($u,$u,$u,.02);//?print$r,$o[$_]||$",$r:(@o[@i[
0..2]]=@m[@i=grep!$o[$_],sort{rand()<=>rand}@a],$r=(chr
8)x!$r,@a=reverse@a)}@a,''while"@o"ne"@m";print@o,$/

[download]
not terribly complicated..

Jasper

Replies are listed 'Best First'.
Re: teletype
by Anonymous Monk on Jun 14, 2003 at 13:10 UTC
    Ahhh! Great! I laugh when I saw it! Pilgrim JaK
[reply]
Re: teletype
by one4k4 (Hermit) on Jun 13, 2003 at 18:15 UTC 
    just a ot  r pe   hackerUse of uninitialized value in join or string a
+t test.pl
line 4.
Use of uninitialized value in join or string at test.pl line 4.
Use of uninitialized value in join or string at test.pl line 4.
just another perl hacker

    [download]
    Was what I got on win32 (5.8.0) and the same on Red Hat (5.6.1). Did I cut-n-paste wrong?

    However, I *did* see some of that funky teletype action going on while the warn/errors were a scrollin'..

    One4k4 - perlmonks@poorheart.com (www.poorheart.com)
[reply]
[d/l]

      Without -w it runs fine in Win32 5.6.1

[reply]
      whoever heard of running obfuscated code with -w :) ?!!?!1

      Jasper
[reply]
[reply]

Back to Obfuscated Code