Buscar y reemplazar Bytes.

[[escafandra]]

Empezado por broly7

No tengo ni idea de programar en C jajaja.

procedure Replace(Buffer, Val, newVal: PBYTE; SizeBuffer, SizeVal: cardinal);
var
  n, i: cardinal;
begin
   for n:= 0 to SizeBuffer-1 do
   begin
      if PBYTE((cardinal(Buffer) + n))^ = Val^ then
      begin
         for i:= 1 to SizeVal-1 do
           if PBYTE(cardinal(Buffer)+n+i)^ <> PBYTE(cardinal(Val)+i)^ then  break;
         if i=sizeVal then
           CopyMemory(PBYTE(cardinal(Buffer)+n), newVal, SizeVal);
      end;
   end;
end;

Saludos.