CRIPTOGRAFIA MYSQL
Estava lendo sobre criptografia em Mysql e achei o AES como padrão no Mysql.
Fiz um programa de teste, criei um banco de teste com o collation utf8, campo tipo Texto e realizei uma inserção.
Retornou o seguinte erro: Incorrect string value
Alguém sabe me informar o porque desse erro...
Fiz um programa de teste, criei um banco de teste com o collation utf8, campo tipo Texto e realizei uma inserção.
Retornou o seguinte erro: Incorrect string value
Alguém sabe me informar o porque desse erro...
Citação::
Estava lendo sobre criptografia em Mysql e achei o AES como padrão no Mysql.
Fiz um programa de teste, criei um banco de teste com o collation utf8, campo tipo Texto e realizei uma inserção.
Retornou o seguinte erro: Incorrect string value
Alguém sabe me informar o porque desse erro...
Passa como vc está fazendo amigo....para que possamos lhe ajudar.
Olá FoxMan,
Para inserção
With Me
Sql = [Ô]Insert Into Crip values (null, [Ô]
Sql += [Ô]Aes_EnCrypt([ô][Ô] & .TextBox1.Text & [Ô][ô],[ô][Ô] & Chave & [Ô][ô])) [Ô]
End With
Para carregar um DataGridView
Sql = [Ô]SELECT Id, AES_DECRYPT(Cripto, [ô][Ô] & Chave & [Ô][ô]) FROM Crip[Ô]
Ds = Retornar_DataSet(SQL) [ô]Carreago um dataset
With Me
With .DataGridView1
.Columns.Clear()
.Rows.Clear()
.ColumnCount = 2
With .Columns(0)
.Name = [Ô]Id[Ô]
.Width = 15
End With
With .Columns(1)
.Name = [Ô]Cripto[Ô]
.Width = 50
End With
For Each Dr In Ds.Tables(0).Rows
.Rows.Add(1)
.CurrentRow.Cells(0).Value = Dr(0).ToString
.CurrentRow.Cells(1).Value = Dr(1).ToString
Next
End With
End With
é isso que estou testando no momento,
Para inserção
With Me
Sql = [Ô]Insert Into Crip values (null, [Ô]
Sql += [Ô]Aes_EnCrypt([ô][Ô] & .TextBox1.Text & [Ô][ô],[ô][Ô] & Chave & [Ô][ô])) [Ô]
End With
Para carregar um DataGridView
Sql = [Ô]SELECT Id, AES_DECRYPT(Cripto, [ô][Ô] & Chave & [Ô][ô]) FROM Crip[Ô]
Ds = Retornar_DataSet(SQL) [ô]Carreago um dataset
With Me
With .DataGridView1
.Columns.Clear()
.Rows.Clear()
.ColumnCount = 2
With .Columns(0)
.Name = [Ô]Id[Ô]
.Width = 15
End With
With .Columns(1)
.Name = [Ô]Cripto[Ô]
.Width = 50
End With
For Each Dr In Ds.Tables(0).Rows
.Rows.Add(1)
.CurrentRow.Cells(0).Value = Dr(0).ToString
.CurrentRow.Cells(1).Value = Dr(1).ToString
Next
End With
End With
é isso que estou testando no momento,
Agradeço a todos pela atenção!!
Tópico encerrado , respostas não são mais permitidas