Visual Basic - Funcion HASH

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        'Alta INSERT

        Dim connectionString As String = Nothing

        Dim connection As SqlConnection

        Dim adapter As New SqlDataAdapter()

        Dim ds As New DataSet()

        Dim sql As String = Nothing

        Dim cmd As SqlCommand

        Dim n As Integer

        TextBox2SHA1.Text =

             FormsAuthentication.HashPasswordForStoringInConfigFile(TextBox2.Text, "SHA1")

        Try

            connectionString = "Data Source=Josep-Pc\sqlexpress;Initial Catalog=Desplacaments;Integrated Security=SSPI;"

            sql = "INSERT INTO Usuaris (usuari, contrasenya) VALUES ('" & Me.TextBox1.Text & "', '" & Me.TextBox2.Text & "')"

            connection = New SqlConnection(connectionString)

            cmd = connection.CreateCommand()

            cmd.CommandText = sql

            cmd.Connection.Open()

            n = cmd.ExecuteNonQuery()

            If (n > 0) Then

                MessageBox.Show("Usuario registrado.")

            Else

                MessageBox.Show("No se ha podido registrar el usuario")

            End If

        Catch ex As Exception

            MessageBox.Show("Error")

        End Try

    End Sub

Dim strToHash As String = "12345@ASASmmmmm"

Dim sha1Obj As New SHA1CryptoServiceProvider

Dim bytesToHash() As Byte = Encoding.ASCII.GetBytes(strToHash)

bytesToHash = sha1Obj.ComputeHash(bytesToHash)

Dim strResult As String = ""

   For Each b As Byte In bytesToHash

            strResult += b.ToString("x2")

   Next

MsgBox(strResult)

':::Resultado: 1182938fb1abc49336cfd466b9a7a2ed4a875f30