Подбор забытого пароля от WinRar

[Dima1337]

Всем доброго времени суток.
Забыл пароль от архива, пароль длинной 7 цифр. Подбирать написанным мной кодом долго, потому обращаюсь к форуму. Как можно увеличить скорость подбора?
Файл с паролями:

Global $i, $hFile = FileOpen('Числа.txt',1)

For $i=0 To 9999999 Step 1
	If $i>1000000 Then FileWriteLine($hFile,$i)
	If $i<1000000 Then
		If $i>100000 Then FileWriteLine($hFile,'0'&$i)
		If $i<100000 Then
			If $i>10000 Then FileWriteLine($hFile,'00'&$i)
			If $i<10000 Then
				If $i>1000 Then FileWriteLine($hFile,'000'&$i)
				If $i<1000 Then
					If $i>100 Then FileWriteLine($hFile,'0000'&$i)
					If $i<100 Then
						If $i>10 Then FileWriteLine($hFile,'00000'&$i)
						If $i<10 Then FileWriteLine($hFile,'000000'&$i)
					EndIf
				EndIf
			EndIf
		EndIf
	EndIf
Next

MsgBox(0,'Тест','Конец')

Сам подбор:

WinWaitActive('[CLASS:WinRarWindow]')

Global $i, $Pass, $hFile = FileOpen('Числа.txt',1)

For $i = 0 To 9999999
	WinWaitActive('[CLASS:WinRarWindow]')
	Send('{Enter}')
	WinWaitActive('[TITLE:Saisir le mot de passe;CLASS:#32770]')
	$Pass = FileReadLine($hFile, $i)
	Send($Pass)
	Send('{Enter}')
	If Not WinExists('WinRAR : Messages de diagnostique') Then MsgBox('Pass', 'Pass: '&$i)
	Send('{Enter}')
Next

 

[madmasles]

Dima1337,
Не надо подбирать пароли. Тема закрыта.