Question

此刻，我正在尝试解码来自ntp服务器的数据包。我正在AutoIT中尝试，那是一种简单的脚本语言。

我找到了一些代码，但是问题是，我也需要毫秒。该代码仅提供秒。

那是我找到的代码：

Local $ntpServer = 'pool.ntp.org'

UDPStartup()

Dim $socket = UDPOpen(TCPNameToIP($ntpServer), 123)
If @error <> 0 Then Return SetError(1)

; $status = UDPSend($socket, MakePacket('1b0e010000000000000000004c4f434ccb1eea7b866665cb00000000000000000000000000000000cb1eea7b866665cb'))
Local $status = UDPSend($socket, MakePacket('1b0e01000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000'))
If $status = 0 Then Return SetError(1)

Local $data = '', $a = TimerInit() ; Timer setzen, damit im Fehlerfall die Schleife abgebrochen wird

While $data = ''
    $data = UDPRecv($socket, 100)
    Sleep(100)

    If TimerDiff($a) > 1000 Then ExitLoop ; Wenn Timer > 1sek. (Fehler), dann Schleife verlassen
WEnd

If $data <> '' Then
    UDPShutdown()

    Local $unsignedHexValue = StringMid($data, 83, 8) ; Extract time from packet. Disregards the fractional second.
    Local $value            = UnsignedHexToDec($unsignedHexValue)
    Local $TZinfo           = _Date_Time_GetTimeZoneInformation()
    Local $TZoffset         = -(UnsignedToLong($TZinfo[1]) + (UnsignedToLong($TZinfo[4])*($TZinfo[0]<2)) + (UnsignedToLong($TZinfo[7])*($TZinfo[0]=2)))
    Local $UTC              = _DateAdd('s', $value, '1900/01/01 00:00:00')

    Return _DateAdd('n', $TZoffset, $UTC)
EndIf

SetError(1)

它可以正常工作几秒钟。如您所见，有一个注释“忽略小数秒”。因此，我检查了ntp数据包的工作原理，它显示出您有32位（秒），32位（小数秒），然后还有64位（秒和小数正弦波为1.1.1900）。

在代码中，他从数据包中使用了8个字符（我不知道他为什么从83开始），将其从十六进制转换为dec，然后您就有时间了。因此，我首先想到的是获取毫秒，是获取接下来的8个字符，将其转换为毫秒，但这不是。

如果我有四次时间，让程序在两次之间睡眠，然后以毫秒为单位打印时间，我将得到类似的信息：

2019/02/14 14:29:56.987628606

2019/02/14 14:29:56.243...

2019/02/14 14:29:56.388...

2019/02/14 14:29:57.1107...

那是不正确的。因此，在解码时间包时会出现一些错误。 任何人都知道吗？我不需要完全像毫秒那样的时间极值，它在200到300毫秒的范围内就足够了。

编辑：好的，据我测试，问题在于分数转换为毫厘克。

对于注释中所需的所有信息，那就是完整的代码：

  Func _TimeSync()
      Local $ntpServer = 'pool.ntp.org'
      UDPStartup()
      Dim $socket = UDPOpen(TCPNameToIP($ntpServer), 123)
      If @error <> 0 Then Return SetError(1)
      ;$status = UDPSend($socket, MakePacket('1b0e010000000000000000004c4f434ccb1eea7b866665cb00000000000000000000000000000000cb1eea7b866665cb'))
      Local $status = UDPSend($socket, MakePacket('1b0e01000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000'))
      If $status = 0 Then Return SetError(1)
      Local $data = '', $a = TimerInit() ; Timer setzen, damit im Fehlerfall die Schleife abgebrochen wird
      While $data = ''
          $data = UDPRecv($socket, 100)
          sleep(100)
          If TimerDiff($a) > 1000 Then ExitLoop ; Wenn Timer > 1sek. (Fehler), dann Schleife verlassen
      WEnd
      If $data <> '' Then
          UDPShutdown()
          Local $unsignedHexValue = StringMid($data,83,8); Extract time from packet. Disregards the fractional second.
          Local $unsignedHexValue2 = StringMid($data,91,8); Extract time from packet. Disregards the fractional second.
          Local $value = UnsignedHexToDec($unsignedHexValue)
          Local $value2 = UnsignedHexToDec($unsignedHexValue2)
          Local $TZinfo = _Date_Time_GetTimeZoneInformation()
          Local $TZoffset = -(UnsignedToLong($TZinfo[1]) + (UnsignedToLong($TZinfo[4])*($TZinfo[0]<2)) + (UnsignedToLong($TZinfo[7])*($TZinfo[0]=2)))
          Local $UTC = _DateAdd('s',$value,'1900/01/01 00:00:00')
          Return _DateAdd('n',$TZoffset,$UTC)&"."&($value2)
      EndIf
      SetError(1)
   EndFunc

  Func MakePacket($d)
      Local $p = ''
      While $d
          $p &= Chr(Dec(StringLeft($d,2)))
          $d = StringTrimLeft($d,2)
      WEnd
      Return $p
   EndFunc

  Func UnsignedHexToDec($n)
      Local $ones = StringRight($n,1)
      $n = StringTrimRight($n,1)
      Return dec($n)*16+dec($ones)
   EndFunc


  Func UnsignedToLong($Value)
      Local Const $OFFSET_4 = 4294967296
      Local Const $MAXINT_4 = 2147483647
      If $Value < 0 Or $Value >= $OFFSET_4 Then Return SetError(1,0,$Value) ;' Overflow
      If $Value <= $MAXINT_4 Then
          Return $Value
      Else
          Return $Value - $OFFSET_4
      EndIf
   EndFunc

我不知道如何将分数转换为普通的int或float

NTP数据包解码

0 个答案: