Re: 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

Comment on Re: DNA (sorta) Download Code

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]
Re: Re: Re: DNA (sorta) by blakem (Monsignor) on Oct 20, 2001 at 15:26 UTC
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]


Your skill will accomplish what the force of many cannot
	PerlMonks