Генератор паролей - VB (170610)
Формулировка задачи:
Всем здрасти. У кого-нибудь есть исходник генератора паролей? Нужно чтоб:
1) Пароли записывались в столбик
2) Возможность генерировать до 10 000 и более паролей
3) Возможность после генерации сохранять все в текстовом файле
Спасибо всем заранее...
Вот примерчик слабенький, он по 1-ому паролю генерирует
Решение задачи: «Генератор паролей»
textual
Листинг программы
Private Sub Form_Load() Dim fNum As Integer, Z As Long fNum = FreeFile Open "D:\Temp.txt" For Append As fNum For Z = 1 To 10 Print #fNum, GetPassword Next Close fNum End Sub Private Function GetPassword(Optional ByVal NumSmb As Long = 10) As String Dim S As String Do While NumSmb > 0 S = Chr$(Int(Rnd * 96) + 32) GetPassword = GetPassword & S NumSmb = NumSmb - 1 Loop End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д