ocultar graficos

[ecfisa]

Hola gabyzava.

Si no estás buscando un cifrador de alto vuelo quizá esto te pueda servir:

Código Delphi [-]
procedure CifrarArchivo(Archivo: string; Key: Word);
var
  MSOrigen,MSDestino: TMemoryStream;
  i: Integer;
  x: byte;
begin
  MSOrigen := TMemoryStream.Create;
  MSDestino := TMemoryStream.Create;
  try
    MSOrigen.LoadFromFile(Archivo) ;
    MSOrigen.Position := 0;
    for i:= 0 to MSOrigen.Size - 1 do
    begin
      MSOrigen.Read(x, 1) ;
      x:= (x xor not (ord(Key shr i))) ;
      MSDestino.Write(x, 1) ;
    end;
    MSDestino.SaveToFile(Archivo) ;
  finally
    MSOrigen.Free;
    MSDestino.Free;
  end;
end;

Ejemplo de uso:

Código Delphi [-]
  CifrarArchivo('C:\IMAGEN.JPG', 217);

Un saludo.