Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

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 $_}


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?

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (4)
As of 2022-07-03 23:26 GMT
Find Nodes?
    Voting Booth?

    No recent polls found