Imagenes en archivos.

[JXJ]

cifrar y descifrar "en memoria"

¿eso como se hace?

[dec]

Hola,

Tienes razón, no suena muy descriptivo eso. Pero, es que no me sabré explicar de otro modo. Se trataría, básicamente, de que el archivo "en claro" no residiera nunca en el disco duro. Cargar el archivo cifrado en una variable (en memoria) y descifrarlo ahí. Creo que los componentes que he venido usando para estos menesteres permiten algo así, pero, ahora mismo tampoco estoy seguro al cien por cien.

[Neftali [Germán.Estévez]]

¿Y utlizando Streams?
(1) Cargar en un Stream la imagen.
(2) Guardar el tamaño
(3) Añadir el Texto
(4) Guardar el tamaño
(5) Aplicarle algoritmo de encriptación con key
(6) Guardarlo a disco.

Eso es la teoría.

[cmm07]

tantos MAXIUM ?????????,

[dec]

Hola,

Ya ves, hay personas a las que que no basta con tener doble personalidad.

[MAXIUM]

Gracias, vamoS a probrar.

[Neftali [Germán.Estévez]]

A ver no estoy muy puesto en el tema, pero lo que quería explicar es más o menos esto. Seguro que es optimizable, ya digo que no estoy muy puesto, pero así creo que se entiende mejor:

(1) Poner un TImage en el form, con un bitmap.
(2) POner un memo con un texto.
(3) Ejecutar el código siguiente.

El resultado es un fichero en disco con:

10 dígitos correspondiente al tamaño del memo
10 dígitos correspondientes al tamaño de la imagen
El contenido del memo
El contenido de la imagen

Si lo abrís con un editor hexadecimal se ve perfectamente.
Si antes de guardar se le aplica un algoritmo y listo.

Con los dos tamaños (ocupan cada uno 10 posiciones) se debería poder hacer el paso contrario sin problemas.

Código Delphi [-]
var
  i:Integer;
  s:Int64;
  Str:String;
  buff: array [0..9] of byte;
  f1, F2: TFileStream;
  s1:TMemoryStream;
  buffmemo: array [0..4000] of byte;
  sMemo:Integer;
begin

  f1 := TFileStream.Create('.\I.dat', fmCreate);
  f2 := TFileStream.Create('.\M.dat', fmCreate);
  s1 := TMemoryStream.Create;


  // MEMO
  Memo1.Lines.SaveToStream(f2);
  s := sizeof(f2);
  for i := 0 to Min(4000, Length(Memo1.Lines.TExt)) do begin
    buffmemo[i] := Ord(Memo1.Lines.Text[i + 1]);
  end;
  sMemo := i;
  Str := DupeString('0', 10) + IntToStr(sMemo);
  Str := Copy(Str, Length(Str) - 10 + 1, 10);

  // Escribir Tamaño Memo
  for i := 0 to 9 do begin
    buff[i] := Ord(Str[i + 1]);
  end;
  // Escribimos el tamaño
  f1.WriteBuffer(buff, 10);

  // Imagen
  Image1.Picture.Bitmap.SaveToStream(s1);

  s := s1.Size;
  Str := DupeString('0', 10) + IntToStr(s);
  Str := Copy(Str, Length(Str) - 10 + 1, 10);

  // Escribir Tamaño imagen
  for i := 0 to 9 do begin
    buff[i] := Ord(Str[i + 1]);
  end;
  // Escribimos el tamaño
  f1.WriteBuffer(buff, 10);


  // escribir el memo
  f1.WriteBuffer(buffmemo, sMemo);
  // escribir la imagen
  Image1.Picture.Bitmap.SaveToStream(f1);

  FreeAndNil(s1);
  FreeAndNil(f2);
  FreeAndNil(f1);