Where's My Time?!
~ Mapping the world's NTP infrastructure ~
🚧
UNDER CONSTRUCTION
🚧
We're setting our clocks and calibrating our stratum...
Time is ticking until launch!
PROJECT: Network Time Infrastructure Map
STATUS: Synchronizing...
MISSION: Discover, query, and map every NTP server keeping the world's clocks in sync
STRATUM: Recursive upstream tracing to stratum 0
ETA: Soon™ (our reference clock says so)
STATUS: Synchronizing...
MISSION: Discover, query, and map every NTP server keeping the world's clocks in sync
STRATUM: Recursive upstream tracing to stratum 0
ETA: Soon™ (our reference clock says so)
🌐 Best viewed in Netscape Navigator 4.0
🚫 Works in IE 3.0 (probably)
🎵 MIDI disabled for your sanity
✉ Email the Webmaster | Sign our Guestbook! | View Source (it's cool)
REM ═══════════════════════════════════════════ REM WHERESMYTIME.BAS — NTP Infrastructure Map REM (C) 1985 WhEreS My TiMe?! Software Inc. REM ═══════════════════════════════════════════ 10 PRINT "INITIALIZING NTP CLIENT..." 20 DIM SERVERS(4096) 30 GOSUB 1000 REM resolve pool DNS 40 FOR I = 0 TO NUM_SERVERS 50 POKE 49152, 27 REM NTP v4 header byte 60 GOSUB 2000 REM send UDP packet 70 IF STRATUM = 1 THEN PRINT "*** STRATUM 1 FOUND: ";IP$ 80 IF STRATUM > 1 THEN UPSTREAM$ = REF_ID$: GOSUB 3000 90 NEXT I 100 PRINT "CRAWL COMPLETE. ";NUM_SERVERS;" SERVERS MAPPED." 110 PRINT "TIME IS AN ILLUSION. LUNCHTIME DOUBLY SO." 120 END 1000 REM ── DNS RESOLUTION SUBROUTINE ── 1010 PRINT "QUERYING 0-3.*.POOL.NTP.ORG..." 1020 NUM_SERVERS = 4096 REM give or take 1030 RETURN