Ich habe folgenden Quellcode zum entschlüsseln von Datenfeldern:
Private Sub Decrypten(ByVal i As Integer, ByVal j As Integer)
Dim rd As New RijndaelManaged
Dim rijndaelIvLength As Integer = 16
Dim md5 As New MD5CryptoServiceProvider
Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes(„xxxxxxxx“))
md5.Clear()
Dim encdata() As Byte = Convert.FromBase64String(Me.stringReader(i, j))
Dim ms As New MemoryStream(encdata)
Dim iv(15) As Byte
ms.Read(iv, 0, rijndaelIvLength)
rd.IV = iv
rd.Key = key
Dim cs As New CryptoStream(ms, rd.CreateDecryptor, CryptoStreamMode.Read)
Dim data(ms.Length - rijndaelIvLength) As Byte
Dim k As Integer = cs.Read(data, 0, data.Length)
Me.stringReader(i, j) = System.Text.Encoding.UTF8.GetString(data, 0, k)
cs.Close()
rd.Clear()
End Sub
Nun werden die ersten 5 Werte Richtig entschlüsselt, dann jedoch bricht das Programm mit folgender Fehlermeldung „Zeichenabstände sind ungültig und können nicht entfernt werden.“ ab und zwar an dieser Stelle:
System.Text.Encoding.UTF8.GetString(data, 0, k)
Wenn jemand ne Idee hat, wäre ich sehr dankbar.