Ayuda con código para password

[radenf]

Lo que tú me señalas es la lógica del proceso, si embargo mi escaso conocimiento no me da para desarrollar el código que necesito. Si me puedes ayudar en ésto te lo agradezco. Puede ser algo genérico que yo adapte puesto que uso ABSDatabase como motor de base de datos, la que me parece excelente y muy superior a la BDE.
PD: Desconozco como encriptar o desencriptar los datos.
Saludos

[[enecumene]]

Hola Radenf, revisa este hilo a ver si es lo que buscas.

Saludos

[radenf]

Muchas Gracias Enecumene.
Probé el código propuesto por Caral y le hice las modificaciones respectivas para mi aplicación, sin embargo me arroja un error en la sentencia sql

SELECT Codigo, Nombre, Clave FROM Usuarios WHERE
Codigo = nom

indicando que no puede realizar la búsqueda y por lo tanto no me permite cambiar el query a true.
Podrías ayudarme? Yo no utilizo ADO sino ABSDatabase.

Saludos

[nanozaja]

hola radenf... estuve leyendo tu hilo... hace poco reformamos la parte de seguridad en el sistema de gestion de la empresa donde trabajo y estuve lidiando con usuarios, contraseñas y habilitacion de formularios segun el perfil del usuario... para empezar, te recomendaria q no encriptes la contraseña para guardarla en la base, dado q si desp tenes q trabajar con la base fuera de delphi y hubiesen usuarios q no conozcas, te seria dificil recuperar las contraseñas de estos.... incluso si quisieras loguearte como tales en tu sistema(no es correcto q pidas la contraseña a cada quien para entrar logueado como ellos, puesto q sos el administrador....).... ahora, podrias explicar como armas tu consulta para levantar los datos del usuario??? la consulta correcta podria ser algo asi:
SELECT
Codigo, //no entiendo este campo.... si supongo q debe ser el nombre de usuario
Nombre,
Clave
FROM
USUARIOS
WHERE
Codigo = '+Nom.Text
Esto deberias ponerlo en tu query, pero para ello la query debes activarla en tiempo de ejecucion, ya q si la consulta sql q pones la tenes en tiempo de edicion, tu "nom" seria un parametro y ya de esa forma lo estas definiendo mal, ya q debes llamarlo asi :nom con el : al lado para definir el parametro y luego si cargarle por codigo a tu query su parametro query.parambyname('Nom').AsString := nom.text
Espero te haya servido de algo y sea a tiempo.... cualq duda volve a preguntar y si te es de ayuda, me contactas por msn... un abrazooo

[radenf]

Muchas gracias nanozaja.
Gracias por tu aporte. El error estaba en la designación del parámetro, debía ser como tú señalaste :nom.

Saludos

[ixMike]

Bueno, no sé a estas alturas, pero en cuanto a una ventana de login, mira a ver si te sirve esto:

http://www.clubdelphi.com/foros/showthread.php?t=40776


Saludos.