我遇到了一个问题,我无法从VB.Net获取Hash值以匹配Ruby on Rails中的哈希值。我想知道这是否几乎等同于这样做。问题依赖于我的VB代码。
以下是代码示例:
红宝石
key = 'key'
data = 'The quick brown fox jumps over the lazy dog'
digest = OpenSSL::Digest::MD5.new
hmac = OpenSSL::HMAC.hexdigest(digest, key, data)
VB.Net
Dim key As String = "key"
Dim value As String = ""
Function getMD5Hash(ByVal input As String) As String
Dim md5Hasher As New HMACMD5()
Dim data As Byte() = md5Hasher.ComputeHash(Encoding.Default.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
Private Sub Test()
Dim data As String = "The quick brown fox jumps over the lazy dog"
value = getMD5Hash(key + data)
testing.Text = value
End Sub
Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles testBtn.Click
Test()
End Sub