Ticket #854: Test.au3

File Test.au3, 1.2 KB (added by Jpm, on Mar 26, 2009 at 12:47:20 PM)
Line 
1#include <Inet.au3>
2;
3Func Verify_New_Keys($eset_user, $eset_pass)
4;~ _INetGetSource('www.google.com')
5 Local $serial_status_0 = 0
6 Local $serial_status_1 = 0
7 Local $serial_status_2 = 0
8 Local $buffer_server = '*', $server
9 For $server_idx = 30 To 59
10 While 1
11 $server = Random(30, 59, 1)
12 If StringReplace($buffer_server, '*' & $server & '*', '') = $buffer_server Then ExitLoop
13 WEnd
14 $buffer_server &= $server & '*'
15 $server = 'u' & $server & '.eset.com'
16 $serial_status_0 = InetGetSize('http://' & $eset_user & ':' & $eset_pass & '@' & $server & '/download/engine/engine0.nup')
17 If $serial_status_0 = 0 Then $serial_status_1 = InetGetSize('http://' & $eset_user & ':' & $eset_pass & '@' & $server & '/download/engine/engine1.nup')
18 If $serial_status_1 = 0 Then $serial_status_2 = InetGetSize('http://' & $eset_user & ':' & $eset_pass & '@' & $server & '/download/engine/engine2.nup')
19 If $serial_status_0 + $serial_status_1 + $serial_status_2 > 0 Then Return 'Correct'
20 Next
21 Return 'Wrong'
22EndFunc ;==>Verify_New_Keys
23;
24MsgBox(0, '', Verify_New_Keys('EAV-13000653', '6r8x7uvnx4'))