1 reply to this topic

[rrosariom]

Buenas tardes, espero que todos se encuentren muy bien!!

Actualmente, tengo una base de datos en PostgreSQL en hice una tabla llamada USERS con los campos usuario y contraseña. En el caso de la columna contraseña utilicé una función de una extensión de PostgreSQL para encriptarla, ya que no deseo que si alguien accede a la base de datos y tiene los permisos pueda ver la clave de los usuarios del sistema. Todo marcha bien, sin embargo, cuando intento hacer login desde DELPHI para entrar al sistema no encuentra el usuario y contraseña creada, y por ende no me carga el sistema. Considerando que, desde DELPHI desencripto la clave, y de hecho puedo verlo en un dbgrid y en edit también.

A continuación, el código para ver si alguien de este foro me ayuda: 
 

delphi

Adoquery1.Close();
Adoquery1.SQL.Clear();
Adoquery1.SQL.Add('SELECT "ID_USER", "USUARIO", pgp_sym_decrypt("CLAVE"::bytea,''AES_KEY'') as "CLAVE", 
                          "COD_EMPLEADO" FROM "schema_SYS00"."USERS"');
Adoquery1.SQL.Add('WHERE "USUARIO" =' + '''' + dbedit1.Text + '''');
Adoquery1.SQL.Add('AND pgp_sym_decrypt("CLAVE"::bytea,''AES_KEY'') =' +''''+ dbedit2.text+'''');
Adoquery1.Open;
if adoquery1.RecordCount = 0 then
showmessage('Usuario o contraseña incorrecto o no existen') else
form1.showmodal;

 
 
Siempre me devuelve el mensaje del showmessage.

Muchas gracias...
Rolando.

[egostar]

Hola Rolando
 
Puedes colocar la siguiente línea antes de hacer el open del ADOQuery?
 
 

delphi

ShowMessage(ADOQuery1.SQL.Text);

Y mostrarnos lo que te muestra...

Saludos