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 | |
by Aristotle (Chancellor) on Jan 25, 2003 at 21:57 UTC |
Back to
Obfuscated Code