Unobfuscate this code!

[samjh]

I've just come across www.perlmoks.org. It looks like a Perl programming website, boasting many weird uses of Perl.

Since I'm not a Perl programmer, curiosity got the better of me, and upon a little shallow browsing of the site's contents, I discovered this obfuscated Perl code which happens to be the most creative use of obfuscated code I've ever seen!

Original here: http://www.perlmonks.org/?node=Obfuscated%20Code


my $f="^("
;my $r = '"';my$c
= 1; my $i; my $t;sub
llama{my $n=shift;my
$r=""; for
(1..11){$r
.=($n>=(2
**(11-$_))
)?1:0;if(
rindex($r,
"1")==$_-1
){$n-=(2**(
11-$_));}} return $r;}$_ = "0";$_.=llama(1855) ; $_ .=llama(
188);$_.=llama(935); my @i= split(//,$_);foreach(@i){#;+++''
$_+=2;$f.='.'x$_.')('; $r.='$'.$c++.' ';}$r .= '"';#';+++;++'
$f.=')';my $string = "";foreach(<DATA>){$string.=$_;}#'+#++;:
$string =~ s/[ \n]//g;my@g=unpack("C*",$string);#;';:;##+'#
my $st="";for(1..44){$st .= (($t=(($i=shift(@g))==#';###':
38)?$i+shift(@g):$i-shift(@g))<=9)?#,.+'';'';';+'''++@#,
"0".$t:$t;}$_=$st ."4";#++'##+;',::',;;+#;+##,;;@#@#+,
/$f/;###';##';;;;++#+@++@#+#@+'',:'';'''+##+@;#:+@#:;
my $s = eval $r;#`'+@@@@##@@@+###@#;,''#@@+@''++#+',
my @p = split(/ /, $s);#@@@@+#@'@'+##+##@+#@++#@,`
print pack("C*",@p). "\n";###@#@+#;@##+@######'`
#@@#'';:+'''+#++` '@@@#@#@@@###@@####@#+',.
#@@+;##;'+;+#` ,:+####@@@+#@#+#@#+@#
#@@#++#;+## ..+#+''#'@@@@#;+@#
#@@##++''' ` ,.` #@@@@#;#;.
__DATA__ #@@@@@@#+'
&$.#&! :+.#{<?"&
!.$.# .#:*.$O&%$
.#O$< $.%&!.%&;
.#_" %$. #&!
:,O& O/ }-
.$. #< ..
$} *< '+
'&; &= .$
&! %$ .#Now... just what in the universe full of electrons does that thing do?!
:popcorn:

[lisati]

"The one-l lama, he's a priest,
The two-l llama, he's a beast,
but I will bet a silk pajama
there's no such thing as a three-l lllama"


---Ogden Nash

(Notwithstanding the conflagration known as a "three alarmer")

[Ramses de Norre]

This is a bit more readable:

#!/usr/bin/env perl
my $f="^(";
my $r='"';
my $c=1;
my $i;
my $t;
sub llama
{
my $n=shift;
my $r="";
for(1..11)
{
if($n>=(2**(11-$_)))
{
$r.=1;
}
else
{
$r.=0;
}
if(rindex($r,"1")==$_-1)
{
$n-=(2**(11-$_));
}
}
return $r;
}

$_ = "0";
$_.=llama(1855);
$_ .=llama(188);
$_.=llama(935);
my @i=split(//,$_);

foreach(@i)
{
$_+=2;
$f.='.'x$_.')(';
$r.='$'.$c++.' ';
}

$r.='"';
$f.=')';
my $string="";

foreach(<DATA>)
{
$string.=$_;
}

my @g=unpack("C*",$string);
my $st="";

for(1..44)
{
$i=shift(@g);
if($i==38)
{
$t=$i+shift(@g);
}
else
{
$t=$i-shift(@g);
}
if($t<=9)
{
$st.="0".$t;
}
else
{
$st.=$t;
}
}

$_=$st."4";
/$f/;
my $s=eval $r;
my @p=split(/ /, $s);
print pack("C*",@p)."\n";

__DATA__
&$.#&!:+.#{<?"&!.$.#.#:*.$O&%$.#O$<$.%&!.%&;.#_"%$.#&!:,O&O/}-.$.#<..$}*<'+

As you can see the code does mainly some string operations on the string defined below __DATA__ .

[Keymone]

http://www.ioccc.org/

[LaRoza]

How about this Perl program, run it and see!

http://99-bottles-of-beer.net/language-perl-737.html

[pmasiar]

Now... just what in the universe full of electrons does that thing do?!


... where, of course, the O'Reilly book "Programming Perl" is called "Camel book" (with picture of camel), and "Learning Perl" is "Llama book", and has picture of llama. Rumors are, camel was selected because it is like Perl: ugly, almost impossible to master, but durable and able to accomplish what no other beast can.

[samjh]

How about this Perl program, run it and see!

http://99-bottles-of-beer.net/language-perl-737.html

I have a deep dislike of ugly code, but I must admit that is impressive.


O'Reilly book "Programming Perl" is called "Camel book" (with picture of camel), and "Learning Perl" is "Llama book", and has picture of llama.Yep, I found that out while I was browsing the O'Reilly website, which is how I came to stumble across the perlmonks one. That's why I found the obfuscation so funny. :)

[LaRoza]

[QUOTE=samjh;3396323]I have a deep dislike of ugly code, but I must admit that is impressive.
\/QUOTE]

It uses Perl RE (I believe), I don't pretend to understand it!