Usuario y Contraseña - Encriptar y Desencriptar


21 de Octubre del 2020

Buenas tardes, espero que se encuentren muy bien!!

Estoy programando un login desde una aplicación en delphi que se conecta a una base de datos PostGreSQL, en la cual, encripto la columna que guarda la contraseña de login, el programa corre bien, y y si hago la consulta por ejemplo a un grid o a edit normal, el dato sale desencriptado, sin embargo, desde login no encuentra la informació. El código es el siguiente:

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("El usuario o contraseña están incorrecto') else
form1.showmodal;

 

Siempre me manda el mensaje y no carga el formulario.

Muchas gracias...

Rolando.