Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer


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;


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 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         .
               .                  .
               .                  .
               .                  .
                .                .
                .                .
                 .              .
                 .              .
                  ..          ..
                    ..      ..

      Makeshifts last the longest.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://229848]
Approved by JaWi
Front-paged by gmax
[stevieb]: agreed. That's why I said at least a half-dozen. If enough of the different formats are present, the date/time folk may not have to request more. If they do, then at least there was a decent base to start with
[stevieb]: I do date and time transformations in both Perl and Python, but not frequently enough to not have to search for the format params etc ;)

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (4)
As of 2017-04-29 02:42 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (531 votes). Check out past polls.