Tick-tock


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Tick-tock

by rob_au (Abbot)

on Jan 25, 2003 at 14:45 UTC ( #229848=obfuscated: print w/ replies, xml )

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;

[download]

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

Comment on Tick-tock Download Code
Re: Tick-tock by Mr. Muskrat (Abbot) 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` [download]	[reply] [d/l]
Re^2: Tick-tock by Aristotle (Chancellor) on Jan 25, 2003 at 21:57 UTC
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.	[reply]

Back to Obfuscated Code

Node Status^?

node history
Node Type: obfuscated [id://229848]
Approved by JaWi
Front-paged by gmax
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others avoiding work at the Monastery: (16)

As of 2013-05-23 12:28 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

The best material for plates (tableware) is:

Results (481 votes), past polls