TotL Wins Something!

Chris, one of the totl crew, won his catagory in the 5th Obfuscated Perl Contest.

The code will only run in a linux terminal! It uses evil, evil escape codes.

Don't try and cut and paste the code - extra whitespace will kill it! Download it from here. Save it as timepiece then run it from a linux console by typing perl timepiece.

$;=$_;$/='0#](.+,a()$=(\}$+_c2$sdl[h*du,(1ri)b$2](n} /1)1tfz),}0(o{=4s)
1rs(2u;2(u",bw-2b $ hc7s"tlio,tx[{ls9r11$e(1(9]q($,$2)=)_5{4*s{[9$,lh$2
,_.(ia]7[11f=*2308t$$)]4,;d/{}83f,)s,65o@*ui),rt$bn;5(=_stf*0l[t(o$.o$r
srt.c!(i([$a]$n$2ql/d(l])t2,$.+{i)$_.$zm+n[6t(e1+26[$;)+]61_l*,*)],(41$
{/@20)/z1_0+=)(2,,4c*2)\5,h$4;$91r_,pa,)$[4r)$=_$6i}tc}!,n}[h$]$t 0rd)_
$';open(eval$/);$_=<0>;for($x=2;$x<666;$a.=++$x){s}{{.|.}};push@@,$&;$x
==5?$z=$a:++$}}for(++$/..substr($a,1885)){$p+=7;$;.=$@[$p%substr($a,$!,
3)+11]}eval$;

Frightening, ain't it? Can you see what it is yet?


Here's a clue; this code results in a string which is 'eval'd at the end. The contents of that eval is:

($d,$/)=(" "x1924,.10486);for($l..666){z(24,46,$_,\$d)}for(27,91,59,72)
{substr($d,$n++,1)=chr$_}$d.=chr(10);while(){$a=$d,@t=localtime;l(20,59
,$t[0])+l(21,42,$t[1])*l(18,35,5*$t[2]+$t[1]/12);print$a}sub z{substr($
{$_[3]},int(sin($_[2]*$/)*$_[$!])+(2*int(12-cos($_[2]*$/)*$_[$!]/2)+1)*
40+4,1)=chr($_[1])}sub l{$q=shift;for(0..$q){z($_,@_,\$a)}}


That code with indents, and some obfuscation removed, and sensible variable names becomes:

$default = " "x1924;

$PIBY30=.10486;

for(0..666){
   plotchar(24,46,$_,\$default)
}

for(27,91,59,72){
   substr($default,$n++,1)=chr$_
}
$default.=chr(10);

while(){
   $buffer=$default;
   @t=localtime;
   my ($sec,$min,$hour, @crap) = @t;
   drawhand(20,59,$sec);
   drawhand(21,42,$min);
   drawhand(18,35,5*$hour+$min/12);
   print $buffer;
}

sub plotchar{
   ($dist,$char,$angle,$stringptr) = @_;
   $x=int(sin($angle*$PIBY30)*$dist);
   $y=(2*int(12-cos($angle*$PIBY30)*$dist/2)+1);
   $pos = $x+$y*40+4;
   substr(${$stringptr}, $pos, 1)=chr($char);
}

sub drawhand{
   ($length,$char,$angle)=@_;
   for(0..$length){
      plotchar($_,$char,$angle,\$buffer);
   }
}


The actual result should look like this, an analog clock showing the current time.

                               ...................                         
                               ....                  .....                     
                             ...      ;;                 ...                   
                           ...         ;                    ..                 
                         ..             ;                    ...               
                        ..              ;;                     ..              
                       ..                ;                      ..             
                      ..                 ;;                      ..            
                     ..                   ;                       ..           
                     .                     ;                       .           
                     .     ######          ;;                      .           
                     .           ############                      .           
                     .                      #*****************     .           
                     .                                        ***  .           
                     .                                             .           
                     ..                                           ..           
                      ..                                         ..            
                       ..                                       ..             
                        ..                                     ..              
                         ...                                  ..               
                           ..                               ..                 
                             ...                         ...                   
                               .....                 .....                     
                                   ...................                         
    

The sick part is that this page is a CGI script- that clock above should be showing correct GMT!

Links