Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

The key to paradise

by gmax (Abbot)
on Dec 20, 2001 at 22:47 UTC ( #133561=obfuscated: print w/ replies, xml ) Need Help??

#/usr/bin/perl %p=("\040"=>"\137\057"); $p{$p{"\040"}} = "\040"; print@{[map{$o=$p{"\040" };@{[ map{( ($o=$ p{$o} )x$_) }map{ ord($_)-(ord("\40")*3)-1 }split//]},"\n"}split/n/ ,"uaqbnfdgcebcccbnebebc" ."ecc" ."gbn" ."dbe" ."bcb" ."ibibncdgdcbib" ."nbbnabnaauaub" ."ndd" ."ccg" ."cedebcbncbebe" ."bcbebcbebccnb" ."beb" ."ebc" ."bebcbebcbcbna" ."bebebecebebcb" ."ebna"]};# amen
 _  _ _  _  
(_|| | |(_|><

Comment on The key to paradise
Download Code
Re: The key to paradise
by ellem (Hermit) on Dec 21, 2001 at 02:49 UTC
    You can't hear it, but I am clapping very loud right now.
    There's more than one way to do it, just don't use my way.
Re: The key to paradise
by gmax (Abbot) on Dec 21, 2001 at 13:50 UTC
    Come to think of it, the key to paradise should use strict and -w ;-)
    #/usr/bin/perl -w use strict;my%p= ("\40"=>chr(ord("\40" )*3-1).chr(ord("\40")+ord("\40")/4+7));$p{$p{"\40"}}="\40";print @{[map{my$o= $p{"\40"};@{[map{(($o=$p{$o})x$_)}map{ord($_)-(ord( "\40")*3 )-1}split//]},"\n"}split/n/,"uaqbnfdgcebcccbnebe" ."bcecc" ."gbndbeb" ."cbibi" ."bncdg" ."dcbib" ."nbbna" ."bnaaua" ."ubndd" ."ccgce" ."debcb" ."ncbeb" ."ebcbeb" ."cbebc" ."cnbbeb" ."ebcbebcbebcbcbnab" ."ebebecebebcbeb" ."na"]};# amen
     _  _ _  _  
    (_|| | |(_|><

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (9)
As of 2014-09-20 14:07 GMT
Find Nodes?
    Voting Booth?

    How do you remember the number of days in each month?

    Results (159 votes), past polls