AutoIt: 3.3.8.1
Версия: 1.0
Категория: Разное
Описание: простой генератор паролей.
Код/Пример:
Файл: x86 версия "Генератор паролей v.1.0.exe", x64 версия "Генератор паролей v.1.0 (x64).exe"
Снимок:
История версий:
Источник: autoit-script.ru
Автор(ы): Altlans
Добавлено:
Хотелось бы генератор ников.
Пример генерации:
Для генерации используются английские буквы.
Гласные: A, E, I, O, U, Y.
Согласные: B, C, D, F, G, H, J, K, L, M, N, P, Q, R, S, T, V, W, X, Z.
Первая буква - согласная, вторая - гласная, третья - согласная и т. д.
Где-то по две согласных подряд, где-то по две гласных подряд.
Знаю, что реализовать - реально. Но, как, не знаю.
Версия: 1.0
Категория: Разное
Описание: простой генератор паролей.
Код/Пример:
Код:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include "RandomString.au3"
#NoTrayIcon
$Form1 = GUICreate("Генератор паролей v.1.0", 347, 200)
$MenuItem1 = GUICtrlCreateMenu("Файл")
$MenuItem2 = GUICtrlCreateMenuItem("Выход", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenu("Помощь")
$MenuItem4 = GUICtrlCreateMenuItem("Сайт программы", $MenuItem3)
$MenuItem5 = GUICtrlCreateMenuItem("О программе", $MenuItem3)
$Checkbox1 = GUICtrlCreateCheckbox("Цифры", 16, 8)
GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox2 = GUICtrlCreateCheckbox("Строчные буквы", 16, 32)
GUICtrlSetState(-1, $GUI_CHECKED)
$Checkbox3 = GUICtrlCreateCheckbox("Заглавные буквы", 16, 56)
GUICtrlSetState(-1, $GUI_CHECKED)
$Label1 = GUICtrlCreateLabel("Длина паролей:", 17, 80)
$Input1 = GUICtrlCreateInput("8", 102, 77, 35, 21, $ES_READONLY)
GUICtrlCreateUpdown(-1)
GUICtrlSetLimit(-1, 99, 1)
$Label2 = GUICtrlCreateLabel("Кол-во паролей:", 16, 104)
$Input2 = GUICtrlCreateInput("9", 102, 101, 35, 21, $ES_READONLY)
GUICtrlCreateUpdown(-1)
GUICtrlSetLimit(-1, 99, 1)
$Button1 = GUICtrlCreateButton("Генерировать", 16, 130, 121, 33)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$Edit1 = GUICtrlCreateEdit("", 145, 8, 185, 155, BitOR($ES_READONLY, $WS_VSCROLL, $WS_HSCROLL, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL))
GUISetState(@SW_SHOW)
While 1
$Msg1 = GUIGetMsg()
Switch $Msg1
Case $GUI_EVENT_CLOSE
Exit
Case $MenuItem2
Exit
Case $MenuItem4
ShellExecute("http://autoit-script.ru")
Case $MenuItem5
MsgBox(0, "Генератор паролей", "by Altlans" & @CRLF & "http://autoit-script.ru")
Case $Button1
GUICtrlSetData($Edit1, "")
$Read1 = GUICtrlRead($Input1)
$Read2 = GUICtrlRead($Input2)
$Read3 = GUICtrlRead($Checkbox1)
$Read4 = GUICtrlRead($Checkbox2)
$Read5 = GUICtrlRead($Checkbox3)
$Flag1 = 0
$Flag2 = 0
$Flag3 = 0
If $Read3 = 1 Then $Flag1 = 1
If $Read4 = 1 Then $Flag2 = 4
If $Read5 = 1 Then $Flag3 = 2
$Sum1 = $Flag1 + $Flag2 + $Flag3
For $Counter1 = 1 To $Read2
$Pass1 = _Crypto_GetRandomString($Read1, $Sum1)
GUICtrlSetData($Edit1, $Pass1 & @CRLF, 1)
Next
EndSwitch
WEnd
Файл: x86 версия "Генератор паролей v.1.0.exe", x64 версия "Генератор паролей v.1.0 (x64).exe"
Снимок:
История версий:
v.1.0
Первый релиз
Первый релиз
Источник: autoit-script.ru
Автор(ы): Altlans
Добавлено:
Сообщение автоматически объединено:
Хотелось бы генератор ников.
Пример генерации:
Для генерации используются английские буквы.
Гласные: A, E, I, O, U, Y.
Согласные: B, C, D, F, G, H, J, K, L, M, N, P, Q, R, S, T, V, W, X, Z.
Первая буква - согласная, вторая - гласная, третья - согласная и т. д.
Где-то по две согласных подряд, где-то по две гласных подряд.
Знаю, что реализовать - реально. Но, как, не знаю.