#SingleInstance Force
#NoEnv
SetBatchLines -1
; Настройки:
Key = F2 ; Клавиша - Старт / Пауза.
I := 0 ; С какой цифры начать (1 = 0001). Если 0 - случайный ввод пароля.
Wait := 200 ; Время задержки после нажатия 'E'.
Wait2 := 1000 ; Время задержки после ввода пароля.
; Конец настроек.
Hotkey, % Key, Start, On, UseErrorLevel
If (I = 0) ; Если нужно случайно:
{
Loop, 9999
Str .= Format("{:04}", A_Index) "|" ; Создать строку верного содержания (0001-9999).
Sort, Str, Random D| ; Отсортировать случайно.
List := Array() ; Создать массив.
Loop, Parse, Str, |
List[A_Index] := A_LoopField ; Добавить в него строки.
}
Return
Stop: ; Выключить подбор пароля:
Start := (Start > 1 ? 0 : 2)
KeyWait, %A_ThisHotkey%, U
Hotkey, % Key, Start, On, UseErrorLevel
Return
Start: ; [Включить / Продолжить] подбор пароля:
Start := 1
Hotkey, % Key, Off
Hotkey, % Key " Up", Stop, On, UseErrorLevel
KeyWait, %A_ThisHotkey%, U
While % Start && (Abs(I) < 10000)
{
If (I < 1) ; Если нужно случайно:
{
SendInput, E
Sleep, % Wait
S := List[Abs(I-1)]
SendInput, % S
ToolTip, Пароль: %S%,0,0
Sleep, % Wait2
I--
}
Else ; Обычный подбор:
{
SendInput, E
Sleep, % Wait
S := Format("{:04}", I)
SendInput, % S
ToolTip, Пароль: %S%,0,0
Sleep, % Wait2
I++
}
}
ToolTip, % "Завершено: " Abs(I),0,0
Return
~Esc:: ToolTip ; Убрать подсказку.
Точно, не подумал об этом. Нужно было заполнять вместе с нулями либо делать проверку с запятой.
Наверно наилучший вариант - создать массив, перемешать, а в нужный момент извлекать по индексу пока не станет пустым.
Всё же не понял где именно ошибка. Цифра (как есть от Random) просто добавлялась в строку 'Keys'. При коротких тестах - всё отлично работало.
]]>дальше рандом не хочет идти.
А именно из за неправильной проверки повтора.
Rand := 1
Start := 1
min := 0
max := 99
Count := min
While Start && (Count < max + 1)
{
If Rand
{
Random, S, min, max
S := Format("{:04}", S)
If InStr(Keys, S)
Continue
}
Else
S := Format("{:04}", min++)
Keys .= S " "
ToolTip, % "Пароль: " (S) "`nПроход: " (Count), 10, 10
Count++
}
MsgBox % Keys
Return
Единственный косяк в таком виде, что я обнаружил - бесконечный цикл когда будет добавлены все 9999 вариантов (или сколько выйдет вместе с нулями?). Но не думаю что до этого дойдёт. По хорошему бы определять переполнение, но уже лень.
]]>Запрет повтора
Тоже косяк.
]]>#SingleInstance Force
#NoEnv
SetBatchLines -1
; Настройки:
Key = F2 ; Клавиша - Старт / Пауза.
I := 1 ; С какой цифры начать (1 = 0001).
Wait := 200 ; Время задержки после нажатия 'E'.
Wait2 := 500 ; Время задержки после ввода пароля.
Rand := 1 ; 1: Включить случайный 4-х значный ввод пароля.
; Конец настроек.
Hotkey, % Key, Start, On, UseErrorLevel
Return
Stop: ; Выключить подбор пароля.
Start := (Start > 1 ? 0 : 2)
KeyWait, %A_ThisHotkey%, U
Hotkey, % Key, Start, On, UseErrorLevel
Return
Start: ; [Включить / Продолжить] / Остановить подбор пароля:
Start := 1
Hotkey, % Key, Off
Hotkey, % Key " Up", Stop, On, UseErrorLevel
KeyWait, %A_ThisHotkey%, U
While % Start
{
If Rand ; Если нужно случайно:
{
Random,I,1,9999
If InStr(Keys,I) ; Запрет повтора.
Continue
}
SendInput, E
Sleep, % Wait
Keys .= I ","
S := SubStr("000" I, -3)
SendInput, % S
ToolTip, Пароль: %S%,0,0
Sleep, % Wait2
I++
}
Return
~Esc:: ToolTip ; Убрать подсказку.