'A sample visual code on how to generate a best random password generator
Public Function GeneratePassword(ByVal lngLength As Long) _
As String
On Error GoTo Err_Proc
Dim iChr As Integer
Dim c As Long
Dim strResult As String
Dim iAsc As String
Randomize Timer
For c = 1 To lngLength
'Randomly decide what set of ASCII chars we will use
iAsc = Int(3 * Rnd + 1)
'Randomly pick a char from the random set
Select Case iAsc
Case 1
iChr = Int((Asc("Z") - Asc("A") + 1) * Rnd + Asc("A"))
Case 2
iChr = Int((Asc("z") - Asc("a") + 1) * Rnd + Asc("a"))
Case 3
iChr = Int((Asc("9") - Asc("0") + 1) * Rnd + Asc("0"))
Case Else
Err.Raise 20000, , "GeneratePassword has a problem."
End Select
strResult = strResult & Chr(iChr)
Next c
GeneratePassword = strResult
Exit_Proc:
Exit Function
Err_Proc:
MsgBox Err.Number & ": " & Err.Description, _
vbOKOnly + vbCritical
GeneratePassword = vbNullString
Resume Exit_Proc
End Function
Thank you for reading this article Password Generator in Visual Basic With URL http://x-tutorials.blogspot.com/2011/04/password-generator-in-visual-basic.html. Also a time to read the other articles.
0 comments:
Write your comment for this article Password Generator in Visual Basic above!