Monster Cipher Generator

[turo]

Inspired by Hue-Bond and is recent node "Easier than it seems", i've made a script to generate an obfuscated and headache-maker code like the following one

#!/usr/bin/perl
$_=q|print chr foreach
(do{$}=42;$}++;$}+=0x13;$}++;$}--;++$};$}+=0xa;$}+=0x13;$}++;$}++;$}--
+;--$};$}--
;$}++;--$};$}+=0x13;$}+=0xa;++$};--$};$}++;--$};$}++;$}-=0x14;$}+=0xa;
+$}--;--$};
$}-=0x14;$}--;$}+=0xa;$}+=0xa;$}+=0xa;$}--;$}-=0x14;$}+=0x13;$}+=0xa;$
+}--;--$};$
}-=0x14;$}-=0x14;$}++;++$};$}-=0x14;$}-=0x14;--$};$}+=0xa;$}+=0xa;$}+=
+0x13;$}--;
$}--;$}-=0x14;--$};$}--;$}--;$}+=0x13;++$};$}+=0xa;$}++;$}--;++$};$}--
+;$}+=0x13;
$}+=0xa;++$};$}-=0x14;$}--;$}++;$}++;++$};$}++;$}-=0x14;$}+=0xa;$}+=0x
+13;--$};$}
++;++$};$}--;$}++;++$};$}--;$}+=0xa;$}++;$}-=0x14;$}+=0xa;++$};--$};$}
+++;--$};$}
+=0xa;$}++;++$};$}++;$}--;--$};$}-=0x14;$}++;$}-=0x14;$}-=0x14;++$};--
+$};--$};--
$};$}-=0x14;--$};$}-=0x14;--$};$}+=0x13;$}++;$}+=0x13;$}+=0xa;--$};$}+
++;--$};--$
};$}++;$}+=0x13;++$};--$};$}-=0x14;$}+=0xa;$}-=0x14;++$};$}+=0xa;$}++;
+$}--;$}++;
$}++;++$};$}-=0x14;$}--;$}++;$}+=0xa;$}--;$}--;$}-=0x14;++$};$}++;$}+=
+0x13;$}--;
$}-=0x14;$}-=0x14;$}++;$}++;++$};++$};$}++;$}+=0x13;$}+=0x13;$}+=0xa;+
++$};++$};$
}+=0x13;$}++;--$};--$};--$};$}++;$}++;$}+=0xa;$}++;$}--;$}-=0x14;$}+=0
+xa;--$};$}
+=0xa;--$};$}-=0x14;$}--;$}+=0x13;$}+=0xa;++$};++$};$}+=0xa;$}--;$}++;
+$}--;$}--;
--$};--$};$}++;$}-=0x14;++$};--$};++$};--$};$}+=0xa;$}+=0xa;$}--;$}-=0
+x14;++$};$
}+=0x13;--$};++$};$}++;$}--;++$};$}--;--$};++$};$}--;$}+=0xa;$}-=0x14;
+$}-=0x14;$
}+=0x13},do{$}=(1<<5)+0xa;$}+=0x13;++$};--$};$}++;++$};$}++;$}+=0xa;++
+$};$}-=0x1
4;++$};++$};$}-=0x14;$}+=0x13;--$};$}+=0xa;$}-=0x14;$}--;--$};--$};$}-
+=0x14;$}--
;$}+=0x13;++$};--$};$}++;++$};$}--;++$};++$};$}+=0x13;++$};$}+=0x13;$}
+-=0x14;--$
};$}+=0x13;$}+=0xa;$}--;$}+=0x13;--$};$}+=0xa;++$};--$};$}+=0xa;--$};$
+}-=0x14;--
$};$}--;$}-=0x14;$}-=0x14;$}-=0x14;$}++;$}+=0x13;$}+=0x13;$}--;$}+=0xa
+;$}--;$}-=
0x14;$}--;$}--;$}+=0xa;$}++;++$};$}--;$}+=0x13;++$};$}-=0x14;$}++;++$}
+;$}--;$}+=
0xa;$}++;$}++;--$};$}-=0x14;$}++;$}-=0x14;--$};$}++;$}++;$}-=0x14;$}++
+;--$};$}+=
0xa;$}--;--$};$}-=0x14;$}+=0xa;$}+=0xa;$}++;$}+=0x13;$}-=0x14;$}+=0xa;
+$}--;--$};
$}+=0x13;$}++;--$};$}+=0xa;$}++;$}++;$}--;$}+=0x13;$}-=0x14;$}+=0x13;$
+}+=0x13;$}
+=0xa;$}--;--$};$}--;++$};$}--;++$};$}-=0x14;$}--;$}+=0x13;$}++;++$};$
+}-=0x14;$}
+=0xa;++$};$}+=0xa;--$};$}--;++$};$}--;--$};++$};$}-=0x14;$}-=0x14;$}+
++;$}+=0xa;
--$};$}--;$}+=0x13;--$};$}++;$}+=0xa;$}--;$}++;--$};$}-=0x14;++$};$}+=
+0xa;++$};+
+$};++$};++$};--$};$}+=0xa;++$};$}--;--$};$}--;$}--;++$};$}-=0x14;--$}
+;$}--;$}++
;$}+=0xa;--$};$}++;$}--;++$};--$};$}++;--$};--$};--$};$}++;$}+=0xa;++$
+};$}--;--$
};$}++;++$};$}-=0x14;++$};$}++;$}++;++$};$}--;$}-=0x14;--$};$}+=0x13;$
+}-=0x14;$}
--;--$};$}-=0x14;--$};$}++;--$};--$};$}-=0x14;$}+=0x13;++$};$}-=0x14;$
+}-=0x14;--
$};--$};--$};--$};++$};$}-=0x14;--$};$}+=0x13;--$};$}+=0xa;$}--;$}+=0x
+13;$}+=0x1
3;$}+=0x13;$}+=0xa;--$};++$};$}+=0x13;$}-=0x14;$}++;--$};$}+=0x13;$}--
+;--$};++$}
;$}-=0x14;++$};--$};$}--;$}+=0x13;$}--;$}+=0xa;$}--;$}+=0xa;++$};$}--;
+$}--;$}++;
$}++;--$};$}-=0x14;$}+=0xa;$}+=0xa;++$};$}-=0x14;++$};$}-=0x14;$}--;$}
++=0xa;--$}
;++$};$}+=0xa;++$};$}++;$}++;--$};++$};$}+=0xa;$}+=0xa;$}--;$}-=0x14;$
+}--;$}--;-
-$};$}+=0xa;$}--;++$};$}-=0x14;$}+=0xa;$}+=0xa;$}-=0x14;$}-=0x14;$}+=0
+x13;--$};+
+$};$}-=0x14;++$};--$};$}+=0xa;$}--;$}+=0xa;$}-=0x14;--$};++$};$}++;$}
+++;$}+=0xa
;$}+=0xa;$}+=0xa;$}-=0x14;$}++;$}-=0x14;$}+=0x13;$}+=0xa;$}+=0xa;++$};
+$}+=0xa;$}
-=0x14;$}--;$}--;$}--;++$};--$};$}+=0xa;$}--;$}+=0x13;++$};--$};$}+=0x
+a;$}++;--$
};$}-=0x14;--$};$}--;$}+=0xa;$}++;++$};$}--;$}++;$}++;$}--;$}++;++$};$
+}++;$}--;$
}-=0x14;$}+=0xa;--$};$}+=0xa;$}--;++$};++$};$}--;--$};$}++;$}++;$}-=0x
+14;$}+=0xa
;$}+=0xa;++$};$}-=0x14;--$};$}+=0xa;++$};$}--;++$};--$};++$};++$};$}-=
+0x14;$}+=0
x13;$}+=0xa;$}-=0x14;$}++;$}--;$}+=0xa;$}+=0xa;--$};++$};++$};--$};--$
+};--$};$}-
=0x14;$}--;$}-=0x14;$}-=0x14;--$};$}-=0x14;$}+=0xa;$}--;$}+=0xa;$}--;-
+-$};$}-=0x
14;$}--;$}+=0xa;--$};$}-=0x14;$}++;$}++;$}-=0x14;$}+=0x13;$}--;$}--;$}
+-=0x14;$}+
+;$}-=0x14;$}+=0x13;$}+=0x13;$}--;--$};$}-=0x14;++$};$}++;$}--;$}+=0xa
+;$}+=0xa;$
}--;$}++;++$};--$};$}+=0xa;$}++;$}+=0xa;$}--;$}+=0x13;--$};$}+=0x13;--
+$};--$};$}
-=0x14;--$};$}+=0x13;--$};$}-=0x14;++$};$}+=0x13;$}-=0x14;$}+=0x13;$}-
+=0x14;$}+=
0xa;$}+=0x13;$}+=0xa;++$};$}+=0xa;++$};$}--;$}+=0x13;$}--;--$};$}--;++
+$};$}+=0xa
;++$};$}-=0x14;$}+=0x13;++$};$}--;++$};--$};$}-=0x14;$}+=0xa;$}--;$}-=
+0x14;--$};
$}++;$}++;$}-=0x14;$}++;$}--;--$};$}+=0xa;$}++;--$};++$};--$};$}+=0xa;
+++$};$}++;
$}++},do{$}=42;$}-=0x14;$}+=0x13;$}-=0x14;++$};$}++;$}+=0x13;$}-=0x14;
+--$};--$};
++$};$}+=0x13;$}--;$}++;--$};--$};$}++;$}+=0x13;$}-=0x14;$}-=0x14;$}++
+;$}--;$}--
;$}+=0xa;$}+=0x13;$}+=0xa;$}--;$}+=0x13;$}+=0xa;$}++;$}-=0x14;--$};$}+
++;$}-=0x14
;$}+=0xa;++$};$}+=0x13;$}+=0x13;$}-=0x14;$}++;$}-=0x14;$}++;$}++;$}++;
+++$};--$};
$}-=0x14;++$};$}+=0xa;$}++;$}--;$}++;$}+=0xa;$}++;$}+=0x13;$}+=0xa;$}-
+-;++$};$}+
+;$}+=0xa;$}+=0x13;$}++;$}--;$}-=0x14;$}-=0x14;$}+=0x13;$}-=0x14;$}++;
+$}-=0x14;+
+$};$}+=0x13;$}+=0xa;$}+=0xa;$}+=0xa;$}+=0xa;--$};$}-=0x14;$}++;$}+=0x
+a;$}+=0xa;
++$};$}--;$}--;++$};$}--;$}--;$}--;--$};$}++;++$};$}++;$}--;--$};$}-=0
+x14;++$};$
}+=0xa;$}+=0x13;$}++;$}-=0x14;++$};++$};$}+=0xa;$}--;$}-=0x14;$}+=0x13
+;$}-=0x14;
$}--;--$};--$};$}--;$}-=0x14;--$};$}+=0x13;$}-=0x14;$}++;--$};$}--;$}-
+=0x14;--$}
;--$};$}+=0x13;--$};$}++;--$};$}+=0x13;$}+=0xa;$}-=0x14;++$};--$};$}++
+;$}+=0xa;+
+$};++$};$}--;$}++;$}+=0x13;$}+=0xa;$}-=0x14;$}-=0x14;$}+=0x13;++$};$}
++=0x13;$}-
=0x14;$}+=0xa;++$};$}--;$}+=0x13;$}++;--$};++$};--$};$}++;$}++;--$};--
+$};$}-=0x1
4;++$};$}--;$}+=0xa;$}-=0x14;$}++;$}--;$}--;--$};$}--;$}+=0x13},do{$}=
+(1<<5)+0xa
;--$};$}+=0x13;$}++;$}+=0x13;$}++;$}+=0xa;$}--;$}++;$}--;$}++;$}+=0xa;
+$}-=0x14;+
+$};++$};$}++;$}+=0xa;$}+=0x13;++$};$}+=0xa;$}-=0x14})|;  s/\n//g;eval
+;print"\n"
#Just Another Perl Hacker

