Wednesday, October 12, 2011

Password Generator in Visual Basic



'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

0 comments:

Post a Comment

Related Posts Plugin for WordPress, Blogger...