Sobre el uso de la función HASH
 

Buenas. Estoy trabajando con una base de datos hecha en FB 2.5. Hurgando por esos mundos de Dios he venido a dar con la función HASH(); sinceramente desconocía que estuviera implementada en el motor y me ha parecido muy interesante.

Dado que la base de datos a la que me refiero usa varios campos con información sensible (datos personales o números de cuentas bancarias) me pareció interesante desde el principio la posiblidad de encriptar o cifrar de alguna forma esta información de manera que si la base de datos es "asaltada" por cualquiera la información no sea facilmente accesible.

Sobre como guardar la información no tengo problema; he comprendido desde el principio como hacerlo:

Código SQL [-]
INSERT INTO Tabla (Nombre, Apellidos) VALUES (HASH(:Nombre), HASH(:Apellidos))

Sin embargo no entiendo como podría recuperar la información. Por ejemplo: Tengo guardada en una tabla un campo Nombre que contiene (sin cifrar ni nada) el valor ÁNGEL. Si hago un HASH sobre esa celda me devuelve el valor 12987292. Ahora bien, ¿cómo hago para que al hacer un SELECT sobre esa celda se recupere el valor original ÁNGEL? He esatdo mirando por aquí y en otras webs y no veo como poder hacerlo.

Hash no devuelve un cadena cifrada/encriptada, sino un valor que sirve para comprobar que la cadena no ha sido modificada.
Ejemplo, imagina un campo blob donde se ha guardado una imagen:
hash("campoimagen") devuelve, ejemplo: 42342342
Alguien edita la imagen y la guarda, se puede comprobar su hash:
hash("campoimagen") devuelve, ejemplo: 4432u42222 Es distinto, quiere decir que la imagen ha sido editada.

Hash NO ES SUBSTITUTO DE UN ALGORITMO DE ENCRIPTACION.

----

Es increíble el inmenso daño que tutoriales de "seguridad" le han hecho a la comunidad!!!

---

Que es un hash?

https://en.wikipedia.org/wiki/Hash_function

Nota que hay varios tipos y usos de hashes.

Hash *precisamente* esta diseñado para *evitar* "recuperar la información". Osea, no son "reversibles". Eso derrota su proposito.

Si vas a encriptar, debes usar un algoritmo de *encriptacion*. Nota como "hash" no es parecido ni a palos a "encrypt". Hashing puede ser parte de los *pasos* en la encriptacion.

Un cipher, por el contrario:

https://en.wikipedia.org/wiki/Cipher
Ves, esto si es lo que quieres!

Pero CUAL algoritmo de encriptacion?

Mas importante aun, usa una libreria ya hecha y probada, no lo "inventes".

https://paragonie.com/blog/2016/02/h...ssword-in-2016
Nota que que es lo "mejor" va cambiando con los tiempos.

LibSodium es considerado una de las mejores librerias y esta disponible para Delphi!

https://download.libsodium.org/doc/b...ges/index.html

Muchas gracias a los dos. Efectivamente la confusión se debe a un error de concepto. Amplío mi pregunta: ¿Existe una función similar en FB al crypt/decrypt de MySQL?

Creo que la versión 3 sí trae, para versiones anteriores, mira esto.

Lo que leo de ese articulo es acerca de encriptar la BD (completa) o su metadata, no los datos especificos de la aplicacion.

Con todo, no necesitas nada especial como soporte en la BD. Manda directo la cadena encriptada desde tu app, idealmente con un prefijo que exprese que algo+salt+value usaste, como:

(asi se hace en django)

No, no lo trae. Y en ese sentido Firebird es categórico:
Y dan una serie de alegaciones que me aprecen un tanto incosistentes:
¡Claro que el cifrado es tan bueno como la clave empleada para ello! Pero ese es un problema del usuario, en este caso del programador, y no del motor de la base de datos. No obstante ahora recuerdo que en su momento desarrollé un sistema de encriptación para Clipper y lo subí, adaptado, a otro foro. Lo buscaré.
^\||/

Mira esto: http://delphi.jmrds.com/node/95

Interesante código. Lo estudiaré con calma.

Otro ejemplito:

Código Delphi [-]
// Estas dos "units" las puedes encontrar en el adjunto que he puesto
uses AES, Base64;
 
function Cifrar(Str,Clave: String): String;
var
  Src: TStringStream;
  Dst: TMemoryStream;
  Size: Integer;
  Key: TAESKey;
  ExpandedKey: TAESExpandedKey;
