Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Countdown....

by UnderMine (Friar)
on Nov 21, 2002 at 22:32 UTC ( #214945=obfuscated: print w/ replies, xml ) Need Help??

I was bored this evening so...
$/='mkd@h lqvj}" |[mhrqj@ WW RB ?=H ;]B y[I LO] opq rc@ PB yS MLQ }By SS] hlq vj@ twq vP GG Rsa hPw lbPB|=B?;Q ^By_B|=B ?;\eplP ByQ RH VVB E|Q QVD :lD ]m rc ch@I ]{{ ';$n ='4 km j@ !vw jpcl@(clr@0aeucl';$r=sub{$z=shift;$b[$_]=vec ($z,$_,1) for 0..7;my $v.=$b[0];$v.=$b[$_+1] .$b[$_] for (1,3,5);$v.=$b[7];return pack 'b*',$v;};$n=~y/"\n / /d;$e=sub{eval $_[0];$";};$t=sub{join'',map( &$r($_),(split //,$_[0] ));};$"=&$t($n);$|= 1;$/=~y/"\n / /d; &print(&$e( &$t($/) ));

Hope you like it
UnderMine

Comment on Countdown....
Download Code
Re: Countdown....
by dingus (Friar) on Nov 22, 2002 at 08:25 UTC
    Excellent!

    Dingus


    Enter any 47-digit prime number to continue.
Re: Countdown....
by Mr. Muskrat (Abbot) on Nov 22, 2002 at 15:24 UTC

    ++ for the wow factor.

    perl -MO=Deparse countdown.pl yields:

    $/ = qq(mkd\@h lqvj}" |[mhrqj\@ WW RB ?=H\n ;]B y[I LO +] opq rc\@ PB yS MLQ\n }By SS] hlq vj\@ twq vP GG + Rsa\n hPw lbPB|=B?;Q ^By_B|=B ?;\\eplP ByQ\nRH VVB E|Q + QVD :lD ]m rc \n ch\@I ]{{ ); $n = "4 km j\@ !vw\n\njpcl\@(clr\@0aeucl"; $r = sub { $z = shift @_; foreach $_ (0 .. 7) { $b[$_] = vec($z, $_, 1); } my $v .= $b[0]; foreach $_ (1, 3, 5) { $v .= $b[$_ + 1] . $b[$_]; } $v .= $b[7]; return pack('b*', $v); } ; $n =~ tr/"\n / /d; $e = sub { eval $_[0]; $"; } ; $t = sub { join '', map(&$r($_), split(//, $_[0], 0)); } ; $" = &$t($n); $| = 1; $/ =~ tr/"\n / /d; &print(&$e(&$t($/)));

    Well done!

Re: Countdown....
by Sihal (Pilgrim) on Nov 22, 2002 at 19:06 UTC
    yup I like it too. Question: how do you get your ideas ? :o)
Re: Countdown....
by Anonymous Monk on Nov 22, 2002 at 23:09 UTC
    Nice!! Definitely one of my favorites.. very creative
Re: Countdown....
by MisterP (Initiate) on Nov 25, 2002 at 09:28 UTC
    That looks cool! I wish I could translate it. :) I am a noob.
Re: Countdown.... de-obfuscated
by Mr. Muskrat (Abbot) on Nov 25, 2002 at 20:39 UTC

    Okay, I think I have fully de-obfuscated it.
    I was impressed before but now... I am at a loss for words.

      verry cool! Thanks for the entertainment. -spiderman

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (9)
As of 2014-11-28 20:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (200 votes), past polls