Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
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 contemplating the Monastery: (6)
As of 2015-07-03 07:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (49 votes), past polls