MD5 HASH

gistfile1.vb

''' <summary>
''' 計算MD5 HASH
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Private  Function GenMD5Hash(ByVal FilePath As String) As String
  'Using fs As FileStream = File.OpenRead(MAIN_EXE_PATH)
  Using fs As FileStream = New FileStream(FilePath, FileMode.Open, FileAccess.Read, FileShare.Read)
    Dim md5Gen As MD5 = MD5.Create()
    Dim sb As StringBuilder = New StringBuilder
    For Each b As Byte In md5Gen.ComputeHash(fs)
      sb.Append(b.ToString("X2"))
    Next
    Return sb.ToString()
  End Using
End Function