Obtenir le Hash MD5 d'un fichier

    Public Function MD5CalculFile(ByVal pCheminFichier As String) As String

        Dim Reponse As String = String.Empty

        Using FileCalculer As New IO.FileStream(pCheminFichier, IO.FileMode.Open, IO.FileAccess.Read)
            Using MethodeMD5 As New System.Security.Cryptography.MD5CryptoServiceProvider

                Dim Clef() As Byte = MethodeMD5.ComputeHash(FileCalculer)
                Reponse = ByteArrayToString(Clef)

            End Using
        End Using

        Return Reponse

    End Function