Как генерировать пароли - VB
Формулировка задачи:
Как написать программу, которая ищет на RND пароли, в этом пароле разрешено быть большие и маленькие буквы, цифры и символы, до 10 (букв, символов и цифр). заранее спасибо.
Решение задачи: «Как генерировать пароли»
textual
Листинг программы
Private Sub Command1_Click() Dim Pass As String, i As Byte, x As Byte Dim arr(1 To 10) As Integer, a As Integer, b As Integer, c As Integer Randomize Timer ' инициализация псевдослучайного числа For i = 1 To 10: arr(i) = i: Next i 'заполняем массив For i = 1 To 50 'сколько раз перемешать a = Int((Rnd * 10) + 1): b = Int((Rnd * 10) + 1) c = arr(b): arr(b) = arr(a): arr(a) = c Next i For i = 1 To 10 ' Пароль 10 символов Select Case arr(i) Case 1, 10 x = (Rnd * 9) + 48 ' генерация цифры Case 2, 9 x = (Rnd * 6) + 58 ' генерация символ Case 3, 8 x = (Rnd * 25) + 65 ' генерация БОЛЬШИХ букв Case 4, 7 x = (Rnd * 25) + 97 ' генерация маленьких букв Case 5, 6 x = (Rnd * 5) + 91 ' генерация символ End Select Pass = Pass & Chr(x) ' преобразуем код ASCII в букву, символ или цифру Next Print Pass ' печатаем пароль на форму End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д