Komisches Problem mit MD5CryptoServiceProvider.ComputeHash und IO.Stream

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

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

    Komisches Problem mit MD5CryptoServiceProvider.ComputeHash und IO.Stream

    Mahlzeit,

    habe ein komisches Problem mit dem MD5CryptoServiceProvider.ComputeHash und IO.Streams.
    Ich lade mittels Net.HttpWebRequest Datein von einem Webserver herunter und hashe den Inhalt. Allerdings ist nach dem Aufruf von ComputeHash der Stream leer. Der Dateiname erhält den korrekten Hash. Die Dateien sind jedoch dann leer.
    Wenn ich Computehash weglasse, hat der Stream den korrekten Inhalt und die Dateien werden gespeichert,

    Selbst wenn ich einen neuen Stream erstelle

    VB.NET-Quellcode

    1. Dim hashstreamStream As IO.Stream = responseStream
    und den hashe, dann ist der originale Stream auch leer. z.B:


    Das Problem liegt in Zeile 53. Jemand ne Idee?


    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Net
    3. Imports System.Security.Cryptography
    4. Imports System.Text
    5. Imports System.Threading
    6. Imports System.Threading.Tasks
    8. Module Module1
    10. Dim mylinks() As String
    11. Dim mytask() As Task
    12. Dim md5() As MD5CryptoServiceProvider
    13. Dim myrow As String = "http://server.de/bild1.jpg,http://server.de/bild2.jpg,http://server.de/bild3.jpg ..... bis bild16.jpg"
    15. Sub Main()
    17. Try
    19. mylinks = Split(myrow, ",")
    20. ReDim mytask(mylinks.Count)
    21. ReDim md5(mylinks.Count)
    23. For i As Integer = 0 To mylinks.Count - 1
    24. Console.Out.WriteLineAsync(mylinks(i))
    26. mytask(i) = Task.Run(Sub() LoadImageFromUrl(mylinks(i), i.ToString))
    27. mytask(i).Wait()
    28. Next
    30. Console.ReadKey()
    32. Catch ex As Exception
    33. Console.Out.WriteLineAsync(ex.Message.ToString)
    34. Console.ReadKey()
    35. End Try
    37. End Sub
    39. Public Function AcceptAllCertifications(ByVal sender As Object, ByVal certification As System.Security.Cryptography.X509Certificates.X509Certificate, ByVal chain As System.Security.Cryptography.X509Certificates.X509Chain, ByVal sslPolicyErrors As System.Net.Security.SslPolicyErrors) As Boolean
    40. Return True
    41. End Function
    43. Public Sub LoadImageFromUrl(ByRef url As String, mycount As String)
    44. Try
    46. md5(mycount) = New MD5CryptoServiceProvider
    48. Dim request As Net.HttpWebRequest = DirectCast(Net.HttpWebRequest.Create(url), Net.HttpWebRequest)
    49. Dim response As Net.HttpWebResponse = DirectCast(request.GetResponse, Net.HttpWebResponse)
    51. Dim responseStream As IO.Stream = response.GetResponseStream()
    53. Dim data As Byte() = md5(mycount).ComputeHash(responseStream)
    54. Dim sBuilder As New StringBuilder()
    56. Dim i As Integer
    57. For i = 0 To data.Length - 1
    58. sBuilder.Append(data(i).ToString("x2"))
    59. Next i
    61. Dim localFile As String = sBuilder.ToString & "-" & mycount & ".jpg"
    63. Dim fs As New IO.FileStream(localFile, FileMode.Create, FileAccess.Write)
    64. Dim buffer(2047) As Byte
    65. Dim read As Integer
    66. Do
    67. read = responseStream.Read(buffer, 0, buffer.Length)
    68. fs.Write(buffer, 0, read)
    69. Loop Until read = 0
    70. responseStream.Close()
    71. fs.Flush()
    72. fs.Close()
    74. responseStream.Close()
    76. response.Close()
    78. Catch ex As Exception
    79. Console.Out.WriteLineAsync(ex.Message.ToString)
    80. End Try
    81. End Sub
    85. End Module

    UllaVB schrieb:

    Selbst wenn ich einen neuen Stream erstelle
    VB.NET-Quellcode

    Dim hashstreamStream As IO.Stream = responseStream

    und den hashe, dann ist der originale Stream auch leer. z.B:
    Jo, einen Stream kann man normalerweise nur einmal lesen, und das gilt ganz besonders für ResponseStream.
    Wennde den also hasht, dann isser ausgelesen, und weitere Lese-Versuche erbringen nichts.