http://qs321.pair.com?node_id=188504

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