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
Beginnen wir mit der Registrierungsform:
Diese könnte z.B. so aussehen:
Zum Sourcecode:
Die erforderlichen Bibliotheken + Option Strict On
Die Registrierungsfunktion
Aufrufen könnt ihr die Registrierung z.B. so:
Kommen wir zum Login:
Dieser könnte z.B. so aussehen:
Login
Ihr braucht folgende Controls:
Spoiler anzeigen
Wieder die Bibliotheken + Option Strict On
Ein Aufruf erfolgt z.B. so:
Anmerkungen und Kritik bitte posten.
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:
2 Formen
Je 2 Textboxen (UsernameBox, PasswordBox)
Je 1 Button (Button1)
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
Die Registrierungsfunktion
VB.NET-Quellcode
- Public Sub Register(ByVal Uname As String, ByVal Pass As String)
- If Not Uname = "" AndAlso Not Pass = "" Then
- 'Hier wird geprüft, ob in beiden Feldern etwas drinsteht.
- Uname = MD5StringHash(Uname)
- 'Hier wird der Benutzername in einen MD5-Hash umgewandelt.
- Pass = MD5StringHash(Pass)
- 'Hier wird das Passwort in einen MD5-Hash umgewandelt.
- SaveSetting("DeinProgramm", "Logindata", "Username", Uname)
- 'Hier wird der Benutzernamenhash in den Settings gespeichert.
- SaveSetting("DeinProgramm", "Logindata", "Password", Pass)
- 'Hier wird das Passwort in den Settings gespeichert.
- End If
- End Sub
VB.NET-Quellcode
- Public Function MD5StringHash(ByVal strString As String) As String
- Dim MD5 As New MD5CryptoServiceProvider
- Dim Data As Byte()
- Dim Result As Byte()
- Dim Res As String = ""
- Dim Tmp As String = ""
- Data = Encoding.ASCII.GetBytes(strString)
- Result = MD5.ComputeHash(Data)
- For i As Integer = 0 To Result.Length - 1
- Tmp = Hex(Result(i))
- If Len(Tmp) = 1 Then Tmp = "0" & Tmp
- Res += Tmp
- Next
- Return Res
- End Function
Aufrufen könnt ihr die Registrierung z.B. so:
Kommen wir zum Login:
Dieser könnte z.B. so aussehen:
Login
Ihr braucht folgende Controls:
2 Formen
Je 2 Textboxen (UsernameBox, PasswordBox)
Je 1 Button (Button1)
Je 2 Textboxen (UsernameBox, PasswordBox)
Je 1 Button (Button1)
Wieder die Bibliotheken + Option Strict On
VB.NET-Quellcode
- Public Function login(ByVal Uname As String, ByVal Pass As String) As Boolean
- Uname = MD5StringHash(Uname)
- 'Uname in einen MD5-Hash umwandeln
- Pass = MD5StringHash(Pass)
- 'Pass in einen MD5-Hash umwandeln
- Dim UserTemp As String
- UserTemp = GetSetting("DeinProgramm", "Logindata", "Username")
- 'Gespeicherten Usernamen auslesen
- Dim PassTemp As String
- PassTemp = GetSetting("DeinProgramm", "Logindata", "Password")
- 'Gespeichertes Passwort auslesen
- If Not IsNothing(Uname) AndAlso Not IsNothing(Pass) Then
- 'Prüfen, ob Uname oder Pass leer sind
- If Uname = UserTemp AndAlso Pass = PassTemp Then
- 'Wenn die eingegebenen Logindaten, die gleichen sind wie die gespeicherten, dann
- Return True
- 'True zurückgeben
- Else
- Return False
- 'Ansonsten False
- End If
- End If
- Return False
- End Function
VB.NET-Quellcode
- Public Function MD5StringHash(ByVal strString As String) As String
- Dim MD5 As New MD5CryptoServiceProvider
- Dim Data As Byte()
- Dim Result As Byte()
- Dim Hash As String = ""
- Dim Temp As String = ""
- Data = Encoding.ASCII.GetBytes(strString)
- Result = MD5.ComputeHash(Data)
- For i As Integer = 0 To Result.Length - 1
- Temp = Hex(Result(i))
- If Len(Temp) = 1 Then Temp = "0" & Temp
- Hash += Temp
- Next
- Return Hash
- End Function
Ein Aufruf erfolgt z.B. so:
Anmerkungen und Kritik bitte posten.