Beefy Boxes and Bandwidth Generously Provided by pair Networks Joe
P is for Practical
 
PerlMonks  

An Obfuscated ("The Perl Journal") Script

by Marburg (Novice)
on Apr 27, 2000 at 01:54 UTC ( #9337=sourcecode: print w/ replies, xml ) Need Help??

Category: Obfuscated Code
Author/Contact Info Marburg (john.keating@may.ie)
Description: Here is my entry to the last Perl Journal Obfuscation contest ... the "The Perl Journal" section. I hope it makes sense ... not! John.
$b=\q~~,$a='@_=$&,++@_=>$a=~m,.,;@_=$&,',$b="z"=>$a=~y,@_,$a,,$b=~s/./
+$a/ee; 
$_=$~,s~(.).*(.).~\L$1$2a~,$_++,;s,^,\$^^*,,s,$,{},,s,{,{\$0**1?\\\$^:
+\$^^,,
s,(\d),$1--,,;s~{~{s,(\\(),\$1.(\$0+\$0+\$_&0%).((\$0!*5)\?'|':''),e;~
+,$!++,
$a=('@'x4).('~'x7),$$b.="@@"."~"x6;$|++,$a.="~"x(($|+$|)*($|+$|)*($|+$
+|)*($|
+$|))=>;$a.=qq.\n.=>$a.=q.~$~~$~.=>$$b.=q.@~~~$.,$$b.=q.@@+.=>$a.=q.@~
+.x2=>;
y,*^&%,=_[],,$|++;s,,$0=$|+$|+$|+$|;$0++;$_,ee,s,(.*),(),,;($~=qq.\${\
+$__(..
(++$|).qq.)($|+$|)($|+$|+$|)(..(($|+$|)+($|+$|)).qq.)($|)}.)=~s/\(/\->
+\(/g,;
s/.*/$~;/ee=>$0=$_,$a.=((q,$~~~~,x2).(q,@~~~@~$,)),$a.="\n";$$b.=q._~~
+$+_-.,
$a.=q,~~$,.q.~.x3;$$b.=q#_-$~_~~_@#;$a.=q%$_+_$$~$+_$_~%;$a=~y,~$@+_, 
+/_)(,;
($~='@_=(--@|+@|),@_=@_+$_+@_+($|-@|)')=~y/\@_-/\$_+/;s//$~/ee,$!=$_/(
+$|+$|)
;$~=$!,$~=~s/^(\w*).*/$1/,$~=~s/^(...)(..)(.*)/$3$2\l$1/,$_=$~,,$~='';
+s,(.),
@_[0=>1]=(++$_[0]=>$&)=>$~.=($_[0]=~m.^$0$.)?$_[1]:'',ge,,=>,,s,^.*$,q
+q*$~*.
q*^$*.q*a\\*.q.n^.,e,$0=$_,$$b=$a,$0=~s,,$_=~y~^~"~;$_,ee

Comment on An Obfuscated ("The Perl Journal") Script
Download Code

Back to Code Catacombs

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: sourcecode [id://9337]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (9)
As of 2014-04-17 22:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (458 votes), past polls