Hallo Leute,
In diesem Thema werde ich euch zeigen wie ihr ein Lokales Login- bzw. Registrierungs-System in euer Programm einbaut.
Dazu benötigt ihr keine anderen Sachen.
Dann lasst uns mal beginnen:
1. Erstellt 2 Formen.
Diese können zum Beispiel so aussehen:
Form1, Der Login:
Form2, Die Registrierung:
Es ist noch wichtig, dass ihr bei jeder Form eine versteckte Textbox habt (bzw. Visible = False)
Bei mir sind das:
Form1: Textbox3
Form2: Textbox4
2. Allgemeines:
1. MD5 Sicherung
Nun erstellen wir die MD5 Sicherung in form einer Funktion. Diese benötigt ihr auch bei Form2:
3. Login:
1. Allgemeines
Als erstes erstellen wir mal einen einfachen String, der kürz einfach nur das ganze:
2. MD5 Sicherungs Funktion einfügen
Wie der Schritt schon sagt müsst ihr nun den MD5-SicherungsCode einfügen.
3. Der Login-Check
Hier wird geprüfft, ob alle Felder ausgefüllt sind, und ob das Passwort, bzw. der Benutzer mit dem Erstelltem Übereinstimmen.
3. Die Registrierung:
1. Das Dimmen
Hier fügt ihr wieder den auch in Form1 erstellten String ein:
2. MD5 Sicherungs Funktion einfügen
3. Die Registrierung
Es ist eigentlich ganz einfach, hier erstellen wir (wenn er noch nicht vorhanden ist) einen Ordner mit dem Namen Account. In diesem Ordner wird dann pro erstelltem Account wieder ein Ordner mit Username und verschlüsseltem Passwort angelegt.
So das wars auch schon.
Ich hoffe ich konnte euch mit diesem Tutorial helfen.
Bei Fragen einfach Beitrag schreiben (oder PM)
PS: Bedanken nicht vergessen
In diesem Thema werde ich euch zeigen wie ihr ein Lokales Login- bzw. Registrierungs-System in euer Programm einbaut.
Dazu benötigt ihr keine anderen Sachen.
Dann lasst uns mal beginnen:
1. Erstellt 2 Formen.
Diese können zum Beispiel so aussehen:
Form1, Der Login:
Form2, Die Registrierung:
Es ist noch wichtig, dass ihr bei jeder Form eine versteckte Textbox habt (bzw. Visible = False)
Bei mir sind das:
Form1: Textbox3
Form2: Textbox4
2. Allgemeines:
1. MD5 Sicherung
Nun erstellen wir die MD5 Sicherung in form einer Funktion. Diese benötigt ihr auch bei Form2:
VB.NET-Quellcode
- Private Function StringtoMD5(ByVal Content As String) As String
- Dim M5 As New System.Security.Cryptography.MD5CryptoServiceProvider
- Dim ByteString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content)
- ByteString = M5.ComputeHash(ByteString)
- Dim FinalString As String = Nothing
- For Each bt As Byte In ByteString
- FinalString &= bt.ToString("x2")
- Next
- Return FinalString
- End Function
3. Login:
1. Allgemeines
Als erstes erstellen wir mal einen einfachen String, der kürz einfach nur das ganze:
2. MD5 Sicherungs Funktion einfügen
Wie der Schritt schon sagt müsst ihr nun den MD5-SicherungsCode einfügen.
3. Der Login-Check
Hier wird geprüfft, ob alle Felder ausgefüllt sind, und ob das Passwort, bzw. der Benutzer mit dem Erstelltem Übereinstimmen.
VB.NET-Quellcode
- TextBox3.Text = StringtoMD5(TextBox2.Text)
- If TextBox1.Text = "" Or TextBox2.Text = "" Then
- MsgBox("Alle Felder bitte ausfüllen!", MsgBoxStyle.Information, "login")
- Else
- If My.Computer.FileSystem.DirectoryExists(startup & "Accounts\" & TextBox1.Text) = False Then
- TextBox1.Text = ""
- TextBox2.Text = ""
- Else
- If My.Computer.FileSystem.ReadAllText(startup & "Accounts\" & TextBox1.Text & "\" & "Passwort.txt") = TextBox3.Text Then
- TextBox1.Text = ""
- TextBox2.Text = ""
- MsgBox("Login war erfolgreich!", MsgBoxStyle.Exclamation, "Login")
- System.Threading.Thread.Sleep(500)
- 'Funktion die Passiert falls das Passwort, und der User übereinstimmen
- Me.Hide()
- End If
- End If
- End If
3. Die Registrierung:
1. Das Dimmen
Hier fügt ihr wieder den auch in Form1 erstellten String ein:
2. MD5 Sicherungs Funktion einfügen
3. Die Registrierung
Es ist eigentlich ganz einfach, hier erstellen wir (wenn er noch nicht vorhanden ist) einen Ordner mit dem Namen Account. In diesem Ordner wird dann pro erstelltem Account wieder ein Ordner mit Username und verschlüsseltem Passwort angelegt.
VB.NET-Quellcode
- TextBox4.Text = StringtoMD5(TextBox2.Text)
- If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
- MsgBox("Bitte alle Felder ausfüllen!", MsgBoxStyle.Information, "Register")
- Else
- If TextBox2.Text = TextBox3.Text Then
- If My.Computer.FileSystem.DirectoryExists(startup & "Accounts\" & TextBox1.Text) = True Then
- TextBox1.Text = ""
- TextBox2.Text = ""
- TextBox3.Text = ""
- MsgBox("Der User existiert bereits!", MsgBoxStyle.Information, "Register")
- Else
- My.Computer.FileSystem.CreateDirectory(startup & "Accounts\" & TextBox1.Text)
- My.Computer.FileSystem.WriteAllText(startup & "Accounts\" & TextBox1.Text & "\" & "Username.txt", TextBox1.Text, False)
- My.Computer.FileSystem.WriteAllText(startup & "Accounts\" & TextBox1.Text & "\" & "Passwort.txt", TextBox4.Text, False)
- TextBox1.Text = ""
- TextBox2.Text = ""
- TextBox3.Text = ""
- MsgBox("User wurde erfolgreich erstellt!", MsgBoxStyle.Exclamation, "Register")
- Form1.Show()
- Me.Hide()
- End If
- End If
- End If
- End Sub
So das wars auch schon.
Ich hoffe ich konnte euch mit diesem Tutorial helfen.
Bei Fragen einfach Beitrag schreiben (oder PM)
PS: Bedanken nicht vergessen