Cita:
Empezado por escafandra
|
No tengo ni idea de programar en C jajaja.
De todas formas he encontrado algo parecido que trabaj de forma parecida a la mía pero no consigo que encuentre una cadena de mas de 1 Byte.
Código Delphi
[-] var
fs: TFileStream;
Buff: Array [0..10239] of Byte; b: Byte;
FP, MP: Integer; i: Integer;
ReadBytes: Integer;
begin
fs := TFileStream.Create(Extractfilepath(application.exename)+'prueba.dat', fmOpenReadWrite);
FP := 0;
b := Ord($FF);
while fs.Position < fs.Size do
begin
ReadBytes := fs.Read(Buff, SizeOf(Buff));
for i := 0 to ReadBytes - 1 do
begin
if (Buff[i] = ($AA)) then
begin
fs.Seek(FP + i, soFromBeginning);
fs.Write(b, 1);
end;
end;
end;
FP := FP + SizeOf(Buff);
fs.Seek(FP, soFromBeginning);
Fs.Free;
end;
Esto cambia todos los hexabytes AA por FF. Pero para una cadena como $AABBCCDD no sé cómo hacerlo =/