mayra
No es un único código el que necesitas para validar usuarios con contraseña ya quedebés encriptar las contraseñas para que no puedan ser usurpadas por cualquiera.
En primer lugar deberías crear un nuevo formulario con dos textBox que te permitirán ingresar Usuario y Password
Luego determinarás si vas a usar el Registro de Windows para guardar los usuarios y las contraseñas, una Tabla en la misma Base de datos de la Aplicación o un archivo de disco encriptado.
Para la primer opción debés bajarte rutinas de manejo de Registro las cuales trabajan con las APIS RegCloseKey Y RegOpenKeyEx
y otras. Son implementadas en una Clase o en módulos por lo cual te va a ser muy fácil utilizarlas.
Podés bajar ejemplos muy buenos de www.planet-source-code.com
Y otra cosa que te faltaría es la encriptar los datos que ingresa el usuario para poder validarlos con los guardados
strstring= "TEXTO QUE SE VA A ENCRIPTAR"
CALL Encrypt(strstring, "¢£¢ƒµ¶º»¾½½¥¦©«¬")
Private Function Encrypt(ByVal secret$, Password$)
' Función para Encryptar texto usando XOR
'secret es el string a encryptar y Password la clave
l = Len(Password$)
For X = 1 To Len(secret$)
Char = Asc(Mid$(Password$, (X Mod l) - l * ((X Mod l) = 0), 1))
Lrepit = Asc(Mid$(secret$, X, 1)) Xor Char
If Lrepit = 0 Then Lrepit = Asc(Mid$(secret$, X, 1))
Mid$(secret$, X, 1) = Chr$(Lrepit)
Next
Encrypt = secret$
End Function
