Sobre el uso de la función HASH

[Casimiro Notevi]

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

[mamcx]

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:

pbkdf2_sha256$30000$dFgV....$Q/hJH6fO5VdFqeE4....

(asi se hace en django)

[Angel.Matilla]

Empezado por Casimiro Notevi

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

No, no lo trae. Y en ese sentido Firebird es categórico:

Why doesn't Firebird provide encryption?

Y dan una serie de alegaciones que me aprecen un tanto incosistentes:

Encryption can only be as good as the secret key required for decryption. It can be worse but it cannot be better. There are several excellent encryption algorithms available that could be used. When good encryption is used, attacks are likely to be against the key rather than against the encryption itself.

¡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é.

Empezado por mamcx

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

[Casimiro Notevi]

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

[Angel.Matilla]

Empezado por Casimiro Notevi

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

Interesante código. Lo estudiaré con calma.

[Casimiro Notevi]

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.

[Angel.Matilla]

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.

Código PHP:

AnsiString Encriptar(AnsiString Texto)
{
     AnsiString Salida = "";
     unsigned char Clave[] = "891475632";
     unsigned char *cTexto = Texto.c_str();

     for (int i = 0, y = 0; i < strlen(cTexto); i ++, y ++)
     {
          if (y > strlen(Clave))
                y = 0;

          Salida += char(cTexto[i] ^ (Clave[y] - 48));
     }
     return Salida;
} 


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.

[mamcx]

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.

[rrf]

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.

[Casimiro Notevi]

Me alegro que te sirva
Ese código puedes usarlo cuanto quieras, además originalmente lo escribió el amigo seoane, puedes visitar su web.