Generare password casuali

Questa funzione VB.net genera una password casuale della lunghezza desiderata contenente solo numeri e lettere (sia maiuscole che minuscole).
Passando come argomento la lunghezza, ritorna la password casuale.

Codice

Function GeneraPassword(ByVal lunghezzaPassword As Integer) As String

   ' Genera una password casuale della lunghezza desiderata
   ' La password contiene solo numeri e lettere (sia maiuscole che minuscole)
   ' Utilizzo: GeneraPassword(8) --> J4IPZEn5

   Static rnd As New System.Random
   Dim pw As New System.Text.StringBuilder(lunghezzaPassword)
   For i As Integer = 1 To lunghezzaPassword
      Dim numeroCasuale As Integer
      Do
         numeroCasuale = rnd.Next(48, 123)
      Loop Until (numeroCasuale >= 48 AndAlso numeroCasuale <= 57) _
      OrElse (numeroCasuale >= 65 AndAlso numeroCasuale <= 90) _
      OrElse (numeroCasuale >= 97 AndAlso numeroCasuale <= 122)
         pw.Append(System.Convert.ToChar(numeroCasuale))
   Next
   Return pw.ToString()

End Function