小编Spa*_*ers的帖子

我发生了一个奇怪的情况.我使用以下代码为小文件创建MD5哈希.通过比较服务器端的哈希值和客户端的哈希值,我可以测试它是否已经更改,以便我可以下载任何更新的副本.

Public Function MD5Hash(mFileInfo As FileInfo) As String

    Dim returnString As String = ""
    Try
        Dim f As FileStream = New FileStream(mFileInfo.FullName, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
        Dim md5 As New System.Security.Cryptography.MD5CryptoServiceProvider()
        md5.ComputeHash(f)
        returnString = GenerateHash(System.Text.Encoding.UTF8.GetString(md5.Hash))
        f.Close()
    Catch
        'File doesn't exist
    End Try

    Return returnString

End Function


Public Shared Function GenerateHash(ByVal SourceText As String) As String

    'Create an encoding object to ensure the encoding standard for the source text
    Dim Ue As New UnicodeEncoding()
    'Retrieve a byte array based on the …