Title says it all, really. This is my first serious
(deliberate :-) attempt at obfuscation, and seems awfully
weak and transparent compared to some of the masterworks
on this site. Then again, maybe all obfus seem transparent
to their authors....
#! /usr/bin/perl -w
use strict;
$a='Just' ; $b='another';$a=~
y{stuJ}{ciec} ;undef $_;$\="hacker,
";my$magritte = pack q\C4
\, split /,/, qq; 80, 101
, 114, 108; ; $a.=q;_;;$.=
$\;$\=~s!.*$! $.=~y`ahr,eck
`nupha j\n`,$. !sme;$b=~y/t
ronahe/sPxte'n /;$_=$a.$b;
$_.=join '', map {chr($_/2)}
map{ord} split'',$magritte
^(join '', map{chr}qw{238
133 176 138});$\=' '.$\
;s; ;;g;y;_; ;;chomp
$\;print;
Tested under FreeBSD 4.5-RELEASE and Perl 5.005_03, and
Linux (mongrel) and Perl 5.6.1. Copy-pasting from the
preview page seemed to mangle the code (by inserting two
leading spaces on each line below the shebang); be warned.
(Downloading the code explicitly seems to work fine, tho.)
Suggestions always welcome, especially since I'm new to the
obfuscation game and could use the help.
The work this is based on is Magritte's "pipe", with a
bit of help from Gödel, Escher, Bach by Douglas
Hofstadter. Most of you will recognize both, I'm sure. If
not, there's always
Google :-P
--
F
o
x
t
r
o
t
U
n
i
f
o
r
m
|
Found a typo in this node? /msg me
|