There's more than one way to do things PerlMonks

### Pattern Matching Obfu

by demerphq (Chancellor)
 on Sep 17, 2001 at 03:06 UTC Need Help??

I was toying with Pattern Finding problem posted by artist and came up with a solution that I thought might make an interesting obfu. Read that thread to what its supposed to do (especially the updated rules)
```use integer;\$"="|";\$\="\n";\$S='Just Another Happy Perl Hacker';\$C=5;\$L
+=
length(\$S);%0=();sub o{\$l=shift;return 1 if(exists(\$0{"@\$l"}));\$0{"@\$l
+"
}++;@n=0..\$#\$l;for\$i(@n){for(@n){next if\$i==\$_;return 1 if index(\$\$l[\$
+i
],\$\$l[\$_])!=-1}}0}@1=map{\$_*length(\$S)/\$C}0..\$C-1;\$.=0;while(\$.++<\$L*1
+00
){@0=();for(0..\$C-1){my\$str=(\$_==\$C-1)?substr(\$S,\$1[\$_]):substr(\$S,\$1[
+\$_
],\$1[\$_+1]-\$1[\$_]);push@0,\$str;}\$.=0,print"@0" unless(o(\@0));\$;=rand(
+@1
-1)+1;\$1[\$;]+=(rand(3)>1)?-1:1;\$1[\$;]=0 if\$1[\$;]<0;\$1[\$;]=\$L-1 if\$1[\$;
+]
>=\$L;\$1[\$;]=\$1[\$;-1]+1 if\$;>0&&\$1[\$;]<=\$1[\$;-1];\$1[\$;]=\$1[\$;+1]-1 if\$;
+<
\$C-2&&\$1[\$;]>=\$1[\$;+1];}
Yves

--

Create A New User
Node Status?
node history
Node Type: obfuscated [id://112770]
Approved by root
help
Chatterbox?
 [karlgoethebier]: Hi mario [marioroy]: [karlgoethebier]: "Long time No See" ;-) [marioroy]: Yes. I've been working on MCE and MCE::Shared. These are completed and released. MCE 1.830 and MCE::Shared 1.831. Saw the LWP::Simple and P::FM thread and thought to help out.

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (8)
As of 2017-09-23 15:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
During the recent solar eclipse, I:

Results (272 votes). Check out past polls.

Notices?