How to obfuscate this

#!/usr/bin/perl -w

foreach(unpack("C"x25,"\fA?\@\\/89\@2->\\x->6\\\n)+5->")){
print chr(oct(100+ eval "($_>100)?$_-100:chr($_)eq
qq(\/)?defined($_):chr($_)=~/\\\\/?-60:$_"));
}
[download]

I've tried to use perlfunc:map with this, but haven't gotten the syntax right. This is my first obfuscation, so any advice appreciated.

Comment on How to obfuscate this Download Code

Replies are listed 'Best First'.
RE: How to obfuscate this by cwest (Friar) on Jun 03, 2000 at 01:05 UTC
`print map{chr(oct(100+eval"($_>100)?$_-100:chr($_)eq qq(\/)?defined($_):chr($_)=~/\\\\/?-60:$_"# Enjoy :) ));}unpack("C"x25,"\fA?\@\\/89\@2->\\x->6\\\n)+5->")` [download] -- Casey	[reply] [d/l]

Back to Obfuscated Code