|
[Урок] Генерирование паролей
|
|
| Jamely |
Дата: Среда, 09.10.2013, 13:17 | Сообщение # 1
|
Сообщений: 1603
Статус: Offline
|
Код Length = 6 ; Длина строки
Characters := "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890" ; Символы, использующиеся для генерации
Passwords := "" ; Установить в значение переменной пустоту
UsedRandomNumbers := "" ; Установить в значение переменной пустоту
Loop %Length%
{
GetNewRandomNumber:
Random, RandomNumber, 1, % StrLen(Characters)
if RandomNumber in %UsedRandomNumbers%
Goto, GetNewRandomNumber
UsedRandomNumbers := ((UsedRandomNumbers)(RandomNumber)",")
Passwords .= SubStr(Characters, RandomNumber, 1)
}
Msgbox, % Passwords
Автор урока: Ruskadance
Специально для Cheat-Master.Ru
Сообщение отредактировал Ruskadance - Воскресенье, 16.02.2014, 06:35 |
|
|
|
|
| [CM]Рафаэль |
Дата: Четверг, 10.10.2013, 20:09 | Сообщение # 2
|
Cheat-Master
Сообщений: 3080
Статус: Offline
|
сделай, чтобы сгенерированный пароль записывался в буфер обмена, мне кажется, так будет удобнее
Мой Shop
Официальный гарант
Контактные данные:
VK: vk.com/ali_benua
Skype: lvinyipen
Telegram: @AliBenua
ICQ: 552-090-283
|
|
|
|
|
| Jamely |
Дата: Пятница, 11.10.2013, 12:49 | Сообщение # 3
|
Сообщений: 1603
Статус: Offline
|
[CM]Рафаэль, тема была создана для того, чтобы показать работу функции генерирования - то что прилагается к функции - всего лишь пример. Что мешает добавить строчку clipboard:=Passwords ?
Сообщение отредактировал Ruskadance - Пятница, 11.10.2013, 13:01 |
|
|
|
|
| Malish |
Дата: Пятница, 11.10.2013, 16:26 | Сообщение # 4
|
Бывалый
Сообщений: 390
Статус: Offline
|
Цитата (|CM|Рафаэль) сделай, чтобы сгенерированный пароль записывался в буфер обмена, мне кажется, так будет удобнее
Можно сделать что-то вроде, такого.
Код Length = 6
Characters := "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
Passwords := ""
UsedRandomNumbers := ""
Loop %Length%
{
GetNewRandomNumber:
Random, RandomNumber, 1, % StrLen(Characters)
if RandomNumber in %UsedRandomNumbers%
Goto, GetNewRandomNumber
UsedRandomNumbers := ((UsedRandomNumbers)(RandomNumber)",")
Passwords .= SubStr(Characters, RandomNumber, 1)
}
MsgBox, 4,, "%Passwords%", вы хотите сохранить его в буфер обмена?
IfMsgBox Yes
clipboard:=Passwords
 
Анти АФК
Сообщение отредактировал Malish - Пятница, 11.10.2013, 17:09 |
|
|
|
|
| Jamely |
Дата: Пятница, 11.10.2013, 16:51 | Сообщение # 5
|
Сообщений: 1603
Статус: Offline
|
Цитата (Malish) Можно сделать что-то вроде, такого.
Да можете сделать что хотите, я предоставил пример - остальное за вами
Цитата (Malish) IfMsgBox Yes
clipboard:=Passwords
else
ExitApp
надеюсь ты заметил нецелесообразность оператора "иначе" - будь добр исправь
|
|
|
|
|
| Malish |
Дата: Пятница, 11.10.2013, 17:10 | Сообщение # 6
|
Бывалый
Сообщений: 390
Статус: Offline
|
Цитата (Ruskadance) надеюсь ты заметил нецелесообразность оператора "иначе" - будь добр исправь
Исправил).
Анти АФК
|
|
|
|
|
| Jamely |
Дата: Пятница, 17.01.2014, 13:50 | Сообщение # 7
|
Сообщений: 1603
Статус: Offline
|
up
|
|
|
|
|
| [CM]BzzPerfect |
Дата: Воскресенье, 19.01.2014, 17:12 | Сообщение # 8
|
Боец
Сообщений: 147
Статус: Offline
|
О неплохо Спасибо
|
|
|
|
|
