First obfuscation attempt

Hi Monks,
This is my first attempt at obfuscation, i'm sure you guys can read this at first glance but thought i'd give it a shot anyways, enjoy!

#!/usr/bin/perl
@m=qw/13 12 108 105 101 78/;$c=join("",map(chr,qw/112 114 
105 110 116 32/));1 && $c .="map chr,reverse qw/@m/";1&& 
system "perl -e '$c'";
[download]

Neil Archibald
- /dev/IT -

Comment on First obfuscation attempt Download Code

Replies are listed 'Best First'.
Re: First obfuscation attempt by tcf22 (Priest) on Jul 14, 2003 at 19:03 UTC
Doesn't work for me on Win XP. I get Can't find string terminator "'" anywhere before EOF at -e line 1. A simple fix to the `system` call fixed the problem. `#!/usr/bin/perl @m=qw/13 12 108 105 101 78/;$c=join("",map(chr,qw/112 114 105 110 116 32/));1 && $c .="map chr,reverse qw/@m/";1&& system "perl -e \"$c\"";` [download]	[reply] [d/l] [select]
Re: First obfuscation attempt by naChoZ (Curate) on Jul 15, 2003 at 02:20 UTC
Works fine for me on FreeBSD 5.0 and perl 5.6.1. ~~ naChoZ	[reply]