mazou26
24 de Octubre del 2003

Hola, hay alguna forma de poner una password a mi aplicacion mas alla de:
if text1 = "contraseña" then
form2.show
unload me
end if

Es decir yo quiero saber como poner una contraseña que ademas de ser mas segura que el metodo anterior, pueda ser cambiada por el usuario de la aplicacion si conoce previamente la original.

Andres
24 de Octubre del 2003

debes de guardar la contraseña en una tabla de base de datos.

yo lo tengo asi.

Private Sub Form_Load()
On Error Resume Next



CargarRutaBaseDatos
Set datos = OpenDatabase(RutaBaseDatos)


Set tabla0 = datos.OpenRecordset("EMPRESAS", dbOpenTable)




clave = tabla0.Fields("PASSWORD")

end sub

Private Sub Form_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = 13 Then
contraseña = Text1.Text
If contraseña = clave Then
FrmPrincipal.Show
Unload Me
else
If contraseña = "ANCALO" Or contraseña = "ancalo" Then
MsgBox "¿ Crees que soy tan tonto de poner esa clave ?", vbCritical + vbOKOnly, "ATENCION "
Text1.Text = ""
Text1.SetFocus
Else
MsgBox "Password Incorrecto", vbCritical + vbOKOnly, "ATENCION"
Text1.Text = ""
End If
INTENTOS = INTENTOS + 1

If INTENTOS = 4 Then

Unload Me
End If
End If


KeyAscii = 0
End If


End Sub

Maru
24 de Octubre del 2003

Hola! eso de la base de datos cómo se hace exactamente. Yo es que tengo una lista con muchos DNIs y no sé cómo hacer.
Gracias :)

http://www.maruspage.tk

mcdowell
24 de Octubre del 2003

Lo Que Puedes Hacer es el viejo metodo de un archivo aleatorio con la clave cifrada y los que haces es leer el archivo y comparas...