Syntactic Confectionery Delight PerlMonks

### Structured obfuscation

by gmax (Abbot)
 on Jan 22, 2002 at 13:38 UTC Need Help??

```ss{}{}{}sss{}{}ssss{}{}{}sss{}ssss{}
ssss{}ssss{}ss{}sss{}sss{}ss{}ssss{}
ssss{}sss{}{}{}{}ss{}{}{}sss{}{}{}{}
{}ss{}sss{}ssss{}ss{}sssssss{}ssss{}
{}{}{}sss{}ssss{}ss{}sssssss{}ssss{}
```
```@pattern =
([2,3,3,2,4,3,3,1,4,1], # 2 spaces, 3 marks, 3 spaces, 2 marks, etc.
...
[0,1,2,1,3,1,4,1,2,1,7,1,4,1], # 0 spaces, 1 mark, etc.
[0,3,3,1,4,1,2,1,7,1,4,1]
);
```
```for \$row (@pattern) {
\$mark=0;
...
}
print "\n";
}
```
```%pat = (" " => "{}", "{}" => " ");
```
```\$output = " ";
```
```foreach (@numbers) {
print \$output x \$_;
\$output = \$pat{\$output};
}
```
```%pat = (" " => "{}", "{}" => " ");
\$output = " ";
...
}
print "\n";
}
```
```%pat = (" " => "{}", "{}" => " ");
\$output = \$pat{" "};
...
print map { \$output = \$pat{\$output}; \$output x \$_} @\$row;
print "\n";
}
```
```%pat = (" " => "{}", "{}" => " ");
\$output = \$pat{" "};
print map { map @{[{ \$output = \$pat{\$output}; \$output x \$_} @\$_]}, "\n
+" } @pattern;
```
```@pattern = qw(2332433141 41412131312141 41342334 01213141217141
033141217141);
...
\$output = \$pat{" "};
print map { map @{[{ \$output = \$pat{\$output}; \$output x \$_}
split //]}, "\n" } @pattern;
```
```\$p={" "=>"{}"};
\$p->{\$p->{" "}}=" ";
\$o=\$p->{" "};
print map{@{[map{tr{abcdef}{012347};\$o=\$p->{\$o};\$o x \$_}split//]},\$/}q
```
```\$_='8pj%z9zj>z%&z&u8ph>%8ph>%z9z&&jz9zu8oj8ph>%z9z&uprint9mkp%@%[mkp%t
+r%kvcdef&%012347&u8oj8ph>%8o&u8o9x98_&splitgg]&,8g&qw%cddceddvev9evev
+cvdvdvcvev9evdecdde9kvcvdvevcvfvev9kddvevcvfvev&u';y'hj%89z&kuvg'-={\$
+ "}a;b/';eval;
```
```\$hexstr=<<'HEX';
\$_='8pj%z9zj>z%&z&u8ph>%8ph>%z9z&&jz9zu8oj8ph>%z9z&uprint9mkp%@%[mkp%t
+r%kvcdef&%012347&u8oj8ph>%8o&u8o9x98_&splitgg]&,8g&qw%cddceddvev9evev
+cvdvdvcvev9evdecdde9kvcvdvevcvfvev9kddvevcvfvev&u';y'hj%89z&kuvg'-={\$
+ "}a;b/';eval;
HEX
print q{eval pack "H*",'}, uc(unpack("H*", \$hexstr)),"';";
```
```eval pack"H*",'245F3D2738706A257A397A6A3E7A25267A26753870683E253870683
+E257A397A26266A7A397A75386F6A3870683E257A397A26757072696E74396D6B7025
+40255B6D6B70257472256B766364656626253031323334372675386F6A3870683E253
+86F2675386F397839385F2673706C697467675D262C38672671772563646463656464
+766576396576657663766476647663766576396576646563646465396B76637664766
+576637666766576396B64647665766376667665762675273B7927686A2538397A266B
+757667272D3D7B2420227D613B622F273B6576616C3B200A';
```
```\$_='use strict; my\$diary=24/5. For 3 Dozens of %{{algorithms}} we got
\$2,738; require 7.0.6; Another 257 \$Mil to %Anna. We &keep aside \$397
...
Big beast. 757667272 Do you really think it is over? Not yet. Wait().
3D7B2420227D613B622 Finally, this should be the last one. Is it? -No?
273B6576616C3B200. Ah! Yes. '; tr/A-F0-9//cd; eval pack "H*", \$_;
```
```@a= map {\$b=@{[unpack "c*",\$_]};\$b} qw(the dream becomes: nightmare);
\$a+=\$_ for@a;(\$a*=3)-=2;(\$e,\$d,\$g,\$f)=map {\$a-=\$_;\$a}@a;\$k=pack("c*",
\$d..\$e).pack"c*",\$f..\$g; \$h=pack"c",\$d+34;\$c=pack"c",\$e+2;\$i=pack"c",
\$d+35;\$j=pack"c",\$e+51;eval"\$j.\$k..\$h\$i";eval pack"\$c*",\$_;
```

Create A New User
Node Status?
node history
Node Type: obfuscated [id://140626]
Approved by root
help
Chatterbox?
 Discipulus added his 2 neurocents to windwos perl suggestions issue

How do I use this? | Other CB clients
Other Users?