### 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 pondering the Monastery: (7)
As of 2018-01-18 14:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
How did you see in the new year?

Results (212 votes). Check out past polls.

Notices?