### 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?
 [ELISHEVA]: I may have to resort to SOPW - but was hoping that this would be something simple [erix]: I'd just remove the BOM, it is pretty simple [ELISHEVA]: Simple yes. and I did consider that. but this isn't one off . An important data source that I don't control is generating bom prefixed utf8 files and I'd rather not have to be munging files every few months. [erix]: on teh other hand a SOPW is pretty much garanteed to get an answer from tux (and probably the module fixed) [ELISHEVA]: plus it bugs me that something that *should* be simple, *should* work- unicode and noms aren't exactly the new kids on the block [ELISHEVA]: well then since the obvious possible mistakes on my part have been ruled out, SOPW it is. [ELISHEVA]: the data source, or one of them, is the OECD - they provide a *lot* of data that ought to be easily available to perl programmers. [erix]: it might be cunning to mention the module in the title... :) [ELISHEVA]: fancy that - a title that actually describes the problem :-) [ELISHEVA]: but actually thanks for the reminder

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (8)
As of 2017-05-28 20:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
My favorite model of computation is ...

Results (192 votes). Check out past polls.