go ahead... be a heretic PerlMonks

### Column of Obscurity

by jake (Pilgrim)
 on Sep 10, 2001 at 23:12 UTC Need Help??

My second obfu. Enjoy!
```#!/usr/bin/perl
x(           );
xXx(XxX(chr(106
)x\$y));\$XxXxx =
XxX(('jjja'x4).
'j') ; \$XxXxX =
\$XxXxx;\$xy; xXx
(\$XxXxx);\$XxXxX
=~s x\+\+x\-\-x
;xXx(XxX('apapp
ppajjjjjap' ));
substr( \$XxXxX,
\$_,1)=uc(substr
(\$XxXxx,\$_,1) )
for@XXxx;\$xy=0;
xXx(XxX(chr(112
)x7));\$XxXxX=~s
xpx\$XXx;\$XX;xXx
(\$XxXxX);\$XxXxx
=XxX('hjjhhjhhp
apaaphhhhp' ) ;
\$xy=12;\$XxXxx=~
s!\^!\'!;\$xy=13
;\$XxXxx.=  ' ';
\$XxXxx.=XxX('ap
hphppajajappajj
jhjaaa');\$XxXxx
.=XxX('phpaphpa
p');\$xy=1;print
"\"\$XxXxx.\"\n"
; sub x { @Xx=(
'}tjM"xX\$X(xH',
'YDxf=xxXx/XP',
'\$b`def \$X~xA',
'%sun@X`5)=XJ',
'Xs;y}Xx1\$x.}',
'\$p"\$_+x,Xx=;',
'+mm%xX=2XXc)',
'++\$x\$x(1=xh1',
'=\$+op 7,"Xr-',
'X)+ora sh\$()',
'\$x=\$ so^"(o1',
'{\$fo trtIer\$',
'a{meks bild(',
' pomrocahg)g',
'byr owkww/{v',
'u atn raX)\$4',
'sth`lydsx.Xm')
;\$X=0;\$x=16;\$Y=
12;\$y=17; print
"\$XxXxX\n";}xXx
(XxX('phjhphjhp
hjhppppppajj'))
;xXx(XxX('jajaa
aaajjjjj'));xXx
(XxX('jjajjjjjj
jjjjjjjjjjapppp
ppppppppppppajj
jjjjjjj'));\$xy=
0x1243;\$XxXxX=~
s)sC)s C);\$xy=0
;sub j{\$x=--\$x%
\$y}sub xXx{eval
\$_[0]}sub XxX {
\$xX='' ;while (
\$_[0]=~/(.)/g){
\$xX .= substr (
@Xx[\$x], \$X,1);
\$xxX ="\$1\(\)";
xXx(\$xxX); \$xy}
\$XxX;return\$xX}
x(           );
--jake
"This space intentionally left blank" -Zork

Replies are listed 'Best First'.
Re: Column of Obscurity
by jynx (Priest) on Sep 11, 2001 at 03:43 UTC

This one is vastly interesting,

i particularly like how you made the very code you're writing embody the statement you're making; highly amusing and apropos. Much kudos for the ingenious work!

jake++

jynx

Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://111538]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (3)
As of 2022-05-29 09:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Do you prefer to work remotely?

Results (101 votes). Check out past polls.

Notices?