Passworteingabe in Konsole mit PasswordChar*

    • VB.NET

    Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von oli-f.

      Passworteingabe in Konsole mit PasswordChar*

      Mit diesem kleinen Code kann in einer Konsole ein Passwort eingegeben werden, wobei die Zeichen die eingegeben werden als "#" angezeigt werden:

      VB.NET-Quellcode

      1. Private Input As String = ""
      2. Sub Main()
      3. TPass()
      4. If Input = "paradise" Then MsgBox("ACCESS GRANTED") Else MsgBox("ACCESS DENIED")
      5. 'Zur überprüfung:
      6. Console.WriteLine("Ihr eingegebenes Passwort lautet: " & Input.ToString())
      7. End Sub
      9. Sub TPass()
      10. Dim CP As String = "Type password: "
      11. Dim RStr As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
      12. Dim r As New Random
      13. Dim password As String = ""
      14. Dim CKI As System.ConsoleKeyInfo
      15. Do
      16. Console.Write(CP)
      17. CKI = Console.ReadKey(True)
      18. If CKI.Key = 13 Then
      19. Console.WriteLine()
      20. Exit Do
      21. Else
      22. password = password & CKI.KeyChar
      23. 'Console.Write(RStr.ElementAt(r.Next(0, RStr.Length -1)))
      24. Console.Write("#")
      25. End If
      26. CP &= "#"
      27. Console.Clear()
      28. Loop
      29. Input = password
      30. End Sub


      Ich habe zusätzlich noch einen String RString deklariert, kommentiert man die grüne Codezeile aus und löscht oder kommentiert die Zeile darunter, wird beim eingeben des "Passwortes" ein zufälliger Buchstabe/Zahl angezeigt. Die Zeile "Console.Write("#")" kann abgeändert werden indem man einfach ein anderes Zeichen einträgt als "#", um das Passwort beispielsweise mit "*" darzustellen.
      Ich hoffe Ich habe einigen geholfen ;)
      PS: Das passwort wäre hier "paradise"

      %P% :thumbup:
      Hello World

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „%P%“ ()

      so hab den code so verändert, dass nur buchstaben, zahlen angenommen + zurück....

      VB.NET-Quellcode

      1. Sub Main()
      2. If ConsolenPass("Type password: ", "paradise") Then Console.WriteLine("ACCESS GRANTED") Else Console.WriteLine("ACCESS DENIED")
      3. Console.Read()
      4. End Sub
      6. Function ConsolenPass(ByVal msg As String, ByVal passwort As String) As String
      7. Dim RStr As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
      8. Dim password As String = ""
      9. Dim CKI As System.ConsoleKeyInfo
      10. Do
      11. Console.Write(msg)
      12. For i = 0 To password.Length - 1
      13. Console.Write("*")
      14. Next
      15. CKI = Console.ReadKey(False)
      16. If CKI.Key = ConsoleKey.Enter Then
      17. Console.WriteLine()
      18. Exit Do
      19. ElseIf CKI.Key = ConsoleKey.Backspace Then
      20. If password.Length > 1 Then
      21. password = password.Remove(password.Length - 2, 1)
      22. Else
      23. password = ""
      24. End If
      25. ElseIf RStr.Contains(CKI.KeyChar) Then
      26. password += CKI.KeyChar
      27. End If
      28. Console.Clear()
      29. Loop
      30. If password = passwort Then
      31. Return True
      32. Else
      33. Return False
      34. End If
      35. End Function

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „oli-f“ ()

    Facebook