Generating a random Password

Generating a random Password

If you wish to create a random character string, then you will need to create a small function to do this. The way shown below is the easiest way that I have found of doing this:

Public Function fPasswordGenerator() As String
'   Procedure to generate a random 6 character alphanumeric string to be used as a password.
'   Returns:
'       A random 6 character string consisting of only alphanumeric characters
    On Error GoTo E_Handle
    Dim intLoop As Integer
    Dim strChar As String
    Dim strDummy As String
    strChar = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
    Randomize
    For intLoop = 1 To 6
        strDummy = strDummy & Mid(strChar, Int(Rnd * Len(strChar)) + 1, 1)
    Next intLoop
    fPasswordGenerator = strDummy
fExit:
    On Error Resume Next
    Exit Function
E_Handle:
    MsgBox Err.Description & vbCrLf & "fPasswordGenerator", vbOKOnly + vbCritical, "Error: " & Err.Number
    Resume fExit
End Function

The characters that are included in the password can be modified by amending the characters in the strChar variable, and the length of the generated password can be changed by modifying the loop counter.

Top

Last modified at 06/06/2006 14:57:22