Hey ich Brauche schon wieder Hilfe ,
Ich Bin Gerade Dabei erstmal Fuer den Anfang etwas Kleines zu Erstellen, was mit einer Abfrage Geschuetzt sein soll bei der, der User vorher ein Passwort
angibt.
Ich verschluessle das Neue Passwort in einen MD5 Hash und Speichere es in eine (NOCH) Ungesicherte Textdatei
Ich nutze diese Function um den Hash zu Generieren:
Das ganze Funktioniert auch Einwandfrei nur die Abfrage leider nicht....
Wenn man Nun sein Vorher Gesetztes Passwort nach einem Programm Neustart eingeben soll,
wird die Eingabe der
Nun sagt er mir aber immer Falsches Passwort die Abfrage mache ich so:
Ich habe mir den Hash auch Mal in einer MessageBox ausgeben Lassen und mit dem der Datei Verglichen... Kein Einziger Fehler. Alles Richtig
PS: So wie ich es Vermute liegt der Fehler irgentwo beim If denn denn den GeneratedHash und den Hash habe ich mir schon Angeschaut und dort war Kein Fehler.
Ich Hoffe ihr Koennt mir Helfen :), Danke.
Ich Bin Gerade Dabei erstmal Fuer den Anfang etwas Kleines zu Erstellen, was mit einer Abfrage Geschuetzt sein soll bei der, der User vorher ein Passwort
angibt.
Ich verschluessle das Neue Passwort in einen MD5 Hash und Speichere es in eine (NOCH) Ungesicherte Textdatei
Ich nutze diese Function um den Hash zu Generieren:
VB.NET-Quellcode
- Private Function MD5(ByVal Content As String) As String
- Dim md5gen As New System.Security.Cryptography.MD5CryptoServiceProvider
- Dim ByteString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content)
- ByteString = md5gen.ComputeHash(ByteString)
- Dim FinalString As String = Nothing
- For Each bt As Byte In ByteString
- FinalString &= bt.ToString("x2")
- Next
- Return FinalString
- End Function
Das ganze Funktioniert auch Einwandfrei nur die Abfrage leider nicht....
Wenn man Nun sein Vorher Gesetztes Passwort nach einem Programm Neustart eingeben soll,
wird die Eingabe der
Textbox1.Text
wieder Verschluesselt und der Hash wird mit dem in der Datei verglichenNun sagt er mir aber immer Falsches Passwort die Abfrage mache ich so:
VB.NET-Quellcode
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim Hash As String = File.ReadAllText(AppData + "\.CodeSnap\.settings\crypt.csn")
- Dim GeneratedHash As String
- GeneratedHash = MD5(TextBox1.Text) 'Hier wird die Function von oben Genutzt
- If GeneratedHash = Hash Then
- MessageBox.Show("Richtig")
- Else
- MessageBox.Show("Falsch")
- End If
- End Sub
Ich habe mir den Hash auch Mal in einer MessageBox ausgeben Lassen und mit dem der Datei Verglichen... Kein Einziger Fehler. Alles Richtig
PS: So wie ich es Vermute liegt der Fehler irgentwo beim If denn denn den GeneratedHash und den Hash habe ich mir schon Angeschaut und dort war Kein Fehler.
Ich Hoffe ihr Koennt mir Helfen :), Danke.