### Elusive monks

by gmax (Abbot)
 on Feb 11, 2002 at 07:39 UTC Need Help??

```# How many elusive monks have you seen today? Oh? None? Are you sure?

\$_=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)++;\$==~s[0]{\$c.'!/>:u@#zj^-!k\$"*2caHp3!'}ee;s.\$/| .\$Easter.egg
;s&...........................................................&\$_&gee
``` _  _ _  _
(_|| | |(_|><
_|
```

Replies are listed 'Best First'.
(podmaster: de-obfu) Re: Elusive monks
by PodMaster (Abbot) on Feb 11, 2002 at 10:43 UTC
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

\$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;

\$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.

Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://144594]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

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

Results (74 votes). Check out past polls.

Notices?