Генератор паролей - VB (170610)

Формулировка задачи:

Всем здрасти. У кого-нибудь есть исходник генератора паролей? Нужно чтоб: 1) Пароли записывались в столбик 2) Возможность генерировать до 10 000 и более паролей 3) Возможность после генерации сохранять все в текстовом файле Спасибо всем заранее... Вот примерчик слабенький, он по 1-ому паролю генерирует
Private Sub Command1_Click() 
Randomize 
Dim i As Integer, r As Integer, l As Integer 
Text2.Text = "" 
l = Int(Rnd * 11) + 5 
For i = 1 To l 
1 r = Int(Rnd * 60) + 48 
If (r > 57 And r < 65) Or (r > 90 And r < 97) Or r > 122 Then GoTo 1 
Text2.Text = Text2.Text & Chr(r) 
Next i 
End Sub 
 
Private Sub Command2_Click() 
If Text1.Text = "" Or Text2.Text = "" Then 
MsgBox "o" 
Exit Sub 
End If 
Dim F As Long 
F = FreeFile 
Open App.Path & "\P.txt" For Append As #F 
Print #F, Text1.Text 
Print #F, Text2.Text 
Close #F 
End Sub

Код к задаче: «Генератор паролей - VB (170610)»

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

11   голосов, оценка 3.636 из 5


СОХРАНИТЬ ССЫЛКУ