¿Cuantas imagenes puedo cargar en un exe?

[JesusG]

Me va bien el codigo para el efecto fade, trabajo con imagenes de 16 bit.
Lo de dejar las imagenes en una carpeta fuera del ejecutable siempre lo puedo hacer pero no quisiera dar demasiadas facilidades para que alguien se aproveche de ellas, me esta llevando mucho trabajo el diseñarlas, incluso cambiando su extendion por un .dat, por ejemplo, para intentar ocultarlas, me parece un metodo muy debil de proteccion.
De todas formas se me ocurre lo siguiente. ¿Se podria añadir una especie de marca de agua en las imagenes almacenadas en una carpeta y que desapareciera al cargarse en tiempo de ejecucion?, seria un magnifico metodo de preservar la "copia".
Gracias

[pcicom]

Si lo que no quieres es dar facilidades de copia de tus imagenes protegelas grabandolas encriptadas y al ser visualisadas en tu applicacion desencriptalas.. y listo... ya en tu programa estaria el codigo de cnriptacin/desencriptacion...

por ahi vi un truco de encriptacion en TRUCOMANIA...

[dec]

Hola,

por ahi vi un truco de encriptacion en TRUCOMANIA...

Bueno. No está nada mal. Empero, no hay que ir más lejos que al apartado de Trucos del ClubDelphi. Y el propio buscador de los Foros ofrecerá información a buen seguro sobre cifrar y descifrar archivos. Se ha tratado en más de una ocasión el tema.

[Ñuño Martínez]

También puedes guardar las imágenes en un ZIP encriptado. Creo que había algún componente que era capaz de obtener datos de archivos ZIP, RAR y algún formato más.

[[seoane]]

Veo que se me adelantaron, pero por lo menos dejame aportar un poco de código. Aquí te dejo una encriptacion sencilla, dado que aunque uses una encriptacion fuerte la clave tendrá que guardarse dentro de tu ejecutable, no veo la necesidad de complicarse la vida, solo se trata de ponérselo un poco mas difícil.

Código Delphi [-]
procedure Cifrar(Buffer: PByte; Key: Longint; Count: Cardinal);
begin
  RandSeed:= Key;
  while Count > 0 do
  begin
    Buffer^:= Buffer^ XOR Byte(Random($FF));
    inc(Buffer);
    dec(Count);
  end;
end;

// Para cifrar el archivo
begin
  with TMemoryStream.Create do
  try
    LoadFromFile('d:\1.jpg');
    Cifrar(Memory,1978,Size);
    SaveToFile('d:\1.dat');
  finally
    Free;
  end;
end;

// Para usarlo una vez cifrado
var
  Stream: TMemoryStream;
  Jpg: TJPEGImage;
begin
  Stream:= TMemoryStream.Create;
  Jpg:= TJPEGImage.Create;
  try
    Stream.LoadFromFile('d:\1.dat');
    Cifrar(Stream.Memory,1978,Stream.Size);
    Jpg.LoadFromStream(Stream);
    // Aqui ya tenemos la imagen cargada, podemos mostrarla
    // en un TImage, por ejemplo
    Image1.Picture.Assign(Jpg);
  finally
    Jpg.Free;
    Stream.Free;
  end;
end;

En cuanto al código del Fade que te paso Bicho, solo añadir que la imagen tienen que ser un Bmp para que funcione, si es un jpg tendrás que convertirla primero.

Y por ultimo, la marca de agua seria sencilla si las imágenes se guardaran en formato bmp, pero siendo jpg la cosa se complica.

[Ñuño Martínez]

Una anotación respecto al código de seoane: usar la función Random es peligroso. La razón es que existen múltiples algoritmos para generar números (pseudo)aleatorios y ya se han dado casos de que se ha re-escrito las librerías de algún compilador y eso dió problemas en los algoritmos de encriptación<->desencriptación. Si es posible busca algún algoritmo que genere números aleatorios e implementalo tú mismo.

[[seoane]]

Empezado por Ñuño Martínez

Una anotación respecto al código de seoane: usar la función Random es peligroso. La razón es que existen múltiples algoritmos para generar números (pseudo)aleatorios y ya se han dado casos de que se ha re-escrito las librerías de algún compilador y eso dió problemas en los algoritmos de encriptación<->desencriptación. Si es posible busca algún algoritmo que genere números aleatorios e implementalo tú mismo.

¿que te parece esta otra?, ya no uso el random. Ahora la clave es un string.

Código Delphi [-]
procedure Cifrar(Buffer: PByte; Key: String; Count: Cardinal);
var
  i: integer;
begin
  if Length(Key)=0 then
    Exit;
  i:= 1;
  while Count > 0 do
  begin
    Buffer^:= Buffer^ XOR Byte(Key[i]);
    inc(Buffer);
    dec(Count);
    i:= (i mod Length(Key)) + 1;
  end;
end;

Ya se que son algoritmos muy simples, pero ya que la clave se va a guardar en el ejecutable, no hay necesidad de usar algoritmos mas complejos.