Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Column of Obscurity

by jake (Monk)
on Sep 10, 2001 at 23:12 UTC ( #111538=obfuscated: print w/replies, xml ) 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

Log In?
Username:
Password:

What's my password?
Create A New User
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 avoiding work at the Monastery: (5)
As of 2019-10-19 22:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?