[Delshire]

Empezado por ecfisa

Hola Delshire, bienvenido a los foros de Club Delphi

La observación maeyanes es correcta, y dado que en el código original usas return yo emplearía el procedimiento Exit en lugar de Break.

No hice comprobaciónes, pero fijate si te funciona de este modo:

Código Delphi [-]
function Match(pData: PByte; bMask: PByte; szMask: PChar): Boolean;
begin
  Result := True;
  while (szMask^ <> #0) and Result do
  begin
    if (szMask^ = 'x') and (pData^ <> bMask^) then
    begin
      Result := False;
      Exit;
    end;
    Inc(szMask);
    Inc(pData);
    Inc(bMask);
  end;
  Result := szMask^ = #0;
end;

Saludos

No pude editar perdon por el doble post:

Cambie un poco la funcion:

Function FindPattern(dwAddress, dwLen : Cardinal; bMask : PBYTE; szMask : PCHAR) : Cardinal ; stdcall;
var
f : Cardinal;
begin
  while (f < dwLen) do
  begin
    if(Match(PBYTE(dwAddress + f), bMask, szMask)) then
    begin
    Result := Cardinal((dwAddress + f));
    Exit;
    end;

    Inc(f);

    Result := 0;
  end;
end;

Compila todo OK pero no me da los resultados que necesito. Paso a explicarlo rapidamente. Esta funcion lo que hace es mediante el tamaño de una funcion (dwLen), una mascara (que son las instrucciones byte por byte en assembler de la funcion) y otra mascara (szMask) buscan el address (donde empieza) de una funcion en toda una aplicacion.

Por ejemplo si yo creo un .exe en delphi con una funcion que se ejecuta en el main esos valores que yo dije arriba serian:

program test;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function Match(pData:PBYTE; bMask:PBYTE; szMask:PCHAR) : boolean; stdcall; external 'test.dll';
Function FindPattern(dwAddress, dwLen : Cardinal; bMask : PBYTE; szMask : PCHAR) : Cardinal ; stdcall; external 'test.dll';

function test() : string;
begin
  Result := 'Hola'
end;

var
i : Cardinal;
j : Cardinal;
k : PBYTE;
l : PCHAR;
tmp : string;
begin
    i := Cardinal(401000);
    j := Cardinal(8000);
    tmp := '\x53\x8B\xD8\x8B\xC3\xBA\x00\x00\x00\x00\xE8\x00\x00\x00\x00';
    k := PBYTE(tmp);
    l := PCHAR('xxxxxx????x????');
    WriteLn(test);
    WriteLn(FindPattern(i,j,k,l));
    ReadLn;
end.

Lo que sigifica cada cosa te lo dejo explicado en esta imagen:




Cuando imprimo el valor del FindPattern me devuelve: 4229464 en vez de 4088CC.

Supongo que debe ser o un problema al pasar los parametros o ya de la funcion FindPattern.

Muchas Gracias por la atencion.