Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Comment on

( #3333=superdoc: print w/ replies, xml ) Need Help??
The following is executable (the same as the original)
SPOILER - hilight to see, or click d/l code
# How many elusive monks have you seen today? Oh? None? Are you sure? =head1 I see approximately C<int 6.59> A simple de-obfu (and a late-night one at that) =cut $_=q[>s='!16@ !@-@--8! 14#-#!@1#-#- -8-@@ @--@- @@@-@-#@#--@@ @@-@@--@-@ @---@@@#-#-@- @@@@# 85--@ -z-1- @-z@5 #@#-5 --@-4 -@-z- 1-@#z 5--@# z#--1 -1@@8 #-#@# -7-#@ -1@#- ---#- #-#-# -#-#- #@6-7 -#-#- #-#-- z9@@z -#8b-@@-1@z@#@@# -#-#@ #@#-#@#-#@@z@@ #1#@#-#@#@@z@ z@@81-#8#@#8##'; >s=~s .!(\d\d).'-'x> 1.eg;>b=^z#/ :ju:,>s;>o=1;%b@ #=mz^ {>o++ ,>_}s plit' ',^z# /:ju: ,'@f5f@060 @7@8@ 90z-# 5#@e7 #';>o =0;pr int>b@#{ve #(>b, >o++, 4)}wh ile>o <@98] ; ($c=x)++; # $c is now 'y' # nifty trick ;) ~ great misdirection (ya gots to love it) # and more follows (althought It'd have been *super* cool if he had wo +rked in # another pair of [] in there) $= =~ s[0]{$c.'!/>:u@#zj^-!k$"*2caHp3!'}ee; # on first /e, the str becomes y!/>:u@#zj^-!k$"*2caHp3! # then $_ is modified =head1 C<$_> now contains $s='!162 !232338! 14c3c!21c3c3 38322 23323 222323c2c3322 2232233232 2333222c3c323 2222c 85332 3a313 23a25 c2c35 33234 323a3 132ca 5332c ac331 31228 c3c2c 373c2 312c3 333c3 c3c3c 3c3c3 c2637 3c3c3 c3c33 a922a 3c8b322312a2c22c 3c3c2 c2c3c2c3c22a22 c1c2c3c2c22a2 a22813c8c2c8cc'; $s=~s .!(\d\d).'3'x$ 1.eg;$b=pack "H*",$s;$o=1;%b2 c=map {$o++ ,$_}s plit' ',pac k"H*" ,'2f5f2060 27282 90a3c 5c2e7 c';$o =0;pr int$b2c{ve c($b, $o++, 4)}wh ile$o <298 # another substitution, every $/ -- presumably newline, or space # is replaced with $Easter (which is ''), which gets eval'd once # the /e is there purely for Oeufness # # thus basically doing $_ = join '', split m{$/| },$_; =cut s.$/| .$Easter.egg; =head1 C<$_> now contains $s='!162!232338!14c3c!21c3c33832223323222323c2c332222322332322333222c3 +c3232222c853323a31323a25c2c 3533234323a3132ca5332cac33131228c3c2c373c2312c3333c3c3c3c3c3c3c26373c3 +c3c3c33a922a3c8b322312a2c22 c3c3c2c2c3c2c3c22a22c1c2c3c2c22a2a22813c8c2c8cc';$s=~s.!(\d\d).'3'x$1. +eg;$b=pack"H*",$s;$o=1;%b2c =map{$o++,$_}split'',pack"H*",'2f5f20602728290a3c5c2e7c';$o=0;print$b2 +c{vec($b,$o++,4)}while$o<29 8 which you can deconstruct yourself (-MO=Deparse) but basically forms t +he neat ascii-art (see my [crazyinsomniac|homenode] for a link to a generator) _ _ | | | | _ __ ___ _ __| |_ __ ___ ___ _ __ | | _____ | '_ \ / _ \ '__| | '_ ` _ \ / _ \| '_ \| |/ / __| | |_) | __/ | | | | | | | | (_) | | | | <\__ \ | .__/ \_|___ | |_|_| |_| |_|\___/|_| |_|_|\_\___/ | | |_| And finally, the last statement should be fairly obvious (by now anyway) the length of the "pattern" is 59, and that of $_ is 389 and 389/59 is? ;D =cut s&...........................................................&$_&gee

 
____________________________________________________
** The Third rule of perl club is a statement of fact: pod is sexy.

In reply to (podmaster: de-obfu) Re: Elusive monks by PodMaster
in thread Elusive monks by gmax

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • Outside of code tags, you may need to use entities for some characters:
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?
    Username:
    Password:

    What's my password?
    Create A New User
    Chatterbox?
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others browsing the Monastery: (17)
    As of 2014-12-19 16:17 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      Is guessing a good strategy for surviving in the IT business?





      Results (86 votes), past polls