Серый форум — AutoHotKey: нужен код для перебора четырехзначных чисел

Re: AutoHotKey: нужен код для перебора четырехзначных чисел

null@example.com (__Михаил__) — Fri, 20 May 2022 22:35:27 +0000

Можно, разрешаю, меняйте.

Re: AutoHotKey: нужен код для перебора четырехзначных чисел

null@example.com (kupabom) — Fri, 20 May 2022 22:09:48 +0000

A можно зделать так чтобы место букви Е нажимался Enter

Re: AutoHotKey: нужен код для перебора четырехзначных чисел

null@example.com (__Михаил__) — Sat, 16 Oct 2021 15:44:09 +0000

Основной код есть, добавить свои наработки очень легко.

Re: AutoHotKey: нужен код для перебора четырехзначных чисел

null@example.com (Danya) — Sat, 16 Oct 2021 09:44:32 +0000

__Михаил__
Можешь сделать следующее: идет подбор чисел от 0000 до 9999, после каждого введенного числа, скрипт нажимает на кнопку (Координаты назначу сам). И так бесконечно. Пример: вводится число 0001, нажимается кнопка, вводится число 0002 нажимается кнопка. И так до выключения скрипта

Re: AutoHotKey: нужен код для перебора четырехзначных чисел

null@example.com (__Михаил__) — Sun, 17 Jan 2021 09:55:50 +0000

Последняя правка, вроде всё верно теперь.
Переменная 'I ' при 0 - случайный ввод пароля, иначе с какого номера начать.

#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	; Убрать подсказку.

Re: AutoHotKey: нужен код для перебора четырехзначных чисел

null@example.com (serzh82saratov) — Fri, 15 Jan 2021 18:22:06 +0000

Да, тут была где то тема рандом без повтора.
Вариант который здесь, я бы сказал худший из возможных.

Re: AutoHotKey: нужен код для перебора четырехзначных чисел

null@example.com (__Михаил__) — Fri, 15 Jan 2021 18:04:35 +0000

serzh82saratov

Точно, не подумал об этом. Нужно было заполнять вместе с нулями либо делать проверку с запятой.
Наверно наилучший вариант - создать массив, перемешать, а в нужный момент извлекать по индексу пока не станет пустым.

Re: AutoHotKey: нужен код для перебора четырехзначных чисел

null@example.com (serzh82saratov) — Thu, 14 Jan 2021 22:14:55 +0000

Ошибка элементарная: если добавлена например 12, то 1 и 2 будут считаться повтором.

Re: AutoHotKey: нужен код для перебора четырехзначных чисел

null@example.com (__Михаил__) — Thu, 14 Jan 2021 21:50:35 +0000

serzh82saratov

Всё же не понял где именно ошибка. Цифра (как есть от Random) просто добавлялась в строку 'Keys'. При коротких тестах - всё отлично работало.

Re: AutoHotKey: нужен код для перебора четырехзначных чисел

null@example.com (serzh82saratov) — Thu, 14 Jan 2021 21:42:14 +0000

__Михаил__ пишет:

дальше рандом не хочет идти.

А именно из за неправильной проверки повтора.


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

Re: AutoHotKey: нужен код для перебора четырехзначных чисел

null@example.com (__Михаил__) — Thu, 14 Jan 2021 21:36:22 +0000

Не заметил ошибок на коротких пределах (9). При 99 доходит до 91 максимально и дальше рандом не хочет идти.

Re: AutoHotKey: нужен код для перебора четырехзначных чисел

null@example.com (serzh82saratov) — Thu, 14 Jan 2021 21:15:53 +0000

Это да. Но тут сама проверка повтора не работает.

Re: AutoHotKey: нужен код для перебора четырехзначных чисел

null@example.com (__Михаил__) — Thu, 14 Jan 2021 21:12:38 +0000

serzh82saratov

Единственный косяк в таком виде, что я обнаружил - бесконечный цикл когда будет добавлены все 9999 вариантов (или сколько выйдет вместе с нулями?). Но не думаю что до этого дойдёт. По хорошему бы определять переполнение, но уже лень.

Re: AutoHotKey: нужен код для перебора четырехзначных чисел

null@example.com (serzh82saratov) — Thu, 14 Jan 2021 21:09:41 +0000

Запрет повтора

Тоже косяк.

Re: AutoHotKey: нужен код для перебора четырехзначных чисел

null@example.com (__Михаил__) — Thu, 14 Jan 2021 20:49:16 +0000

Версия с рабочей сменой клавиши. Теперь должно работать корректно.

#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	; Убрать подсказку.