Lokales Benutzersystem

    • VB.NET

      Lokales Benutzersystem

      Lokales Benutzersystem


      Im folgenden werde ich erklären, wie man mit Visual Basic 2012 ein lokales Benutzersystem erstellt.

      Zurzeit wird nur ein Benutzer unterstützt.

      Dann fangen wir mal an.

      Registrierung

      Ihr braucht folgende Controls:

      Spoiler anzeigen
      2 Formen
      Je 2 Textboxen (UsernameBox, PasswordBox)
      Je 1 Button (Button1)


      Beginnen wir mit der Registrierungsform:

      Diese könnte z.B. so aussehen:




      Zum Sourcecode:

      Die erforderlichen Bibliotheken + Option Strict On

      VB.NET-Quellcode

      1. Option Strict On
      3. Imports Microsoft.Win32
      4. Imports System.Security.Cryptography
      5. Imports System.Text


      Die Registrierungsfunktion

      VB.NET-Quellcode

      1. Public Sub Register(ByVal Uname As String, ByVal Pass As String)
      2. If Not Uname = "" AndAlso Not Pass = "" Then
      3. 'Hier wird geprüft, ob in beiden Feldern etwas drinsteht.
      5. Uname = MD5StringHash(Uname)
      6. 'Hier wird der Benutzername in einen MD5-Hash umgewandelt.
      7. Pass = MD5StringHash(Pass)
      8. 'Hier wird das Passwort in einen MD5-Hash umgewandelt.
      10. SaveSetting("DeinProgramm", "Logindata", "Username", Uname)
      11. 'Hier wird der Benutzernamenhash in den Settings gespeichert.
      13. SaveSetting("DeinProgramm", "Logindata", "Password", Pass)
      14. 'Hier wird das Passwort in den Settings gespeichert.
      16. End If
      17. End Sub


      VB.NET-Quellcode

      1. Public Function MD5StringHash(ByVal strString As String) As String
      2. Dim MD5 As New MD5CryptoServiceProvider
      3. Dim Data As Byte()
      4. Dim Result As Byte()
      5. Dim Res As String = ""
      6. Dim Tmp As String = ""
      8. Data = Encoding.ASCII.GetBytes(strString)
      9. Result = MD5.ComputeHash(Data)
      10. For i As Integer = 0 To Result.Length - 1
      11. Tmp = Hex(Result(i))
      12. If Len(Tmp) = 1 Then Tmp = "0" & Tmp
      13. Res += Tmp
      14. Next
      15. Return Res
      16. End Function


      Aufrufen könnt ihr die Registrierung z.B. so:

      VB.NET-Quellcode

      1. Dim UserName as String = UsernameBox.Text
      2. Dim Passwort as String = PasswordBox.Text
      3. Register(UserName, Passwort)



      Kommen wir zum Login:

      Dieser könnte z.B. so aussehen:



      Login

      Ihr braucht folgende Controls:

      Spoiler anzeigen
      2 Formen
      Je 2 Textboxen (UsernameBox, PasswordBox)
      Je 1 Button (Button1)



      Wieder die Bibliotheken + Option Strict On

      VB.NET-Quellcode

      1. Option Strict On
      3. Imports Microsoft.Win32
      4. Imports System.Security.Cryptography
      5. Imports System.Text


      VB.NET-Quellcode

      1. Public Function login(ByVal Uname As String, ByVal Pass As String) As Boolean
      2. Uname = MD5StringHash(Uname)
      3. 'Uname in einen MD5-Hash umwandeln
      4. Pass = MD5StringHash(Pass)
      5. 'Pass in einen MD5-Hash umwandeln
      7. Dim UserTemp As String
      8. UserTemp = GetSetting("DeinProgramm", "Logindata", "Username")
      9. 'Gespeicherten Usernamen auslesen
      11. Dim PassTemp As String
      12. PassTemp = GetSetting("DeinProgramm", "Logindata", "Password")
      13. 'Gespeichertes Passwort auslesen
      15. If Not IsNothing(Uname) AndAlso Not IsNothing(Pass) Then
      16. 'Prüfen, ob Uname oder Pass leer sind
      17. If Uname = UserTemp AndAlso Pass = PassTemp Then
      18. 'Wenn die eingegebenen Logindaten, die gleichen sind wie die gespeicherten, dann
      19. Return True
      20. 'True zurückgeben
      21. Else
      22. Return False
      23. 'Ansonsten False
      24. End If
      25. End If
      26. Return False
      27. End Function



      VB.NET-Quellcode

      1. Public Function MD5StringHash(ByVal strString As String) As String
      2. Dim MD5 As New MD5CryptoServiceProvider
      3. Dim Data As Byte()
      4. Dim Result As Byte()
      5. Dim Hash As String = ""
      6. Dim Temp As String = ""
      8. Data = Encoding.ASCII.GetBytes(strString)
      9. Result = MD5.ComputeHash(Data)
      10. For i As Integer = 0 To Result.Length - 1
      11. Temp = Hex(Result(i))
      12. If Len(Temp) = 1 Then Temp = "0" & Temp
      13. Hash += Temp
      14. Next
      15. Return Hash
      16. End Function


      Ein Aufruf erfolgt z.B. so:

      VB.NET-Quellcode

      1. If Not UsernameBox.Text = "" AndAlso Not PasswordBox.Text = "" Then
      2. If login(UsernameBox.Text, PasswordBox.Text) = True Then
      3. 'Login Daten sind richtig
      4. Else
      5. 'Login Daten sind falsch
      6. End If
      7. End If



      Anmerkungen und Kritik bitte posten.

    Facebook