9/25/2007 5:56:11 AM #

Same code in VB.net 2.0
       Dim myKey As String = "tanstaaftanstaaf"
       Dim myEngine As String = "PDE4OTYuNjk3MTcwOTUyQHBvc3RvZmZpY2UucmVzdG9uLm1jaS5uZXQ+"

       Dim SharedKey() As Byte = Convert.FromBase64String(myEngine)
       Dim secret As New List(Of Byte)
       secret.AddRange(System.Text.ASCIIEncoding.ASCII.GetBytes(myKey))
       While (secret.Count < 64)
           secret.Add(0)
       End While
       Dim hmac As New HMACMD5(SharedKey)
       Dim dotNet As Byte()
       dotNet = hmac.ComputeHash(secret.ToArray())
       Dim opad As New List(Of Byte)
       Dim ipad As New List(Of Byte)
       Dim i As Integer
       For i = 0 To 63
           opad.Add(&H5C Xor secret(i))
           ipad.Add(&H36 Xor secret(i))
       Next
       ipad.AddRange(sharedKey)
       Dim md5 As New MD5CryptoServiceProvider()
       opad.AddRange(md5.ComputeHash(ipad.ToArray()))
       Dim tmp As New List(Of Byte)
       tmp.AddRange(md5.ComputeHash(opad.ToArray()))

       Dim s1 As String = ""
       Dim s2 As String = ""
       Dim b1 As Byte
       Dim b2 As Byte
       For Each b1 In tmp
           s1 += b1.ToString("x")
       Next
       For Each b2 In dotNet
           s2 += b2.ToString("x")
       Next
            
       tmp.InsertRange(0, System.Text.ASCIIEncoding.ASCII.GetBytes("tim "))
       Dim encodedKeyedHash As String
       encodedKeyedHash = Convert.ToBase64String(tmp.ToArray())

            'Output:
            's1 = b913a62c7eda7a495b4e6e7334d3890
            's2 = f641695cabad9c59dde20daf93483db
            'encodedKeyedHash=dGltILkTpgLH7aeklbTm5zNNOJA=

Decio