Shared Function GetMd5Hash(ByVal md5Hash As MD5, ByVal input As String) As String
     Dim data As Byte() = md5Hash.ComputeHash(Encoding.UTF8.GetBytes(input))
    Dim sBuilder As New StringBuilder()
     Dim i As Integer
     For i = 0 To data.Length - 1
     sBuilder.Append(data(i).ToString("x2"))
      Next i
     Return sBuilder.ToString()
     End Function 'GetMD5Hash

Dim arr(1) As string
     arr(0) = TextBox2.Text
     arr(1) = TextBox1.Text
     username = arr(0)
     Dim hash As String = ""
     Dim md5Hash As MD5 = MD5.Create()
    System.Convert.ToBase64String(md5Hash.ComputeHash(System.TextEncoding.ASCII.GetBytes(TextBox1.Text)))
    hash = MD5Hashing.GetMd5Hash, password)
    password = harsh
    arr(1) = password
    Dim mesage As String = JsonConvert.SerialzedObject(arr)