Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

cyclic s///

by oha (Friar)
on Nov 06, 2007 at 16:43 UTC ( #649256=obfuscated: print w/replies, xml ) Need Help??

probably there are few places where the code is executed as expected, but the results arent:
$a=$_=q[s/\n(.*?)\W#([^\n]*)/\n$2 #$1/gs;print "%=2Zi5" #"!'5F,&" #'o8$\%t']. q[ #"')\"E,&\n" ^ 'OHA.IT' ;]; {eval; redo unless $a eq $_}

Oha

Replies are listed 'Best First'.
Re: cyclic s///
by LassiLantar (Monk) on Nov 09, 2007 at 21:35 UTC

    I enjoyed deobfuscating (clarifying?) this. There were several things that threw me along the way:

    1. I like the fact that the newline after print is part of the reason it works. Makes pulling it apart trickier since you start breaking it when you try to make it readable by adding newlines.

    2. The presence of $\ and %t inside some of the chunks of string is nice, as is the fact that the last one appears to be longer than 6 characters since it needs an escape for the double quote and has the newline at the end. Would be nice to mask the newline, but I can't think of a quick way to do it.

    3. I like the simplicity of the eval/redo loop.

    Did you choose 'OHA.IT' for any reason in particular?

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://649256]
Approved by grep
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (7)
As of 2022-01-28 09:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (73 votes). Check out past polls.

    Notices?