¿Cuantas imagenes puedo cargar en un exe?

[Ñ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.

[Ñuño Martínez]

Este me gusta más (que conste que el anterior tampoco estaba mal, siempre que Random use un algoritmo concreto). Con el uso de una String, además, puede guardarse la clave (key) en un archivo de texto (por ejemplo, usar el archivo README.TXT).

[JesusG]

El procedimiento de encriptar/desencriptar ya lo utilice, pero veo que el codigo que poneis es mas sencillo que el que use, asi que lo probare.
seoane dice que poner una marca de agua es falcil en una .bmp, y que despues dicha marca no aparezca en ejecucion, ¿podriais darme una pista de como hacerlo?.
Gracias por las respuestas.

[[seoane]]

Empezado por JesusG

seoane dice que poner una marca de agua es falcil en una .bmp, y que despues dicha marca no aparezca en ejecucion, ¿podriais darme una pista de como hacerlo?.

Para marcar la imagen dibujaremos sobre la ella una marca, utilizando el metodo XOR. Para eliminarla solo tenemos que volver a dibujar sobre la imagen la misma marca utilizando el otra vez metodo XOR, y como es bien sabido (a xor b) xor b = a

Código Delphi [-]
procedure Marcar(Bitmap: TBitmap; Texto: String);
var
  Marca: TBitmap;
  i,j: Integer;
begin
  Marca:= TBitmap.Create;
  try
    Marca.Canvas.Brush.Color:= clBlack;
    Marca.Canvas.Font.Name:= 'Arial';
    // Ajusta el tamaño de la fuente si es necesario
    Marca.Canvas.Font.Size:= 72;
    Marca.Canvas.Font.Color:= clWhite;
    Marca.Canvas.Font.Style:= [fsBold, fsItalic];
    Marca.Width:= Marca.Canvas.TextWidth(Texto);
    Marca.Height:= Marca.Canvas.TextHeight(Texto);
    Marca.Canvas.TextOut(0,0,Texto);
    i:= (Bitmap.Width - Marca.Width) div 2;
    j:= (Bitmap.Height - Marca.Height) div 2;
    Bitblt(Bitmap.Canvas.Handle,i,j,Marca.Width,Marca.Height,
      Marca.Canvas.Handle, 0, 0, SRCINVERT);
  finally
    Marca.Free;
  end;
end;

procedure MarcarArchivo(Origen, Destino: string; Texto: String);
var
  Bitmap: TBitmap;
begin
  Bitmap:= TBitmap.Create;
  with Bitmap do
  try
    LoadFromFile(Origen);
    Marcar(Bitmap,Texto);
    SaveTofile(Destino);
  finally
    Free;
  end;
end;



// Para marcar el archivo
 MarcarArchivo('d:\1.bmp','d:\2.bmp','Marca');

// Para cargar la imagen marcada en un TImage
var
  Bitmap: TBitmap;
begin
  Bitmap:= TBitmap.Create;
  with Bitmap do
  try
    LoadFromFile('d:\2.bmp');
    // El texto debe ser el mismo que se utilizo al marcarla
    Marcar(Bitmap,'Marca');
    Image1.Picture.Assign(Bitmap);
  finally
    Free;
  end;
end;

[[seoane]]

Continuando mi mensaje anterior, para que nadie caiga en la tentación de usar el photoshop para eliminar la marca de agua, vamos a complicarlo un poquito mas:

Código Delphi [-]
// Esto provoca un efecto muy bonito y dificil de reproducir con el photshop
procedure Colorear(Bitmap: TBitmap);
var
  P: PByte;
  i,j: Integer;
begin
  Bitmap.PixelFormat:= pf24bit;
  for j:= 0 to Bitmap.Height - 1 do
  begin
    P:= Bitmap.ScanLine[j];
    for i := 0 to (Bitmap.Width*3)-1 do
    begin
      if P^ > 0 then
        P^:= Byte(i * j);
      inc(P);
    end;
  end;
end;

procedure Marcar(Bitmap: TBitmap; Texto: String);
var
  Marca: TBitmap;
  i,j: Integer;
begin
  Marca:= TBitmap.Create;
  try
    Marca.Canvas.Brush.Color:= clBlack;
    Marca.Canvas.Font.Name:= 'Arial';
    // Ajusta el tamaño de la fuente si es necesario
    Marca.Canvas.Font.Size:= 72;
    Marca.Canvas.Font.Color:= clWhite;
    Marca.Canvas.Font.Style:= [fsBold, fsItalic];
    Marca.Width:= Marca.Canvas.TextWidth(Texto);
    Marca.Height:= Marca.Canvas.TextHeight(Texto);
    Marca.Canvas.TextOut(0,0,Texto);
    Colorear(Marca);  // Esto es lo nuevo
    i:= (Bitmap.Width - Marca.Width) div 2;
    j:= (Bitmap.Height - Marca.Height) div 2;
    Bitblt(Bitmap.Canvas.Handle,i,j,Marca.Width,Marca.Height,
      Marca.Canvas.Handle, 0, 0, SRCINVERT);
  finally
    Marca.Free;
  end;
end;