Aqui mis codigos:
My table:
Codigo de gambas de autentificacion del usuario
Public Sub Button1_Click()
Dim ci As Integer
rs = cn.Exec("SELECT * FROM cuentas where nombre_u = '" & user.text & "' and pass = '" & pass.text & "';")
If rs.Available Then
ci = rs!ci
Message.Info("Correcto")
principal.Show
principal.ciu.Text = ci
Me.Close
Endif
Else
Message.Error("Incorrecto")
End If
End
Dim ci As Integer
rs = cn.Exec("SELECT * FROM cuentas where nombre_u = '" & user.text & "' and pass = '" & pass.text & "';")
If rs.Available Then
ci = rs!ci
Message.Info("Correcto")
principal.Show
principal.ciu.Text = ci
Me.Close
Endif
Else
Message.Error("Incorrecto")
End If
End
Quisiera mejorar, el cifrado de mis datos, para que no esten la base de datos en texto puro y que tampoco viajen por la red en texto puro. Saludos
E investigado.
e seguido este articulo.
http://hectorgarnachogambas.wordpre...-con-md5-y-des/
se cifra la clave, la envió a un campo TEXT, queda almacenada la clave con el cifrado, se hace una consulta se extrae la clave cifrada, viaja por la red cifrada, y se compara con el Crypt.Check.
Codigo:
Public Sub Button1_Click()
Dim n_u As Result
Dim ci As Integer
Dim password As String
n_u = cn.Exec("SELECT * FROM cuentas where nombre_u = '" & user.text & "';")
If Crypt.Check(pass.Text, n_u!pass) = False Then
ci = n_u!ci
Message.Info("Correcto")
principal.Show
principal.ciu.Text = ci
Me.Close
Else
Message.Error("Incorrecto")
End If
End
Dim n_u As Result
Dim ci As Integer
Dim password As String
n_u = cn.Exec("SELECT * FROM cuentas where nombre_u = '" & user.text & "';")
If Crypt.Check(pass.Text, n_u!pass) = False Then
ci = n_u!ci
Message.Info("Correcto")
principal.Show
principal.ciu.Text = ci
Me.Close
Else
Message.Error("Incorrecto")
End If
End
ahora me a faltado algo?
Albacete
