C++ a Delphi?

[Delshire]

El problema creo que esta en la funcion del Match, me tira un error de excepcion o violacion de memoria creo y cuando abri un debugger para ver donde tiraba el crash era cuando entraba a esa funcion. No se si es la funcion que esta mal o si es como lo estoy llamando que esta mal.

Asi llamo a la funcion FindPattern que luego llama a Match dentro de ella:

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(IntToHex(FindPattern(i,j,k,l), 8));
    ReadLn;
end.

La funcion Match:

function Match(pData: PByte; bMask: PByte; szMask: PChar): Boolean; stdcall;
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;

Match en C++:

bool Match(const BYTE * pData, const BYTE * bMask, const char * szMask)
{
	for (; *szMask; ++szMask, ++pData, ++bMask)
		if (*szMask == 'x' && *pData != *bMask)
			return false;
	return (*szMask) == NULL;
}

Como se llama a la funcion en C++:

DWORD AddressAEncontrar = FindPattern(0x401000, 0x149000, (unsigned char*)"\x55\x8B\xEC\x83\xEC\x18\x68\x00\x00\x00\x00\x64\xA1\x00\x00\x00\x00\x50\x64\x89\x25\x00\x00\x00\x00\xB8\x00\x00\x00\x00\xE8\x00\x00\x00\x00\x53\x56\x57\x89\x65\xE8\xC7\x45\x00\x00\x00\x00\x00\xC7\x45\x00\x00\x00\x00\x00\xC7\x45\x00\x00\x00\x00\x00\xC7\x45\x00\x00\x00\x00\x00\x8B\x55\x08\x8D\x4D\xA0\xFF\x15\x00\x00\x00\x00", "xxxxxxx????xx????xxxx????x????x????xxxxxxxx?????xx?????xx?????xx?????xxxxxxxx????");

Gracias.

[[escafandra]]

Vamos a recentrar el tema.

Según entiendo, quieres buscar el comienzo de una función en tu app teniendo el código de la misma y usando una máscara.

Expresiones como esta: "\x55\x8B\xEC\" no te sirven, pues ni en C tienen significado de código hexadecimal. En C, un número hexadecimal viene expresado por el sufijo 0x\ que indica al compilador que lo que viene es hexadecimal. El equivalente en delphi sería $. Dicho esto, las expresiones están mal. Tampoco las puedes usar en una cadena, pues lo que espera la función es un array estilo C (un puntero apuntando al primer elemento) con el código de la función a encontrar.

Lo que sigue es un ejemplo para encontrar la función Test. Para simplificar, lo que voy a hacer es usar el código de Text para encontrarlo en la aplicación, y es un valor conocido.
Cardinal(@Fin)-Cardinal(@Test) es la máxima cantidad de código que ocupa Test.

Código Delphi [-]
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function Match(pData: PByte; bMask: PByte; szMask: PChar): Boolean;
begin
  while (szMask^ <> #0) 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;

function FindPattern(dwAddress, dwLen : Cardinal; bMask : PBYTE; szMask : PCHAR) : Cardinal;
var
i : Cardinal;
begin
  Result:= 0;
  for i := 0 to dwLen-1 do
    if(Match(PBYTE(dwAddress + i), bMask, szMask)) then
    begin
      Result := Cardinal((dwAddress + i));
      break;
    end;
end;

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

procedure Fin;
begin
end;

var
  i: Cardinal;
  dwLen: Cardinal;
  szMask: PCHAR;
  bMask: PBYTE;
  Addr: cardinal;
begin
  i := Cardinal($401000);
  dwLen := Cardinal($409000);
  bMask:= @Test;  // bMask contiene el código de la función a buscar puesto que es un puntero a la misma.
  szMask := PCHAR('xxxxxxxxxxx???xxx');
//  MaxLen:= Cardinal(@Fin)-Cardinal(@Test);  // máxima longitud de la máscara
  WriteLn(test);
  Addr:= FindPattern(i, dwLen, bMask, szMask);
  WriteLn(IntToHex(Addr,8));
  ReadLn;
end.

Saludos.

[Delshire]

Empezado por escafandra

Vamos a recentrar el tema.

Según entiendo, quieres buscar el comienzo de una función en tu app teniendo el código de la misma y usando una máscara.

Expresiones como esta: "\x55\x8B\xEC\" no te sirven, pues ni en C tienen significado de código hexadecimal. En C, un número hexadecimal viene expresado por el sufijo 0x\ que indica al compilador que lo que viene es hexadecimal. El equivalente en delphi sería $. Dicho esto, las expresiones están mal. Tampoco las puedes usar en una cadena, pues lo que espera la función es un array estilo C (un puntero apuntando al primer elemento) con el código de la función a encontrar.

Lo que sigue es un ejemplo para encontrar la función Test. Para simplificar, lo que voy a hacer es usar el código de Text para encontrarlo en la aplicación, y es un valor conocido.
Cardinal(@Fin)-Cardinal(@Test) es la máxima cantidad de código que ocupa Test.

Código Delphi [-]
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function Match(pData: PByte; bMask: PByte; szMask: PChar): Boolean;
begin
  while (szMask^ <> #0) 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;

function FindPattern(dwAddress, dwLen : Cardinal; bMask : PBYTE; szMask : PCHAR) : Cardinal;
var
i : Cardinal;
begin
  Result:= 0;
  for i := 0 to dwLen-1 do
    if(Match(PBYTE(dwAddress + i), bMask, szMask)) then
    begin
      Result := Cardinal((dwAddress + i));
      break;
    end;
end;

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

procedure Fin;
begin
end;

var
  i: Cardinal;
  dwLen: Cardinal;
  szMask: PCHAR;
  bMask: PBYTE;
  Addr: cardinal;
begin
  i := Cardinal($401000);
  dwLen := Cardinal($409000);
  bMask:= @Test;  // bMask contiene el código de la función a buscar puesto que es un puntero a la misma.
  szMask := PCHAR('xxxxxxxxxxx???xxx');
//  MaxLen:= Cardinal(@Fin)-Cardinal(@Test);  // máxima longitud de la máscara
  WriteLn(test);
  Addr:= FindPattern(i, dwLen, bMask, szMask);
  WriteLn(IntToHex(Addr,8));
  ReadLn;
end.

Saludos.

Funciono a la perfeccion. Muchisimas gracias a vos y a todos los que ayudaron hasta ahora!.

Saludos!