Password Generator

by Peter Elisa Souhoka (21 Submissions)
Category: Files/File Controls/Input/Output
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 18^th April 2008
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Password Generator

Rate Password Generator



Dim i As Integer, intChar As Integer
Dim str As String

Randomize
For i = 1 To IntNum
intChar = Int((26 + 26 + 10) * Rnd)

If intChar < 26 Then
str = str & Chr$(intChar + Asc("A"))
ElseIf intChar < 2 * 26 Then
intChar = intChar - 26
str = str & Chr$(intChar + Asc("a"))
Else
intChar = intChar - 26 - 26
str = str & Chr$(intChar + Asc("O"))
End If
Next i

Generate = str

End Function

Private Sub Send_Click()
Me.txtResult.Text = Generate(Val(Me.txtResult1.Text))

End Sub

Download this snippet Add to My Saved Code

Password Generator Comments

No comments have been posted about Password Generator. Why not be the first to post a comment about Password Generator.

Password Generator

Password Generator Comments

Post your comment

Difficulty