begin
  Result:= EmptyStr;
  Src:= TStringStream.Create(Str);
  try
    Dst:= TMemoryStream.Create;
    try
      // Preparamos la clave, lo ideal es que tenga 32 caracteres
      FillChar(Key,Sizeof(Key),#0);
      if Length(Clave) > Sizeof(Key) then
        move(PChar(Clave)^,Key,Sizeof(key))
      else
        move(PChar(Clave)^,Key,Length(Clave));
      AEsExpandKey(ExpandedKey,Key);
      // Guardamos el tamaño del texto original
      Size:= Src.Size;
      Dst.WriteBuffer(Size,Sizeof(Size));
      // Ciframos el texto
      AESEncryptStreamECB(Src,Dst,ExpandedKey);
      // Lo codificamos a base64
      Result:= BinToStr(Dst.Memory,Dst.Size);
    finally
      Dst.Free;
    end;
  finally
    Src.Free;
  end;
end;



function Descifrar(Str,Clave: String): String;
var
  Src: TMemoryStream;
  Dst: TStringStream;
  Size: Integer;
  Key: TAESKey;
  ExpandedKey: TAESExpandedKey;
begin
  Result:= EmptyStr;
  Src:= TMemoryStream.Create;
  try
    Dst:= TStringStream.Create(Str);
    try
      StrToStream(Str,Src);
      Src.Position:= 0;
      FillChar(Key,Sizeof(Key),#0);
      if Length(Clave) > Sizeof(Key) then
        move(PChar(Clave)^,Key,Sizeof(key))
      else
        move(PChar(Clave)^,Key,Length(Clave));
      AESExpandKey(ExpandedKey,Key);
      // Leemos el tamaño del texto
      Src.ReadBuffer(Size,Sizeof(Size));
      AESDecryptStreamECB(Src,Dst,ExpandedKey);
      Dst.Size:= Size;
      Result:= Dst.DataString;
    finally
      Dst.Free;
    end;
  finally
    Src.Free;
  end;
end;

Para terminar, un pequeño ejemplo de cómo funciona:

* Ciframos el texto "Hola mundo": Str := Cifrar("Hola mundo",'1234567890');
* Ahora la variable Str contiene el texto: CgAAADpn2TqC3VGqJmIQdPzgAaA=
* Desciframos el texto anterior: Str := Descifrar("CgAAADpn2TqC3VGqJmIQdPzgAaA=",'1234567890');
* Ahora la variable Str vuelve a contener el texto: "Hola mundo"

--------------------------------------------------
Otro más: http://delphi.jmrds.com/node/96


Como ves, el amigo Seoane tiene bastantes recursos sobre el tema.

Ya encontré el código que comentaba antes. Es un pelín "pedestre" pero funciona y la misma función vale en ambos sentidos: para cifrar y descifrar. Este es el código que quedó al final, después de varios repasos de gente del foro.
Con esa clave, que puede ser tan larga como se quiera, que está puesta tendríamos:
- Si pasamos ANGELITO devuelve IGFAKLRL.
- Y si pasamos IGFAKLRL devuelve ANGELITO.

Por supuesto que está abierto a mejoras en cualquier sentido.

No!

Ese tipo de "cifrado" a duras penas es eficiente en contra de un infante que aun no sabe leer!

Usa un algoritmo *probado*. De lo contrario, ni pierdas el tiempo.

Hay varias bibliotecas para Delphi dando vueltas por ahi. Yo no uso ninguna en produccion, asi que mas que un sabio consejo es una directriz para que investigues por tu cuenta

El framework Spring4D tiene clases para cifrado. Yo utilizo este framework ampliamente, no la parte de cifrados, pero te puedo asegurar que es de calidad "top" en el mundo de Delphi.

Puedes revisar las unidades de cifrado que estan en Source / Extensions / Cryptography

Podes tomar los test de unidad como ejemplos de uso

Hay otras bibliotecas tambien como LockBox, LockBox3, y TForge, esta tambien cuenta con un blog del autor que podes consultar

Gracias por vuestars respuestas.

Sobre lo que comenta mamcx acerca de la facilidad para romper la cifra. Tienes razón, y no deja de ser un prototipo mejorable.
AgustinOrtu: Es cierto que hay multitud de librerias y paquetes tanto para Delphi como Builder sobre este tema pero quiero evitar en lo posible emplear paquetes ajenos a Borland. Me han dado demasiados problemas y estoy bastante escaldado.

Seguiré buscando alternativas por código sin necesidad de paquetes externos.

No mejorable. INUTIL, MALO. Este es uno de los casos donde sin DUDAR hay que usar codigo probado y hecho por EXPERTOS.

SIN EXCEPCIONES!

Y que hay de tener una dependencia minima? Si hasta casimiro te paso las units. Ni que estuvieras con una inmensa libreria.


---

Se que suena a regaño pero este es un tema que *nosotros* los programadores nos la pasamos olimpicamente por la galleta. La falta de seguridad y privacidad es el fracaso mas grande de la industria de IT, y si no nos importa a nosotros, pues a quien?

Si el código aportado por Ángel.Matilla va a ser usado en algún lugar que no les afecte el que puedan descifrar los datos, entonces no hay problema.
Pero, desde luego, ese código es el típico primer ejemplo que viene en cualquier tutorial para empezar a enseñar cómo se usa una función de cifrado. Cualquier aficionado puede descifrarlo con un mínimo de esfuerzo.

Mira te doy la razón en todos y cada uno de los puntos que dices, del primero al último. Y sí, es verdad que el código de Casimiro tiene muy buena pinta y efectivamente no haría falta instalar ninguna librería externa. Llevo un par de días viéndolo y estudiándolo, igual que sigo buscando por la red soluciones. No cejo en mi empeño. En lo de las librerías no me refería, evidentemente, al código que subió Casimiro.
A ver: Son bases de datos que aunque están instaladas en red están aisladas, pero todos sabemos que en el momento que hay un acceso a internet hay una puerta abierta a cualquier entrada no permitida en los sistemas. Son cosas que, además, tengo que hacer sin que los usuarios se enteren para que no me obliguen a no ponerlo. ¿Sabéis la guerra que he tenido para que simplemente hubiera usuarios registrados y que la clave no fuera indefinida? Me ha costado sudor convencerles de instaurar ese mínimo de seguridad.

Pues con más razón, no puedes usar tu códgo, imagina que se llevan una copia de la base de datos (no hace falta internet), ¿cuáles serían los comentarios y reproches? "Mira, tanta seguridad y al final se llevan la BD y seguro que la han descifrado".

Que no lleguen a eso :)

^\||/^\||/

Estimado Casimiro:

Muchas gracias por el código y los Units que incluyes en el comentario #10 de este hilo. Se ajusta perfectamente a lo que estaba buscando para codificar texto: sencillez y efectividad.

Y, además de darte las gracias, te pregunto si ese código es de libre uso, si tiene autor y/o cuales son las condiciones para usarlo en un programa que podría llegar a distribuirse gratuita o comercialmente.

Saludos.