Datei stückenweise einlesen und verschlüsseln

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von TheKing4241.

    Datei stückenweise einlesen und verschlüsseln

    Hallo Forum,

    ich habe eine Klasse um Bytes mit AES zu
    verschlüsseln und habe mir auch einen Code zum Einlesen einer Datei
    zusammengebastelt, doch jetzt habe ich Probleme beim Schreiben der
    verschlüsselten Bytes, da diese ja größer sind als die eingelesenen.

    Code zum Einlesen:

    VB.NET-Quellcode

    1. Private Sub Encrypt(ByVal file As String, ByVal pwd As String, ByVal keysize As Integer)
    2. Dim fileread As New IO.FileStream(file, FileMode.Open, FileAccess.Read)
    3. Dim filewrite As New IO.FileStream(file & ".aes", FileMode.Create, FileAccess.Write)
    5. Dim buffer(1024 - 1) As Byte
    6. Do While True
    7. Dim bytesRead As Integer = fileread.Read(buffer, 0, buffer.Length)
    8. If bytesRead = 0 Then Exit Do
    10. Dim bcrypt() As Byte = AES.Encrypt(keysize, buffer, pwd)
    11. filewrite.Write(bcrypt, 0, bytesRead) '<-- bytesRead geht nicht,
    12. 'da die verschl. Bytes größer sind
    13. filewrite.Flush()
    14. Loop
    16. fileread.Dispose()
    17. filewrite.Dispose()
    18. fileread.Close()
    19. filewrite.Close()
    20. End Sub


    Nun frage ich mich, wie man das lösen könnte und ob dieser Code überhaupt richtig ist oder es überhaupt so funktionieren kann.
    Ich würde ich über jede Antwort freuen :D

    Du kannst die "Count"-Property des neuen Array abrufen und hinten eintragen. Noch was: Du kannst das While True rausnehmen.

    Das ist mein Code zum Verschlüsseln in AES:

    VB.NET-Quellcode

    1. Imports System.Security.Cryptography
    2. Public Class AES
    4. Public Shared Function Encrypt(ByVal KeySize As Int32, ByVal DecryptedText As String, ByVal password As String, Optional ByVal saltstring As String = "Lm5=}7PeBd4?2X+g{oF3J&9z1n*R!Gb68f/C$6Es3y-KZ1c_7%HtD5q*}aN24=jY")
    5. Dim salt() As Byte = System.Text.Encoding.UTF8.GetBytes(saltstring)
    7. Dim key As New Rfc2898DeriveBytes(password, salt)
    9. Dim AES As New AesCryptoServiceProvider
    10. AES.KeySize = KeySize
    11. AES.BlockSize = 128
    13. AES.Key = key.GetBytes(AES.KeySize \ 8)
    14. AES.IV = key.GetBytes(AES.BlockSize \ 8)
    16. Dim ms As New IO.MemoryStream
    17. Dim cs As New CryptoStream(ms, AES.CreateEncryptor(), CryptoStreamMode.Write)
    19. Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes(DecryptedText)
    20. cs.Write(data, 0, data.Length)
    21. cs.FlushFinalBlock()
    22. cs.Close()
    24. Dim final() As Byte = ms.ToArray
    26. ms.Close()
    27. AES.Clear()
    29. Return Convert.ToBase64String(final)
    30. End Function
    32. Public Shared Function Decrypt(ByVal KeySize As Int32, ByVal EncryptedText As String, ByVal password As String, Optional ByVal saltstring As String = "Lm5=}7PeBd4?2X+g{oF3J&9z1n*R!Gb68f/C$6Es3y-KZ1c_7%HtD5q*}aN24=jY")
    33. Dim salt() As Byte = System.Text.Encoding.UTF8.GetBytes(saltstring)
    35. Dim key As New Rfc2898DeriveBytes(password, salt)
    37. Dim AES As New AesCryptoServiceProvider
    38. AES.KeySize = KeySize
    39. AES.BlockSize = 128
    41. AES.Key = key.GetBytes(AES.KeySize \ 8)
    42. AES.IV = key.GetBytes(AES.BlockSize \ 8)
    44. Dim ms As New IO.MemoryStream
    45. Dim cs As New CryptoStream(ms, AES.CreateDecryptor(), CryptoStreamMode.Write)
    47. Try
    48. Dim data() As Byte = Convert.FromBase64String(EncryptedText)
    49. cs.Write(data, 0, data.Length)
    50. cs.FlushFinalBlock()
    51. cs.Close()
    53. Dim final() As Byte = ms.ToArray
    55. ms.Close()
    56. AES.Clear()
    58. Return System.Text.Encoding.UTF8.GetString(final)
    59. Catch ex As Exception
    60. Throw New Exception(ex.ToString)
    61. End Try
    62. End Function
    64. Public Shared Function Encrypt(ByVal KeySize As Int32, ByVal input() As Byte, ByVal password As String, Optional ByVal saltstring As String = "Lm5=}7PeBd4?2X+g{oF3J&9z1n*R!Gb68f/C$6Es3y-KZ1c_7%HtD5q*}aN24=jY")
    65. Dim salt() As Byte = System.Text.Encoding.UTF8.GetBytes(saltstring)
    67. Dim key As New Rfc2898DeriveBytes(password, salt)
    69. Dim AES As New AesManaged
    70. AES.KeySize = KeySize
    71. AES.BlockSize = 128
    73. AES.Key = key.GetBytes(AES.KeySize \ 8)
    74. AES.IV = key.GetBytes(AES.BlockSize \ 8)
    76. Dim ms As New IO.MemoryStream
    77. Dim cs As New CryptoStream(ms, AES.CreateEncryptor(), CryptoStreamMode.Write)
    79. Dim data() As Byte = input
    80. cs.Write(data, 0, data.Length)
    81. cs.FlushFinalBlock()
    82. cs.Close()
    84. Dim final() As Byte = ms.ToArray
    86. ms.Close()
    87. AES.Clear()
    89. Return final
    90. End Function
    92. Public Shared Function Decrypt(ByVal KeySize As Int32, ByVal input() As Byte, ByVal password As String, Optional ByVal saltstring As String = "Lm5=}7PeBd4?2X+g{oF3J&9z1n*R!Gb68f/C$6Es3y-KZ1c_7%HtD5q*}aN24=jY")
    93. Dim salt() As Byte = System.Text.Encoding.UTF8.GetBytes(saltstring)
    95. Dim key As New Rfc2898DeriveBytes(password, salt)
    97. Dim AES As New AesManaged
    98. AES.KeySize = KeySize
    99. AES.BlockSize = 128
    101. AES.Key = key.GetBytes(AES.KeySize \ 8)
    102. AES.IV = key.GetBytes(AES.BlockSize \ 8)
    104. Dim ms As New IO.MemoryStream
    105. Dim cs As New CryptoStream(ms, AES.CreateDecryptor(), CryptoStreamMode.Write)
    107. Try
    108. Dim data() As Byte = input
    109. cs.Write(data, 0, data.Length)
    110. cs.FlushFinalBlock()
    111. cs.Close()
    113. Dim final() As Byte = ms.ToArray
    115. ms.Close()
    116. AES.Clear()
    118. Return final
    119. Catch ex As Exception
    120. Throw New Exception(ex.ToString)
    121. End Try
    122. End Function
    123. End Class

    So funktioniert das natürlich nicht. Du musst alles in einem Rutsch verschlüsseln, ansonsten werden alle Byte-Pakete einzeln verschlüsselt und können dementsprechend auch nur einzeln entschlüsselt werden. Der Weg ist hier, wie ErfinderDesRades bereits sagte, ein CryptoStream.