_NowCalc() => _InetGetNow()

[Oldschool]

Func _NowCalc()
    Return (@YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC)
EndFunc  ;==>_NowCalc

Func _InetGetNow()
    ???
EndFunc  ;==>_InetGetNow

[Nahuel]

What?

[Oldschool]

What?

I'm trying to get the "NOW" of the web...so that the trial can't be rolled back by Date & Time settings.

I'm trying to create a function called InetGetNow()

Any ideas?

[MrCreatoR]

Maybe something like this:

#include <Inet.au3>

ConsoleWrite(Get_UTC_Time())

Func Get_UTC_Time()
    Local $sTimeSource = _INetGetSource("http://tycho.usno.navy.mil/cgi-bin/timer.pl")
    Local $sBR = StringRegExp($sTimeSource, "(?i)<BR>(.*) UTC", 3)
    Return $sBR[0]
EndFunc

[Oldschool]

Maybe something like this:

#include <Inet.au3>

ConsoleWrite(Get_UTC_Time())

Func Get_UTC_Time()
    Local $sTimeSource = _INetGetSource("http://tycho.usno.navy.mil/cgi-bin/timer.pl")
    Local $sBR = StringRegExp($sTimeSource, "(?i)<BR>(.*) UTC", 3)
    Return $sBR[0]
EndFunc

This works!

Cheers

[Oldschool]

And this works pretty well also...

ConsoleWrite(Get_UTC_Time())

Func Get_UTC_Time()
    Local $sTimeSource = _INetGetSource("http://www.time.gov/timezone.cgi?Eastern/d/-5")
    Local $sBR = StringRegExp($sTimeSource, '(?i)<font size="5" color="white">(.*)<br>', 3)
    Return $sBR[0]
EndFunc

Now I just have to figure out how to stuff it into XproTec.au3 instead of NowCalc()

Edited November 26, 2007 by Oldschool

[Oldschool]

I wonder how to do this with "net time" cmd

Something like...

$var = Run(@ComSpec & ' /c net time /setsntp:utcnist.colorado.edu')
MsgBox(0, "", $var, 2)

;WinActivate($cmd)
;MouseClick($secondary,5,150,1,0); context menu in titlebar.
;Send("ES{enter}"); selects all text in the buffer and stuffs it in the clipboard.

It returns a better format back...would be nicer.

$var = Run(@ComSpec & '/c net time /querysntp:utcnist.colorado.edu')

I think that errors out because I'm not registered with NIST

Edited November 26, 2007 by Oldschool

[Oldschool]

I'm sure there are better ways of doing this, but for now this works...

If you replace _NowCalc() in XProTec.au3 with these 2 functions, and then do a Replace command to chnage all _NowCalc() calls to _NowCalc2() you trial software will be reading the date off the web....

expandcollapse popup

#include <Inet.au3>
#include <Array.au3>

MsgBox(0,"", InetGetNow(), 1)
MsgBox(0, "", _NowCalc2())

Func InetGetNow()
    Local $sTimeSource = _INetGetSource("http://www.time.gov/timezone.cgi?Eastern/d/-5")
    Local $sBR = StringRegExp($sTimeSource, '(?i)<font size="5" color="white">(.*)<br>', 3)
    Return $sBR[0]
EndFunc

Func _NowCalc2()
    $var =  InetGetNow()
    $var2 = StringRight($var, 4)
    $Counter = 0
    Dim $WeekDays[7]
    $WeekDays = _ArrayCreate("Monday, ", "Tuesday, ", "Wednesday, ", "Thursday, ", "Friday, ", "Saturday, ", "Sunday, ")
    While $Counter <= 6
        If StringInStr($var, $WeekDays[$Counter]) Then
            $var3 = StringReplace($var, $WeekDays[$Counter], $var2)
        EndIf
        $Counter += 1
    WEnd
    Select
        Case StringInStr($var3, 'Janu')
            $var4 = StringReplace($var3, 'January ', "01")
        Case StringInStr($var3, 'Febr')
            $var4 = StringReplace($var3, 'February ', "02")
        Case StringInStr($var3, 'Marc')
            $var4 = StringReplace($var3, 'March ', "03")
        Case StringInStr($var3, 'Apri')
            $var4 = StringReplace($var3, 'April ', "04")
        Case StringInStr($var3, 'May')
            $var4 = StringReplace($var3, 'May ', "05")
        Case StringInStr($var3, 'June')
            $var4 = StringReplace($var3, 'June ', "06")
        Case StringInStr($var3, 'July')
            $var4 = StringReplace($var3, 'July ', "07")
        Case StringInStr($var3, 'Augu')
            $var4 = StringReplace($var3, 'August ', "08")
        Case StringInStr($var3, 'Sept')
            $var4 = StringReplace($var3, 'September ', "09")
        Case StringInStr($var3, 'Octo')
            $var4 = StringReplace($var3, 'October ', "10")
        Case StringInStr($var3, 'Nove')
            $var4 = StringReplace($var3, 'November ', "11")
        Case StringInStr($var3, 'Dece')
            $var4 = StringReplace($var3, 'December ', "12")
    EndSelect

    $var5 = StringMid($var4, 5, 2)
    $var6 = StringMid($var4, 7, 2)
    Return ($var2 & "/" & $var5 & "/" & $var6 & " " & @HOUR & ":" & @MIN & ":" & @SEC)
