XP is just a number PerlMonks

### Yet Another**2 Obfuscation Engine

by mtve (Deacon)
 on Apr 27, 2002 at 17:22 UTC Need Help??

Let's continue. Now it's /^[a-zA-Z^|]\$/.

```@a=grep/[^mqsvy]/,a..z,A..Z;
\$a{\$_}=\$_ for@a;
for\$i(@a){for(@a){
\$a{\$i|\$_}||="\$i | \$_";
\$a{\$i^\$_}||="\$i ^ \$_";
}}
for\$i(@a){for\$j(@a){
\$a{\$i^\$j^\$_}||="\$i ^ \$_ ^ \$j"for@a;
}}
exists\$a{chr\$_}or die"no \$_"for 9,10,32..126;
undef\$/;
\$_=join'',map{
\$b=qw(| ^)[\$a{\$_}=~/../?\$a{\$_}=~/\|/:rand 2];
\$c=qw(^ |)[rand 2];
"s \$b\$b \$a{\$_} \${b}e \$c "
}reverse<>=~/./gs;
\$_.="s || LZ ^ Ea ^ ad ^ L |eee";
s/((\S *){1,79})( |\$)/\$1\n/g;
s/ //g;
print;
Hope it's not too tiresome.
```s||a^C|e^s^^n^e^s^^D|X^e^s||r|e^s||e|e^s||k|e^s^^c^e|s||a|e|s^^h^e|s||
+a^A|e|s^^
l^e^s||r|e|s||e|e^s||P|e|s||a^A|e^s||r|e^s||e|e^s||h|e|s^^t^e^s^^o^e|s
+||n|e|s||
a|e^s||a^A|e^s||t|e|s^^a|r^e|s||u|e^s||J|e^s||a^C|e|s||t|e^s^^n^e|s||i
+|e|s^^r^e

Replies are listed 'Best First'.
Yet Another**3 Obfuscation Engine
by mtve (Deacon) on Apr 29, 2002 at 07:39 UTC

And another one, /^[a-zA-Z ^]\$/.

```@a=(a..x,A..Z,' ');
for\$i(@a){for\$j(@a){
push@{\$a{\$i^\$j^\$_}},[\$i,\$j,\$_]for@a
}}
exists\$a{chr\$_}or die"no \$_"for 9,10,32..126;
undef\$/;
\$_=<>;
for(/./sg){
\$c=\$a{\$_}[rand @{\$a{\$_}}];
\$b[\$_].=\$c->[\$_]for 0..2
}
while(/.{1,67}/sg){
print"s zzq y",
join("y\n   ^q y",map{substr\$_,y///c-\$+[0],\$+[0]-\$-[0]}@b),
"yze x\n"
}
print"eval\n"

Enjoy.

```s zzq yhZrRQ DrjR prVsHIa tSRMekflQxvhI y
^q yrnTLceZoMldulZjAnkXqYOreUmwmUhfcay
^q yjFOpFgThTJddpcmaBxXUooS VjxWHlRDcyze x
eval

Create A New User
Node Status?
node history
Node Type: obfuscated [id://162538]
Approved by giulienk
help
Chatterbox?
 Tanktalus envisions a train wreck. Tanktalus snickers. :D

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (3)
As of 2018-03-21 19:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
When I think of a mole I think of:

Results (270 votes). Check out past polls.

Notices?