how to get the current date from the internet
Hay ther i try to get the current date from the internet for a login system.
for now im using @mon @year ... to get current date but you could easily crack this system.
it would be nice if i could get the current date from a website or something to avoid this problem
if anyone has an idee pls tell me
gretz usbstick
sry for my bad english
and NTP
#include <Date.au3>
msgbox(0, '' , _TimeFromNTP("pool.ntp.org"))
Func _TimeFromNTP($sNTPServer)
Local $sData = ""
TCPStartup()
If TCPNameToIP($sNTPServer) = "" Then Return SetError(1)
UDPStartup()
$aSocket = UDPOpen(TCPNameToIP($sNTPServer), 123)
$sStatus = UDPSend($aSocket, _MakePacket())
While $sData = ""
$sData = UDPRecv($aSocket, 100)
Sleep(250)
WEnd
UDPCloseSocket($aSocket)
TCPShutdown()
$sValue = _UnsignedHexT