Dima1337
Осваивающий
- Сообщения
- 186
- Репутация
- 24
Всем доброго времени суток.
Забыл пароль от архива, пароль длинной 7 цифр. Подбирать написанным мной кодом долго, потому обращаюсь к форуму. Как можно увеличить скорость подбора?
Файл с паролями:
Сам подбор:
Забыл пароль от архива, пароль длинной 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