'Este exemplo mostra como escrever um gerador de
'senhas aleatórias

Module Module1
  Sub Main()
    'nos caracteres possíveis nós evitamos a letra "L"
    'minúscula, para que o usuário não confunda com o numeral
    '"1"
    Dim carac As String = "abcdefhijkmnopqrstuvxwyz123456789"
    'converte em uma matriz de caracteres
    Dim carac2 As Char() = carac.ToCharArray()
    'vamos embaralhar 2 vezes
    Embaralhar(carac2, 2)

    'vamos sugerir a senha de 8 caracteres
    Dim senha As String = Nothing
    For i As Integer = 0 To 7 Step 1
      senha = senha & carac2(i)
    Next

    'exibe a senha sugerida
    Console.WriteLine("A senha sugerida é: " & senha)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub

  Private Sub Embaralhar(ByRef array As Array, ByVal vezes _
       As Integer)
    Dim rand As New Random(DateTime.Now.Millisecond)
    For i As Integer = 1 To vezes
      For i2 As Integer = 1 To array.Length
        swap(array(rand.Next(0, array.Length)), _
           array(rand.Next(0, array.Length)))
      Next i2
    Next i
  End Sub

  Private Sub swap(ByRef arg1 As Object, ByRef arg2 As Object)
    Dim strTemp As String
    strTemp = arg1
    arg1 = arg2
    arg2 = strTemp
  End Sub
End Module