Kann jemand diese Hashing-Methode von C# nach VB konvertieren?

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; 
} 

DANKE!

VStudio hält für nur schrie mich an, was ich bisher am meisten speziell die Halterung am Ende des Byte haben ?:

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

End Sub 

Answer 1

Wie wäre das?

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 nicht [] für Arrays nicht verwendet, verwendet es () statt.

Answer 2

Haben Sie versucht,

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

kein Semikolon?

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

Neben Andrew Antwort gibt es quite a few simple converter tools on the web. Ich neige dazu, use this one with good success when needed.

Answer 5

Versuchen Sie, die Klammern Wechsel in Klammern:

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