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

Snow flake

by eyepopslikeamosquito (Canon)
on Dec 18, 2012 at 11:06 UTC ( #1009341=obfuscated: print w/ replies, xml ) Need Help??

Feeling nostalgic, and just reminded by LanX of the time of the year, here's an old obfu I wrote ten years ago for the 2002 cam.pm Christmas programming contest:

$_= q~v ZvZ&%(' $&"'"&( &"& $&"' "&$Z$#$$$#$%$& "'"& (&# %$&"'"&#Z#$$ $#%# %$%$%$%(%%%# %$%$%#Z"%*#$ %$%$ %$%(%%%#%$%$ %# Z"%, ($% $% $%( %%%# %$ %$% #Z" %*%" %$ %$%$ %(% %%# %$%$%# Z#%%"#%#%$ %$ %$%$##&#%$ %$%$%# Z$ &""$%"&$%$%$%#%"%"&%%$%$%#Z%&% &# %"'"'"'###%*'"'"'"ZT%?ZT%?ZS'>Zv~;s;\s;;g;$~=q~ZZZJ_ #_ZH /'\\ZG|#o #o#|ZG|$ <%|ZH\\" \\!_!_!/" /ZG/ )\\ ZF/+\\Z E|-|ZE |-|ZE| -|ZF\\+ /ZG \\)/ ~;;@x=@,= +map{$.= $";;join "",map((( $.^= O)x(-33+ord)),/./g)}split+Z;$~=~s~\s~~g;;s;.;(rand)< .2 ?"o":$";egxfor@;=(5x84)x30;map {# system $^O=~W?CLS :+ "clear";;; ;print $_. $/, ,for $_ -18? @;: ### (( map{ $|= 1; ;;; join "" ,map($|--?$" x(-3 *11+ord):$_, /./g)}split+ Z,$~ ),@x);splice @;, -$_, 2,pop@,;@;=("" ,@;) ;;; ;sleep! $%}+2.. 18# /-\

Comment on Snow flake
Download Code
Re: Snow flake
by Tommy (Chaplain) on Dec 19, 2012 at 04:40 UTC

    That. Was. Awesome. Truly, you have a dark gift. o_0

    --
    Tommy
    $ perl -MMIME::Base64 -e 'print decode_base64 "YWNlQHRvbW15YnV0bGVyLm1lCg=="'
Re: Snow flake
by frozenwithjoy (Curate) on Dec 19, 2012 at 21:59 UTC
    Wow, that was beautiful!
Re: Snow flake
by perlaintdead (Scribe) on Dec 28, 2012 at 05:10 UTC

    simply amazing. however i am puzzled by the seemingly random colons.


    like:
    print $_. $/, ,for $_ -18? @;:
    and
    ,map($|--?$" x(-3 *11+ord):$_,

      simply amazing. however i am puzzled by the seemingly random colons.

      Um, strings are strings :) B::Deparse, Data::Dump

        completely unhelpful. just looking for what the colon does

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://1009341]
Front-paged by Arunbear
help
Chatterbox?
and the web crawler heard nothing...

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

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





    Results (72 votes), past polls