[VB.NET] - TCP Datei symmetrische Verschlüsselung

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von noob98.

    [VB.NET] - TCP Datei symmetrische Verschlüsselung

    Guten Abend Zusammen,
    Ich bräuchte mal wieder eure Hilfe. Ich möchte über eine TCP Verbindung eine Datei verschlüsselte übermitteln (mit einer symmetrischen Verschlüsselung). Zurzeit benutze ich den "Rijndael" Algorithmus, dass Problem ist, dass ich die letzten 16 Bytes nicht bekomme. Zur Veranschaulichung:

    - Verschlüsselung einer Datei (ganz normal)
    - Verschlüsselung einer Datei in eine MemoryStream (der SpeicherStream wird später durch den TCP_Stream ersetzt)
    - Entschlüsselung der 1. Datei (ganz normal; alles sauber)
    - Entschlüsselung der 2. Datei (16 Bytes weniger als 1. Datei; Entschlüsselung fehlgeschlagen)

    Bei der ersten (normalen) Verschlüsselung wird die Datei 256 Bytes groß. Bei der zweiten Verschlüsselung (die später der TCP Stream machen soll) wird die Datei nur 240 Bytes groß. Dementsprechend funktioniert auch die zweite Entschlüsselung nicht.
    Wie bekomme ich also die letzten 16 Bytes? Nach dem schließen hat der Stream diese... Oder soll ich ganz anders vorgehen?

    CODE:

    VB.NET-Quellcode

    1. Dim BufferBytes(5) As Byte 'Nicht wundern nur test
    2. Dim Rijndael As New System.Security.Cryptography.RijndaelManaged
    4. '1. Verschlüsselung (normal)
    5. Using fsm_out As New FileStream("Verschlüsselt.encr", FileMode.Create, FileAccess.Write)
    6. Using CryptoStream As New System.Security.Cryptography.CryptoStream(fsm_out, Rijndael.CreateEncryptor(Rijndael.Key, Rijndael.IV), System.Security.Cryptography.CryptoStreamMode.Write)
    7. Using fsm As New FileStream("Geheim.txt", FileMode.Open, FileAccess.Read)
    8. Dim i As Integer = fsm.Read(BufferBytes, 0, BufferBytes.Length)
    9. Do While i > 0
    10. CryptoStream.Write(BufferBytes, 0, i)
    11. i = fsm.Read(BufferBytes, 0, BufferBytes.Length)
    12. Loop
    13. End Using
    14. End Using
    15. End Using
    16. '------------------------------------------
    17. '------------------------------------------
    18. '2. Verschlüsselung
    19. 'DIESER wird später durch den TCP Stream ersetzt
    20. Dim t_stream As New FileStream("Verschlüsselt (Server).encr", FileMode.Create, FileAccess.Write)
    22. Using MS As New MemoryStream()
    23. Using CryptoStream As New System.Security.Cryptography.CryptoStream(MS, Rijndael.CreateEncryptor(Rijndael.Key, Rijndael.IV), System.Security.Cryptography.CryptoStreamMode.Write)
    24. Using fsm As New FileStream("Geheim.txt", FileMode.Open, FileAccess.Read)
    25. Dim i As Integer = fsm.Read(BufferBytes, 0, BufferBytes.Length)
    26. Do While i > 0
    27. CryptoStream.Write(BufferBytes, 0, i)
    28. If MS.Position > 0 Then
    29. MS.Position = 0
    30. i = MS.Read(BufferBytes, 0, BufferBytes.Length)
    31. Do While i > 0
    32. t_stream.Write(BufferBytes, 0, i)
    33. i = MS.Read(BufferBytes, 0, BufferBytes.Length)
    34. Loop
    35. MS.Position = 0
    36. End If
    37. i = fsm.Read(BufferBytes, 0, BufferBytes.Length)
    38. Loop
    39. End Using
    40. Console.WriteLine(MS.Length)
    41. End Using
    42. End Using
    43. t_stream.Close()
    45. '------------------------------------------
    46. '------------------------------------------
    47. '1. Entschlüsselung (normal)
    48. Using fsm_out As New FileStream("Entschlüsselt.txt", FileMode.Create, FileAccess.Write)
    49. Using CryptoStream As New System.Security.Cryptography.CryptoStream(fsm_out, Rijndael.CreateDecryptor(Rijndael.Key, Rijndael.IV), System.Security.Cryptography.CryptoStreamMode.Write)
    50. Using fsm As New FileStream("Verschlüsselt.encr", FileMode.Open, FileAccess.Read)
    51. Dim i As Integer = fsm.Read(BufferBytes, 0, BufferBytes.Length)
    52. Do While i > 0
    53. CryptoStream.Write(BufferBytes, 0, i)
    54. i = fsm.Read(BufferBytes, 0, BufferBytes.Length)
    55. Loop
    56. End Using
    57. End Using
    58. End Using
    59. '------------------------------------------
    60. '------------------------------------------
    61. '2. Entschlüsselung (fehlgeschlagen)
    62. Using fsm_out As New FileStream("Entschlüsselt (Server).txt", FileMode.Create, FileAccess.Write)
    63. Using CryptoStream As New System.Security.Cryptography.CryptoStream(fsm_out, Rijndael.CreateDecryptor(Rijndael.Key, Rijndael.IV), System.Security.Cryptography.CryptoStreamMode.Write)
    64. Using fsm As New FileStream("Verschlüsselt (Server).encr", FileMode.Open, FileAccess.Read)
    65. Dim i As Integer = fsm.Read(BufferBytes, 0, BufferBytes.Length)
    66. Do While i > 0
    67. CryptoStream.Write(BufferBytes, 0, i)
    68. i = fsm.Read(BufferBytes, 0, BufferBytes.Length)
    69. Loop
    70. End Using
    71. End Using
    72. End Using


    Könnt Ihr mir helfen? Vielen dank für jede Antwort!

    GELÖST:
    Die letzten 16 Bytes einfach auslesen....

    VB.NET-Quellcode

    1. ​ Dim t_stream As New FileStream("Verschlüsselt (Server).encr", FileMode.Create, FileAccess.Write)
    3. Dim MS As New MemoryStream()
    4. Using CryptoStream As New System.Security.Cryptography.CryptoStream(MS, Rijndael.CreateEncryptor(Rijndael.Key, Rijndael.IV), System.Security.Cryptography.CryptoStreamMode.Write)
    5. Using fsm As New FileStream("Geheim.txt", FileMode.Open, FileAccess.Read)
    6. Dim i As Integer = fsm.Read(BufferBytes, 0, BufferBytes.Length)
    7. Do While i > 0
    8. CryptoStream.Write(BufferBytes, 0, i)
    9. If MS.Position > 0 Then
    10. MS.Position = 0
    11. i = MS.Read(BufferBytes, 0, BufferBytes.Length)
    12. Do While i > 0
    13. t_stream.Write(BufferBytes, 0, i)
    14. i = MS.Read(BufferBytes, 0, BufferBytes.Length)
    15. Loop
    16. MS.Position = 0
    17. End If
    18. i = fsm.Read(BufferBytes, 0, BufferBytes.Length)
    19. Loop
    20. End Using
    21. End Using
    23. MS.Close()
    25. Dim LastBytes As Byte() = functions.MemoryBytesToBytes(MS.ToArray(), 16)
    26. t_stream.Write(LastBytes, 0, LastBytes.Length)
    27. t_stream.Close()