SHA1 Jak zrobić?

[globus102]

Witam mam małe pytanko jako że dopiero się uczę chciałbym dowiedzieć się jak do tego kodu dodać kodowanie SHA1 w haśle, Pozdrawiam!

Imports System.Security.Cryptography
Imports MySql.Data.MySqlClient

Public Class Form1
    Dim MysqlConn As MySqlConnection
    Dim COMMAND As MySqlCommand


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MysqlConn = New MySqlConnection
        MysqlConn.ConnectionString = "server=localhost;userid=root;password=;database=login_table"
        Dim READER As MySqlDataReader
        Dim sha As New SHA1CryptoServiceProvider()

        Try
            MysqlConn.Open()
            Dim Query As String
            Query = "SELECT * FROM login_table.users WHERE username='" & TextBox2.Text & "' and password='" & TextBox1.Text & "'"
            COMMAND = New MySqlCommand(Query, MysqlConn)
            READER = COMMAND.ExecuteReader

            Dim count As Integer
            count = 0
            While READER.Read
                count = count + 1
            End While
            If count = 1 Then
                MessageBox.Show("Zalogowano pomyslnie ... nastąpi przekierowanie do panelu!")
                Form3.Show()
                Me.Hide()

            ElseIf count > 1 Then
                MessageBox.Show("Podano nie prawidłowe dane!12")
            Else
                MessageBox.Show("Podano nie prawidłowe dane!")
            End If
            MysqlConn.Close()

        Catch ex As MySqlException
            MessageBox.Show(ex.Message)

        Finally
            MysqlConn.Dispose()

        End Try



    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Form2.Show()
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        System.Diagnostics.Process.Start("http://voodoo.pl")

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        System.Diagnostics.Process.Start("http://stronaglowna.pl")
    End Sub
End Class

[globus102]

ref

[bluefine]

Private Shared Function Hash(input As String) As String

Dim hash__1 = (New SHA1Managed()).ComputeHash(Encoding.UTF8.GetBytes(input))

Return String.Join("", hash__1.[Select](Function( b.ToString("x2")).ToArray())

End Function

 

[globus102]

i to jako osobna funkcje tak ?