Beefy Boxes and Bandwidth Generously Provided by pair Networks Frank
Keep It Simple, Stupid
 
PerlMonks  

Yet Another**3 Obfuscation Engine

by locked_user mtve (Deacon)
on Apr 29, 2002 at 03:39 UTC ( [id://162777]=note: print w/replies, xml ) Need Help??

This is an archived low-energy page for bots and other anonmyous visitors. Please sign up if you are a human and want to interact.


in reply to Yet Another**2 Obfuscation Engine

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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://162777]
help
Sections?
Information?
Find Nodes?
Leftovers?
    Notices?
    hippoepoptai's answer Re: how do I set a cookie and redirect was blessed by hippo!
    erzuuliAnonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.