My first obf/JAPH

I guess this isn't anything to write home about, but I kinda like it. Please make comments/suggestions.

#!/usr/bin/perl
@z=('')x11;$k='5397969880949610291891037060746998929510499113';while($
+k=~m m(102|103|104|113|..)mg)
{push(@l, $1);}@z=('')x eval($#z*2+1);for(0..scalar(@z)){$f.=chr(eval(
+"$#z+1-$_+$l[$_]"));}
$f=~s s(.{4})(.{7})(.{4})(.{6})s$1 $2 $3 $4sg;print$f;
[download]

SpaceAce

Comment on My first obf/JAPH Download Code

Replies are listed 'Best First'.
Re: My first obf/JAPH by Chady (Priest) on Oct 21, 2001 at 11:45 UTC
Try to loose some var names, and your loops are too obvious. This is another 'less-obvious' aproach: `#!/usr/bin/perl @z=('')x11;s ss5397969880949610291891037060746998929510499113s; push @s, $1 while (m/(102\|103\|104\|113\|..)/g);@z=('')x eval($#z* 2+1);$f = join '', map { chr(eval("$#z+1-$_+$s[$_]"))} (0..@z); $f=~ s s(.{4})(.{7})(.{4})(.{6})s$1 $2 $3 $4sg;print $f ; eval;` [download] I know, it's not that good, but I've never been very good at obfuz. 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: My first obf/JAPH by SpaceAce (Beadle) on Oct 21, 2001 at 23:10 UTC
Thanks for the suggestions. I am looking over it right now and I can see the improvement (or deprovement in readability). Some pretty obvious things I should have thought of. Thanks SpaceAce	[reply]