Encriptacion de claves de usuario
Hola a todos,
Tengo un programa en la que dependiendo que tipo de usuarios seas, tienes unos privilegios u otros. En mi programa se pueden crear nuevos usuarios, por los que los tengo guardados su identificador y su clave en una base de datos de Access.
Mi problema es que estos campos deben estar encriptados, para que alguien que habrá la bd no los pueda ver.
¡Cuál es la mejor opción para trabajar con estos datos con Vb y Access, encriptarlos en Access y luego desencriptarlos en vb o alguna otra opción?
Si alguien sabe, me gustarÃa saber como se puede hacer de la mejor forma.
Saludos, Kemmotar
Tengo un programa en la que dependiendo que tipo de usuarios seas, tienes unos privilegios u otros. En mi programa se pueden crear nuevos usuarios, por los que los tengo guardados su identificador y su clave en una base de datos de Access.
Mi problema es que estos campos deben estar encriptados, para que alguien que habrá la bd no los pueda ver.
¡Cuál es la mejor opción para trabajar con estos datos con Vb y Access, encriptarlos en Access y luego desencriptarlos en vb o alguna otra opción?
Si alguien sabe, me gustarÃa saber como se puede hacer de la mejor forma.
Saludos, Kemmotar
He estado mirando en internet y sigo muy perdido.
¿Alguien me puede indicar por donde tirar?
Saludos, Kemmotar
¿Alguien me puede indicar por donde tirar?
Saludos, Kemmotar
hola, porque no utilizas el registro de windows, ahi es menos probable que vean las contraseñas, en la paina del guille puedes encontrar un modulo cls para manejar el registro (www.elguille.info/indice.asp)
espero te sirva
espero te sirva
Public Sub codifica(clave As String)
contiene = ""
For r = 1 To Len(RTrim(clave))
contiene = contiene + Chr(Asc(Mid(RTrim(clave), r, 1)) +30)
Next
End Sub
Public Sub decodifica(clave As String)
contiene = ""
For r = 1 To Len(RTrim(clave))
contiene = contiene + Chr(Asc(Mid(RTrim(clave), r, 1)) - 30)
Next
End Sub
sENCILLITO PERO UTIL
PRUEBA CODIFICANDO ANTES DE GUARDAR Y DECODIFICANDO DESPUES DE LEER
contiene = ""
For r = 1 To Len(RTrim(clave))
contiene = contiene + Chr(Asc(Mid(RTrim(clave), r, 1)) +30)
Next
End Sub
Public Sub decodifica(clave As String)
contiene = ""
For r = 1 To Len(RTrim(clave))
contiene = contiene + Chr(Asc(Mid(RTrim(clave), r, 1)) - 30)
Next
End Sub
sENCILLITO PERO UTIL
PRUEBA CODIFICANDO ANTES DE GUARDAR Y DECODIFICANDO DESPUES DE LEER
