A Prefect Obfuscation

Coincidentally, this is my 42nd writeup.

#!/usr/local/bin/perl -w
use strict;
$_="112|101|114|108|32|45|101|32|39|36|95|61|34|49|57|46|56|79|50|48|
46|49|92|110|49|79|50|46|49|79|50|46|49|79|56|46|52|79|56|46|52|79|57|
46|49|79|50|46|49|79|50|46|49|79|49|92|110|49|46|49|79|49|46|49|79|49|
46|49|79|54|46|51|79|49|54|46|51|79|55|46|49|79|49|46|49|79|49|46|49|
79|49|46|49|92|110|10|50|46|51|79|53|46|50|79|50|50|46|50|79|54|46|51|
79|50|46|49|92|110|49|46|49|79|51|46|51|79|49|46|49|79|50|54|46|49|79|
50|46|51|79|51|46|49|79|49|46|49|92|110|50|46|49|79|49|46|49|79|51|46|
49|79|50|56|46|49|79|52|46|49|79|49|46|49|79|50|46|49|92|110|10|51|46|
49|79|52|46|49|79|50|56|46|49|79|53|46|49|79|51|46|49|92|110|51|46|49|
79|51|46|49|79|51|48|46|49|79|52|46|49|79|51|46|49|92|110|51|46|49|79|
51|46|49|79|51|48|46|49|79|52|46|49|79|51|46|49|92|110|50|46|49|79|52|
46|49|79|51|48|46|49|79|52|46|49|79|51|46|49|92|110|10|49|46|55|79|53|
46|50|79|49|54|46|50|79|53|46|55|79|50|46|49|92|110|55|46|49|79|52|46|
49|79|50|46|51|79|49|48|46|51|79|50|46|49|79|52|46|49|79|56|46|49|92|
110|56|46|49|79|52|46|49|79|52|46|49|48|79|52|46|49|79|52|46|49|79|57|
46|49|92|110|10|56|46|49|79|53|46|50|79|54|46|49|92|92|51|46|49|92|92|
51|46|50|79|53|46|49|79|57|46|49|92|110|57|46|49|79|54|46|52|79|51|46|
49|92|92|49|46|49|92|92|49|46|49|92|92|51|79|53|46|49|79|49|48|46|49|
92|110|49|48|46|50|79|56|46|52|79|49|92|92|49|46|49|92|92|49|46|49|92|
92|53|46|50|79|49|49|46|49|92|110|10|49|50|46|51|79|49|48|46|49|40|51|
95|49|41|49|46|51|79|49|51|46|49|92|110|49|53|46|52|79|56|46|52|79|49|
54|46|49|92|110|49|57|46|56|79|50|48|46|49|92|110|52|55|46|49|92|110|
49|56|46|49|68|49|79|49|78|49|84|49|46|49|80|49|65|49|78|49|73|49|67|
49|57|46|34|59|10|109|121|32|36|109|59|115|124|40|92|100|43|41|40|91|
94|92|100|93|41|124|102|111|114|40|109|121|32|36|105|61|49|59|36|105|
60|61|36|49|59|36|105|43|43|41|123|36|109|46|61|36|50|59|125|124|103|
101|59|112|114|105|110|116|32|36|109|59|39";
my $r = join '',map{chr;}split '\|';print `$r`;
[download]

There is more to this than first meets the eye.

Update: This my first, I would appriciate some criticism.

-thabenksta

my $name = 'Ben Kittrell';
$name=~s/^(.+)\s(.).+$/\L$1$2/g;
my $nick = 'tha' . $name . 'sta';
[download]

Comment on A Prefect Obfuscation Select or Download Code

Replies are listed 'Best First'.
Re: A Prefect Obfuscation by turnstep (Parson) on May 02, 2001 at 19:01 UTC
A nice trick, but it is still not very obfuscated. Or rather, it's one of those "obfuscation through encoding" scripts that basically hides the real code away from those reading by some sort of encoding scheme. The backticks are a nice touch, but they are really the only obfuscated part. Some encoding is okay, but it should be limited to dead giveaway parts, such as text messages, and not the code itself. (See my Perl Racer code for an example that encodes the text messages but not the code itself) My quick test of a good obfuscation is: can I read through this and figure out what it does? In this case, the answer was "yes." I did think it was a usual map-chr sort of letter munging until I got to the end, however, so you get points for that. Making me decode the inside to get to the actual code, however, is not good. Just my $0.02. Everyone has individual styles and opinions about obfuscations.	[reply]
Re: A Prefect Obfuscation by beowulf (Scribe) on May 02, 2001 at 07:12 UTC
Nice, but not very obfuscated. If instead of that big list of numbers at the beginning, you had a routine that generated that big long list of numbers, then it would be a heck of a lot better. But, don't ask me how to do that. The best thing about Perl is that you can do anything with it. The worst thing about Perl is that you can do anything with it.	[reply]
Re: Re: A Prefect Obfuscation by thabenksta (Pilgrim) on May 02, 2001 at 18:17 UTC
That big list of numbers, does generate a big list of numbers. Look closer. -thabenksta `my $name = 'Ben Kittrell'; $name=~s/^(.+)\s(.).+$/\L$1$2/g; my $nick = 'tha' . $name . 'sta';` [download]	[reply] [d/l]


Just another Perl shrine
	PerlMonks