Hallo,
folgendes Beispiel versuche ich gerade auf meine Datenbank anzupassen.
Ich möchte mit den im Link enthalten Beispiel Funktionen mein Passwort verschlüsseln, in die Datenbank speichern und wieder aus der Datenbank herausholen und entschlüsseln.
msdn.microsoft.com/de-de/libra…ryptography.rijndael.aspx
Das Datenbankfeld ist Ein BLOB Feld.
Diesen Code verwende ich derzeit (Testweise) um das Passwort in die DB zu schreiben:
Das funktioniert soweit auch ohne Fehler.
Wenn ich nun das Passwort wieder zurückschreiben möchte bekomme ich folgende Fehlermeldung: "zeichenabstände sind ungültig und können nicht entfernt werden."
Mit folgendem Code versuche ich es aus der DB zu holen und zu entschlüsseln:
Hat jemand eine Idee woran es liegen kann?
folgendes Beispiel versuche ich gerade auf meine Datenbank anzupassen.
Ich möchte mit den im Link enthalten Beispiel Funktionen mein Passwort verschlüsseln, in die Datenbank speichern und wieder aus der Datenbank herausholen und entschlüsseln.
msdn.microsoft.com/de-de/libra…ryptography.rijndael.aspx
Das Datenbankfeld ist Ein BLOB Feld.
Diesen Code verwende ich derzeit (Testweise) um das Passwort in die DB zu schreiben:
VB.NET-Quellcode
- Using myRijndael = Rijndael.Create()
- ' Encrypt the string to an array of bytes.
- Dim encrypted As Byte() = EncryptStringToBytes(txtPassword.Password, myRijndael.Key, myRijndael.IV)
- cmd.CommandText = "INSERT INTO TEST (USERNAME, PASSWORD) VALUES ('Johannes', @PASSWORD)"
- cmd.Parameters.AddWithValue("@PASSWORD", encrypted)
- conn.Open()
- cmd.ExecuteNonQuery()
- conn.Close()
- End Using
Das funktioniert soweit auch ohne Fehler.
Wenn ich nun das Passwort wieder zurückschreiben möchte bekomme ich folgende Fehlermeldung: "zeichenabstände sind ungültig und können nicht entfernt werden."
Mit folgendem Code versuche ich es aus der DB zu holen und zu entschlüsseln:
VB.NET-Quellcode
- Dim rt As String
- Dim bt() As Byte
- cmd.CommandText = "SELECT PASSWORD FROM TEST"
- Try
- conn.Open()
- reader = cmd.ExecuteReader
- Do While reader.Read
- bt = reader("PASSWORD")
- Loop
- conn.Close()
- Catch ex As Exception
- MsgBox(ex.Message)
- conn.Close()
- End Try
- Using myRijndael = Rijndael.Create()
- rt = DecryptStringFromBytes(bt, myRijndael.Key, myRijndael.IV)
- MsgBox(rt)
- End Using
Hat jemand eine Idee woran es liegen kann?