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.