Jump to content


Photo

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

  • Please log in to reply
1 reply to this topic

#1 rrosariom

rrosariom

    Newbie

  • Miembros
  • Pip
  • 4 posts

Posted 21 October 2020 - 01:07 PM

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
  • 14448 posts
  • LocationMéxico

Posted 21 October 2020 - 10:12 PM

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





Also tagged with one or more of these keywords: PostgreSQL, Login, Contraseña, Clave, Encriptar Columna, Delphi, Control de Acceso, pgp_sym_decrypt

IP.Board spam blocked by CleanTalk.