регистрационная форма шифрования с использованием vb.net и mysql

Question

У меня есть регистрационная форма, и я хочу зашифровать пароль, используя любое шифрование, я использую vb.net 2008 и MySQL как базу данных, я искал через Интернет и нашел некоторые шифрования, но я не знаю, как подключить его к моей регистрационной форме. вот мой регистрационный код и код шифрования я нашел в Интернете (в верхней части)

Imports MySql.Data.MySqlClient 

Imports System.Security 

Imports System.Security.Cryptography 


Public Class user 

Public Function AES_Encrypt(ByVal input As String, ByVal pass As String) As String 
    Dim AES As New System.Security.Cryptography.RijndaelManaged 
    Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider 
    Dim encrypted As String = "" 
    Try 
     Dim hash(31) As Byte 
     Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass)) 
     Array.Copy(temp, 0, hash, 0, 16) 
     Array.Copy(temp, 0, hash, 15, 16) 
     AES.Key = hash 
     AES.Mode = Security.Cryptography.CipherMode.ECB 
     Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateEncryptor 
     Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input) 
     encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length)) 
     Return encrypted 

    Catch ex As Exception 

    End Try 
End Function 

Private Sub BCreateAcount_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BCreateAcount.Click 
    Dim conn As MySqlConnection 
    conn = New MySqlConnection 

    conn.ConnectionString = "server = localhost;username= root;password= a;database= database" 

    Try 
     conn.Open() 
    Catch mali As MySqlException 
     MsgBox("connot establish connection") 
    End Try 
    Dim myCommand As New MySqlCommand 
    Dim myReader As MySqlDataReader 


    myCommand.Connection = conn 
    myCommand.CommandText = "insert into user values('" + txtUserName.Text + "','" + txtNewPassword.Text + "')" 
    Call calldaw() 


    If txtUserName.Text = "" Or txtNewPassword.Text = "" Or txtConfirmPassword.Text = "" Then 
     MsgBox("Please enter username and password", MsgBoxStyle.Information, "Inventory System") 
    ElseIf txtConfirmPassword.Text = txtNewPassword.Text Then 

     MsgBox("Account Created", MsgBoxStyle.Information, "Inventory System") 
     myReader = myCommand.ExecuteReader() 
     txtUserName.Text = "" 
     txtNewPassword.Text = "" 
     txtConfirmPassword.Text = "" 

    Else 
     MsgBox("Password did not match", MsgBoxStyle.Critical, "Inventory System") 
     txtConfirmPassword.Text = "" 
     txtNewPassword.Text = "" 
     txtUserName.Text = "" 
    End If 

End Sub 
Private Sub calldaw() 
    Dim conn As MySqlConnection 
    conn = New MySqlConnection 

    conn.ConnectionString = "server = localhost;username= root;password= a;database= database" 

    Try 
     conn.Open() 
    Catch mali As MySqlException 
     MsgBox("connot establish connection") 
    End Try 

    Dim myData As MySqlDataAdapter 
    Dim reason As String = " Create Account " 
    Dim tao As String = "admin" 

    myData = New MySqlDataAdapter 

    Dim sqlsql = "insert into daily_log values('" + tao + "','" + Date1.Text + "','" + reason + "','" + Time1.Text + "')" 
    Dim ssql = "Select * from user" 

    Dim myCommand As New MySqlCommand 
    myCommand.Connection = conn 
    myCommand.CommandText = sqlsql 

    Dim myReader As MySqlDataReader 
    myReader = myCommand.ExecuteReader 

End Sub 

Private Sub BBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BBack.Click 
    Me.Close() 
End Sub 

Private Sub user_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Timer1.Enabled = True 
End Sub 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
    Date1.Text = Date.Today.Date 
    Dim Date2 As Date = Date1.Text 
    Date1.Text = Format(Date2, "yyyy-MM-dd") 
    Time1.Text = TimeOfDay 
End Sub 

End Class 

любая помощь будет делать, спасибо.

Answer 1

Перед выполнением инструкции INSERT вы должны вызвать функцию AES_Encrypt, чтобы передать зашифрованный пароль в базу данных.

Dim myCommand As New MySqlCommand 
Dim myReader As MySqlDataReader 


myCommand.Connection = conn 
myCommand.CommandText = "insert into user values('" + txtUserName.Text + "','" + AES_Encrypt(txtNewPassword.Text,txtNewPassword.Text) + "')" 
Call calldaw()