This class implements the IHasher interface that you can find here.
''' ''' RIPEMD160 hash class from Satal Keto's library ''' https://samjenkins.com ''' Version 1.0.0.1 ''' Imports System.IO Imports System.Security.Cryptography Namespace Security.Hash Public Class RIPEMD160Hash Implements IHasher Public Function hashOfFile(ByVal fileToHash As String) As String Implements IHasher.hashOfFile Dim rdr As FileStream Dim rip As RIPEMD160 = RIPEMD160Managed.Create Dim bytes() As Byte Dim rtn As String = "" If File.Exists(fileToHash) Then rdr = New FileStream(fileToHash, FileMode.Open, FileAccess.Read) bytes = rip.ComputeHash(rdr) rtn = ByteArrayToString(bytes) End If Return rtn End Function Public Function hashOfString(ByVal stringToHash As String) As String Implements IHasher.hashOfString Dim rip As RIPEMD160 = RIPEMD160Managed.Create Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(stringToHash) bytesToHash = rip.ComputeHash(bytesToHash) Dim strResult As String = "" For Each b As Byte In bytesToHash strResult += b.ToString("x2") Next Return strResult End Function Private Function ByteArrayToString(ByVal arrInput() As Byte) As String Dim sb As New System.Text.StringBuilder(arrInput.Length * 2) For i As Integer = 0 To arrInput.Length - 1 sb.Append(arrInput(i).ToString("X2")) Next Return sb.ToString().ToLower End Function End Class End Namespace
Calculate RIPEMD160 Hash of string or file