' Generate a random password with the specified length. The password will only ' contain digits and letters (either lowercase or uppercase)'' Example: generating a password of 8 chars' Dim password As String = GetRandomPassword(8)Function GetRandomPassword(ByVal length As Integer) As String Static rand As New Random Dim password As New System.Text.StringBuilder(length) For i As Integer = 1 To length Dim charIndex As Integer ' allow only digits and letters Do charIndex = rand.Next(48, 123) Loop Until (charIndex >= 48 AndAlso charIndex <= 57) OrElse (charIndex _ >= 65 AndAlso charIndex <= 90) OrElse (charIndex >= 97 AndAlso _ charIndex <= 122) ' add the random char to the password being built password.Append(Convert.ToChar(charIndex)) Next Return password.ToString()End Function