Problem mit Entschlüsseln

  • Allgemein

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Cross.

    Problem mit Entschlüsseln

    Hallo!
    Ich habe ein kleines Problem:
    Ich will ein Text verschlüsseln und in eine .dat datei speichern => funktioniert prima...
    Sobald ich das Programm lade wird der Text wieder entschlüsselt und wird in einer TextBox angezeigt => funktioniert auch super...
    wenn ich den Text wieder verschlüssel und das in eine Datei schreiben will => Fehler:

    Fehler :D schrieb:

    Zeichenabstände sind ungültig und können nicht entfernt werden.


    Ich Poste mal den kompletten entschlüsselungscod:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim rd As New RijndaelManaged
    2. Dim rijndaelIvLength As Integer = 16
    3. Dim md5 As New MD5CryptoServiceProvider
    4. Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes(TextBox2.Text))
    6. md5.Clear()
    8. Dim encdata() As Byte = Convert.FromBase64String(TextBox3.Text)
    9. Dim ms As New MemoryStream(encdata)
    10. Dim iv(15) As Byte
    12. ms.Read(iv, 0, rijndaelIvLength)
    13. rd.IV = iv
    14. rd.Key = key
    16. Dim cs As New CryptoStream(ms, rd.CreateDecryptor, CryptoStreamMode.Read)
    18. Dim data(ms.Length - rijndaelIvLength) As Byte
    19. Dim i As Integer = cs.Read(data, 0, data.Length)
    21. TextBox1.Text = System.Text.Encoding.UTF8.GetString(data, 0, i)
    22. cs.Close()
    23. rd.Clear()
    24. TextBox3.Text = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\key.dat")


    Bei dieser Zeile kommt der Fehler:

    VB.NET-Quellcode

    1. Dim i As Integer = cs.Read(data, 0, data.Length)


    Entweder ich bin zu Doof oder... (mir fällt nix ein)

    Ich hoffe ihr könnt mir helfen :D
    STEAM-PROFIL // CS:GO'LER // WEBSEITE

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Cross“ ()