go ahead... be a heretic PerlMonks

### Tick-tock

by rob_au (Abbot)
 on Jan 25, 2003 at 14:45 UTC Need Help??

This obfuscation has been on my mind for a while and simply needed to be purged. Enjoy!

#!/usr/bin/perl print`clear`;++\$|;@d=([8,'m'],[5,'h']);\$t=Tgetent Term::Cap{OSPEED=>96 *100};sub d{print+\$t->Tgoto('cm',\$_*\$c[\$_[3]?(\$_[2]%12)*5:\$_[2]]->[0]+ 19,\$_*\$c[\$_[3]?(\$_[2]%12)*5:\$_[2]]->[1]+11),\$_[0] for 1..\$_[1]};do{\$c[ \$_]=[cos(atan2(1,1)/45*(6*\$_-90)),sin(atan2(1,1)/45*(6*\$_-90))];print+ \$t->Tgoto('cm',9.5*\$c[\$_]->[0]+19,9.5*\$c[\$_]->[1]+11),chr(46)}for(0..5 *10+9);for(;;){@t=(localtime)[1,2];for(1..2){\$p=abs(\$_-2);d(\$d[\$p]->[1 ],\$d[\$p]->[0],\$t[\$p],\$p)};sleep 60;for(1..2){\$p=abs(\$_-2);d(chr(32),\$d [\$p]->[0],\$t[\$p],\$p)}};use Term::Cap;

perl -le 'print+unpack("N",pack("B32","00000000000000000000001000100111"))'

Replies are listed 'Best First'.
Re: Tick-tock
by Mr. Muskrat (Canon) on Jan 25, 2003 at 15:30 UTC

++rob_au. Looks like a fine obfu.

It's a pity that it doesn't work on windows 'as-is'.

Bad command or file name TERM not set at index.pl line 3

Here's a "screenshot" so you and other unlucky folks can see what it looks like:

......
..      ..
..          ..
.              .
.              .
. h   m          .
. h    m         .
.   hh  m          .
.     hh m         .
.       hm         .
.                  .
.                  .
.                  .
.                .
.                .
.              .
.              .
..          ..
..      ..
......

rob_au++

Makeshifts last the longest.

Create A New User
Node Status?
node history
Node Type: obfuscated [id://229848]
Approved by JaWi
Front-paged by gmax
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (12)
As of 2017-06-27 14:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
How many monitors do you use while coding?

Results (607 votes). Check out past polls.