Ir al contenido


Foto

Login desde una Aplicación Delphi a una Base de Datos en PostgreSQL

PostgreSQL Login Contraseña Clave Encriptar Columna Delphi Control de Acceso pgp_sym_decrypt

  • Por favor identifícate para responder
1 respuesta en este tema

#1 rrosariom

rrosariom

    Newbie

  • Miembros
  • Pip
  • 4 mensajes

Escrito 21 octubre 2020 - 01:07

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
  1. Adoquery1.Close();
  2. Adoquery1.SQL.Clear();
  3. Adoquery1.SQL.Add('SELECT "ID_USER", "USUARIO", pgp_sym_decrypt("CLAVE"::bytea,''AES_KEY'') as "CLAVE",
  4. "COD_EMPLEADO" FROM "schema_SYS00"."USERS"');
  5. Adoquery1.SQL.Add('WHERE "USUARIO" =' + '''' + dbedit1.Text + '''');
  6. Adoquery1.SQL.Add('AND pgp_sym_decrypt("CLAVE"::bytea,''AES_KEY'') =' +''''+ dbedit2.text+'''');
  7. Adoquery1.Open;
  8. if adoquery1.RecordCount = 0 then
  9. showmessage('Usuario o contraseña incorrecto o no existen') else
  10. form1.showmodal;

 
 
Siempre me devuelve el mensaje del showmessage.

Muchas gracias...
Rolando.


  • 0

#2 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.192 mensajes
  • LocationMéxico

Escrito 21 octubre 2020 - 10:12

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


delphi
  1. ShowMessage(ADOQuery1.SQL.Text);

Y mostrarnos lo que te muestra...

Saludos


  • 0





Etiquetado también con una o más de estas palabras: PostgreSQL, Login, Contraseña, Clave, Encriptar Columna, Delphi, Control de Acceso, pgp_sym_decrypt