Public Function Hash(ByVal line As String) 
    Dim MD5 As New MD5CryptoServiceProvider
    Dim bArr() As Byte = Encoding.Default.GetBytes(line)
    Dim Arr() As Byte = MD5.ComputeHash(bArr)
    Dim SB As New StringBuilder

    For Each B As Byte In Arr
      SB.Append(B.ToString("x3"))
    Next
    Return (SB.ToString) 
  End Function

'Можно изменить вид хэша изменив символы x3 на любые свои