'Pseudo code
Dim utilisateur As String
Console.WriteLine("Entrez votre nom d'utilisateur")
utilisateur = Console.ReadLine()
Dim MotDePasse As String = Nothing
    Console.WriteLine("Entrez votre mot de passe")

    Do While (True)
     Dim cki As ConsoleKeyInfo = Console.ReadKey(false)
     If cki.Key = ConsoleKey.Enter Then
       Authentifier(utilisateur,MotDepasse)
       ?Je vide le mot de passe
       MotDePasse=String.Empty
       Exit do
     End If
     MotDePasse += cki.KeyChar()
    Loop

‘Pseudo Code
Dim MotDepasse As New Security.SecureString
   Console.WriteLine("Entrez votre mot de passe")
     Do While (True)
       Dim cki As ConsoleKeyInfo = Console.ReadKey(false)

       'Pseudo code
       If cki.Key = ConsoleKey.Enter Then
         'Pseudo code
         'Authentifier(utilisateur, MotDepasse)
         Exit Do
       End If
       'Pseudo code
       MotDepasse.AppendChar(cki.KeyChar)
     Loop