EndFunc ;==>_NowCalc2

Edited November 26, 2007 by Oldschool

[MrCreatoR]

I wonder how to do this with "net time" cmd

expandcollapse popup

Run(@ComSpec & ' /c net time /COMPUTERNAME')oÝ÷ ÚØb³¥Ø¬¦V²¶ººÞÛbê'¶¢jnµêÛºÙ޶ئz+ zw«j®±çm¢Ì§rè,Þ¶­gzÜz{ayÊ&¦ë^­©Ý±êïzº®¢×­®&¥²íÁªÞÂ)emêÞiاØ^u«^¡÷íìoú®¢×Ü!jض®±êç¢×(wµçm¢Ø^{^®w­"جlªí¶ëk©[jǨØ^¶)ʧyçm¢f¤zÊ&zÊ+¶ìµ©©¡ü¨ººk¢
Ú+ay"~Ø^­è¬k²¶!yÉ-ëhµ©kº{bêqêíj)Ú¦bq«b¢z'¶¢jnµêíéâ¶+-æÞ²Û(ëb¢vÞq«¬{*.rØ^®éíg×(«z+m¢Ø^çy×±¦*Þvö¥¹íyu¬¬~ÞÅ©©àSZ)ò¢êÞÅ©©çîËb¢|¨¹Ú'¢ÚÞjYr«Þ¶!yɶ¸§Ò¶¶§u©e¢Ø^®Ën}÷¯z¼­gºÚ"µÍÙÐÞ
    ][ÝÉ][ÝËÓÝÐØ[Ì
JB[È[]Ù]ÝÊ
BSØØ[ ÌÍÜÕ[YTÛÝÙHHÒÙ]ÛÝÙJ ][ÝÝÝÝË[YKÛÝ][ÝË   ][ÝËÝ[Y^ÛKÙÚOÑXÝÙËMI][ÝÊBSØØ[ ÌÍÜÐHÝ[ÔYÑ^
    ÌÍÜÕ[YTÛÝÙK  ÌÎNÊÚJIÙÛÚ^OKÛÛÜKÝÊIØÝÉÌÎNËÊBRYÝÐ^J    ÌÍÜÐH[]Ù]ÜKQPT    [È ][ÝËÉ][ÝÈ  [ÈSÓ  [È ][ÝËÉ][ÝÈ  [ÈQVH  [È ][ÝÈ  ][ÝÈ  [ÈÕT  [È ][ÝÎ][ÝÈ    [ÈRS   [È ][ÝÎ][ÝÈ    [ÈÑPÊBT] ÌÍÜÐÌWB[[Â[ÈÓÝÐØ[Ì
BSØØ[ ÌÍÜÑÙ]ÝÈH[]Ù]ÝÊ
BBRYÝÜ[Ý[ÔYÑ^
    ÌÍÜÑÙ]ÝË ][ÝËÌLÙ
É][ÝÊH[BSØØ[   ÌÍÜÑÙ]ÝÖYXHÝ[ÔYÚ
    ÌÍÜÑÙ]ÝË
BBSØØ[    ÌÍÜÑÙ]ÝÑ^HHÝ[ÔYÑ^XÙJ ÌÍÜÑÙ]ÝË ][ÝË
ÊK][ÝË   ][ÝÉÌLÌI][ÝÊBBSØØ[  ÌÍÜÑÙ]ÝÓ[Ý[H    ][ÝÉ][ÝÂBBBSØØ[   ÌÍÓ[Ý[ÖÌL×HHÌL  ][ÝÒ[XI][ÝË ][ÝÑXXI][ÝË ][ÝÓXÚ   ][ÝË  ][ÝÐ[ ][ÝËÂBBI][ÝÓX^I][ÝË  ][ÝÒ[I][ÝË  ][ÝÒ[I][ÝË  ][ÝÐ]YÝÝ    ][ÝË  ][ÝÔÙ[X][ÝË    ][ÝÓØÝØ][ÝË  ][ÝÓÝ[X][ÝË    ][ÝÑXÙ[X][Ý×BBBBQÜ    ÌÍÚHHHÈLBBRYÝ[Ò[Ý    ÌÍÜÑÙ]ÝË ÌÍÓ[Ý[ÖÉÌÍÚWJH[BBBIÌÍÜÑÙ]ÝÓ[Ý[H    ÌÍÚBBBBRY    ÌÍÜÑÙ]ÝÓ[Ý[ ÈL[    ÌÍÜÑÙ]ÝÓ[Ý[H    ][ÝÌ  ][ÝÈ  [È ÌÍÜÑÙ]ÝÓ[Ý[BBBT]    ÌÍÜÑÙ]ÝÖYX   [È ][ÝËÉ][ÝÈ  [È ÌÍÜÑÙ]ÝÓ[Ý[ [È ][ÝËÉ][ÝÈ  [È ÌÍÜÑÙ]ÝÑ^H   [È ][ÝÈ  ][ÝÈ  [ÈÕT  [È ][ÝÎ][ÝÈ    [ÈRS   [È ][ÝÎ][ÝÈ    [ÈÑPÂBBQ[YBS^Q[YB]Ù]ÜK ÌÍÜÑÙ]ÝÊB[[ÈÏOIÝ×ÓÝÐØ[Ì[ÈÒÙ]ÛÝÙJ  ÌÍÒÜÝ  ÌÍÔYÙJBUÔÝ

BBSØØ[    ÌÍÔXÝH  ÌÎNÉÌÎNË  ÌÍÔÝ]ÈHLSØØ[ ÌÍÔÛØÚÙ]HÒÛÛXÝ
    ÌÍÒÜÝ
BWÒÙ]
    ÌÍÒÜÝ  ÌÍÔYÙK  ÌÍÔÛØÚÙ]
BRYÜ[]Ù]ÜK   ÌÎNÉÌÎNÊBBUÚ[HBBIÌÍÐÝ[[HHÔXÝ   ÌÍÔÛØÚÙ] ÌÍÔÝ]ÊBBRYÜ   ÉÝÈ[^]ÛÜBRY    ÌÍÐÝ[[H ÉÝÈ  ÌÎNÉÌÎNÈ[ ÌÍÔXÝ   [ÏH    ÌÍÐÝ[[BUÑ[BUÔÛÜÙTÛØÚÙ]
    ÌÍÔÛØÚÙ]
BUÔÚ]ÝÛ
BBT]    ÌÍÔXÝ[[Â[ÈÒÛÛXÝ
    ÌÍÒÜÝ
BSØØ[ ÌÍÓ[YWÕ×ÒTHÔ[YUÒT
    ÌÍÒÜÝ
BSØØ[ ÌÍÔÛØÚÙ]HÔÛÛXÝ
    ÌÍÓ[YWÕ×ÒT
BBRY    ÌÍÔÛØÚÙ]HLH[BUÔÛÜÙTÛØÚÙ]
    ÌÍÔÛØÚÙ]
BBT]Ù]ÜK  ][ÝÉ][ÝÊBQ[YBIÌÍÓTÕÔÓÐÒÑUH ÌÍÔÛØÚÙ]T]   ÌÍÔÛØÚÙ][[Â[ÈÒÙ]
    ÌÍÒÜÝ  ÌÍÔYÙK  ÌÍÔÛØÚÙ]
BSØØ[ ÌÍÐÛÛ[X[H  ][ÝÑÑU   ][ÝÈ  [È ÌÍÔYÙH  [È ][ÝÈÌKI][ÝÈ    [ÈÔIÌÍÐÛÛ[X[ [ÏH    ][ÝÒÜÝ  ][ÝÈ  [È ÌÍÒÜÝ  [ÈÔIÌÍÐÛÛ[X[ [ÏH    ][ÝÕÙPYÙ[[Þ[KÍK
Ú[ÝÜÎÈNÈÚ[ÝÜÈ
KNÈ[UTÎÈKJHÙXÚÛËÌ
LLYÞÌ ][ÝÈ  [ÈÔIÌÍÐÛÛ[X[ [ÏH    ][ÝÐÛÛXÝ[ÛÛÜÙI][ÝÈ   [ÈÔ   [ÈÔBSØØ[    ÌÍÐ]ÔÙ[HÔÙ[
    ÌÍÔÛØÚÙ] ÌÍÐÛÛ[X[
BRY ÌÍÐ]ÔÙ[H[]Ù]ÜKÜ
BT] ÌÍÐ]ÔÙ[[[

As you can see, i used the HTTP (TCP) functions to get the source, it faster i think.

Edited November 26, 2007 by MsCreatoR

[Oldschool]

As you can see, i used the HTTP (TCP) functions to get the source, it faster i think.

Definitely a lot faster...

Thanks!

[Valuater]

@OldSchool

XProTec.au3 sends you (the developer) an email immediately with the date/time stamp. If the user has messed with the date/time, you will be able to see it in the email and put that user in the BlackList.txt File.

... So, I didn't think that the time was that critical initially, because you will know right away if the user is a flake/hack.

8)