The script generator is simple, and can be customized to generate a more interesting output (now, i'm out of ideas)

#!/usr/bin/perl
use strict;
use List::Util 'shuffle';
$_="Just Another Perl Hacker,";
my @plaintext = map { ord } split "";


my @ciphertext = ();
my @init       = ('$}=(1<<5)+0xa','$}=42');
my @op         = ( '$}++', '$}--', '--$}', '++$}',
                   '$}+=0xa', '$}-=0x14', '$}+=0x13' );
for (my $i=0; $i<@plaintext; $i++) {
        my (@stack,$result,$stop);
        push @stack, $init[int(rand(@init))];
        while (!$stop) {
                my $heap = pop @stack;
                $result  = eval "$heap";
                if ($result == $plaintext[$i]) {
                        push @ciphertext, $heap;
                        $stop++; next;
                } else {
                        next if ( abs($result) > 127 );
                        @op = shuffle(@op);
                        for (my $j; $j<@op; $j++) {
                                push @stack, "$heap;$op[$j]";
                        }
                }
        }
}
print "#!/usr/bin/perl\nprint chr foreach (";
for (my $i=0; $i<@ciphertext; $i++) {
        print "do{$ciphertext[$i]}",((($i+1)==@ciphertext)? ")":",");
}
print "\n#Just Another Perl Hacker";

I like very much the scripts who creates scripts, that is, the meta-scripts :-)

cheers

turo