Hallöchen meine lieben VB-Freunde,
habe ein Problem beim Entschlüsseln einer Datei und hoffe, dass ihr mir mit eurem Fachwissen helfen könnt.
Ich habe eine Datei erstellt in der sich ein Passwort befindet, die Datei ist verschlüsselt. Das hat auch funktionert, soweit so gut.
Jetzt habe ich mir einen Log-in gebastelt und möchte nun dieses in der Datei befindliche Passwort mit einem vom Benutzer eingegebenen String vergleichen.
(Um zu überprüfen ob die Wörter identisch sind).
Leider bekomme ich immer eine CryptographicException mit "Ungültige Daten". Ich weiss aber nicht so recht was ich falsch gemacht habe. Unten steht der QC,
könntet ihr mal drüber schauen und mir sagen was ich verkehrt gemacht habe?
Vielen Dank für eure Bemühungen schon einmal im Voraus.
habe ein Problem beim Entschlüsseln einer Datei und hoffe, dass ihr mir mit eurem Fachwissen helfen könnt.
Ich habe eine Datei erstellt in der sich ein Passwort befindet, die Datei ist verschlüsselt. Das hat auch funktionert, soweit so gut.
Jetzt habe ich mir einen Log-in gebastelt und möchte nun dieses in der Datei befindliche Passwort mit einem vom Benutzer eingegebenen String vergleichen.
(Um zu überprüfen ob die Wörter identisch sind).
Leider bekomme ich immer eine CryptographicException mit "Ungültige Daten". Ich weiss aber nicht so recht was ich falsch gemacht habe. Unten steht der QC,
könntet ihr mal drüber schauen und mir sagen was ich verkehrt gemacht habe?
Vielen Dank für eure Bemühungen schon einmal im Voraus.
VB.NET-Quellcode
- Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
- Dim i As String
- Dim f As String
- i = PasswordTextBox.Text
- Dim fstream = New FileStream("KW.Dat", FileMode.Open)
- Dim cstream = New CryptoStream(fstream, DES.Create.CreateDecryptor, CryptoStreamMode.Read)
- Dim sreader As StreamReader = New StreamReader(cstream)
- Dim kennwort As String = sreader.ReadToEnd
- For Each f In kennwort
- If i = f Then
- Form1.Show()
- Me.Close()
- Else
- MessageBox.Show("Falsches Kennwort eingegeben !", "Fehler")
- PasswordTextBox.Clear()
- End If
- Next f
- sreader.Close()
- End Sub
