Function MD5Hash(ByVal values As String) As Byte()
Return MD5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(values))
End Function
Function Encrypt(ByVal Stringinput As String, ByVal key As String) As String
des.Key = MD5Hash(key)
des.Mode = CipherMode.ECB
Dim buffer As Byte() = ASCIIEncoding.ASCII.GetBytes(Stringinput)
Return Convert.ToBase64String(des.CreateEncryptor().TransformFinalBlock(buffer, 0, buffer.Length))
End Function
Private Sub btnSignup_Click(sender As Object, e As EventArgs) Handles btnSignup.Click
Using con As New SQLiteConnection(ConnectionString.ToString)
Dim query As String = "INSERT INTO LoginTB (user, password) VALUES (@username,@password)"
con.Open()
Using cmd As New SQLiteCommand(query, con)
cmd.Parameters.AddWithValue("@username", TxtBxUsername.Text)
cmd.Parameters.AddWithValue("@password", Encrypt(TxtBxPassword.Text, "abc"))
cmd.ExecuteNonQuery()
MsgBox("user created successfully")
con.Close()
End Using
End Using
End Sub
The error appears in the value at MD5Hash when I click the signup button.
System.NullReferenceException 'Object reference not set to an instance of an object.'
I know it has been asked a lot. But I couldn't find a solution to this issue.