有人可以將這種哈希方法從C＃轉換爲VB嗎？

Question

public static string CalculateSHA1(string text, Encoding enc) 
{ 
    byte[] buffer = enc.GetBytes(text); 
    SHA1CryptoServiceProvider cryptoTransformSHA1 = new SHA1CryptoServiceProvider(); 
    string hash = BitConverter.ToString(cryptoTransformSHA1.ComputeHash(buffer)).Replace("-", ""); 
    return hash; 
} 

謝謝！

VStudio保持在我喊正是我在字節結束至今最特別的支架？：

Private Sub CalculateSHA1(ByVal text As String, ByVal enc As Encoding) 
    Dim buffer As Byte[] = enc.GetBytes(text); 

End Sub 

Answer 1

這個怎麼樣？

Public Shared Function CalculateSHA1(text As String, enc As Encoding) As String 
    Dim buffer As Byte() = enc.GetBytes(text) 
    Dim cryptoTransformSHA1 As New SHA1CryptoServiceProvider() 
    Dim hash As String = BitConverter.ToString(cryptoTransformSHA1.ComputeHash(buffer)).Replace("-", "") 
    Return hash 
End Function 

VB.NET不使用[]數組，它使用()代替。

Answer 2

你嘗試

Dim buffer as Byte() = enc.GetBytes(text) 

別無分號？

Answer 3

Public Shared Function CalculateSHA1(ByVal text As String, ByVal enc As Encoding) As String 
    Dim buffer As Byte() = enc.GetBytes(text) 
    Dim cryptoTransformSHA1 As New SHA1CryptoServiceProvider() 
    Dim hash As String = BitConverter.ToString(cryptoTransformSHA1.ComputeHash(buffer)).Replace("-", "") 
    Return hash 
End Function 

Answer 4

除了安德魯的回答，有quite a few simple converter tools on the web.我傾向於use this one with good success when needed.

Answer 5

嘗試改變括號括號：

Dim buffer As Byte() = enc.GetBytes(text);