in reply to DNA (sorta)

Nice. I munged it a bit and tossed out your @a in favor of some more obfued ones.... 
{$#==18,local@[[sin($-/2)*9+9,cos($-/2)*9+9]=('*')x2,s]
 ]@{[}$/]x,print;$-++;$_=$;;1for(1..10**5);redo}

[download]

-Blake

Replies are listed 'Best First'.
Re: Re: DNA (sorta)
by Chady (Priest) on Oct 20, 2001 at 14:16 UTC

    added @a again 'in favor of' printing some text.. I haven't obfued it any further that u did though.

    {@a=split'','just another perl hacker'unless@a;
$#==18,local@[[sin($-/2)*9+9,cos($-/2)*9+9]=(shift
@a)x2,s]]@{[}$/]x,print;$-++;$_=$;;1for(1..10**5);redo}

    [download]
    He who asks will be a fool for five minutes, but he who doesn't ask will remain a fool for life.

    Chady | http://chady.net/
[reply]
[d/l]
      I like it! Of course, that leaves the door wide open for something like this: 
      {($_='Yw^xUabcdtefgdijktljkotiersjkUzxTyvlkbfdtcierstajogvPruntRshackR
+Jelov')
=~ y&RTUv;wxYz$& ~'/;$=()x;$&;eval;$_=$@;@a=split'',$^unless@a;$#==
18,local@[[sin($-/2)*9+9,cos($-/2)*9+9]=(shift@a)x2,s]]@{[}$/]x,print
;$-++;$_=$;;1for(1..10**5);redo}

      [download]
      (japh borrowed from anonymonk at Optical Illusion)

      -Blake

[reply]
[d/l]

In Section Obfuscated Code