Yet Another**2 Obfuscation Engine


Don't ask to ask, just ask
	PerlMonks

Yet Another**2 Obfuscation Engine

by mtve (Chaplain)

on Apr 27, 2002 at 17:22 UTC ( #162538=obfuscated: print w/ replies, xml )

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;
[download]

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
^s||p|e|s||LZ^Ea^ad^L|eee
[download]

Comment on Yet Another**2 Obfuscation Engine
Select or Download Code

Yet Another**3 Obfuscation Engine
by mtve (Chaplain) 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"
[download]

Enjoy.

s zzq yhZrRQ DrjR prVsHIa tSRMekflQxvhI y
   ^q yrnTLceZoMldulZjAnkXqYOreUmwmUhfcay
   ^q yjFOpFgThTJddpcmaBxXUooS VjxWHlRDcyze x
eval
[download]

[reply]
[d/l]
[select]

Back to Obfuscated Code

Node Status^?

node history
Node Type: obfuscated [id://162538]
Approved by giulienk
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others meditating upon the Monastery: (9)

As of 2013-05-22 22:51 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

The best material for plates (tableware) is:

Results (471 votes), past polls