Traduciendo código ASM a Delphi
 

Hola muy buen día a todos.

Estaba con un grupo de personas haciendo un programa y hubo una equivocación en una de las Dll, del error nos dimos cuenta
después porque no era muy llamativo, y ya no teníamos el código de la Dll.

Por ende alguien hizo una Dll en ASM (Usando RadAsm) para "Reparar" de una manera sencilla y practica el error en uno de los valores...
Sin embargo por motivos personales decidió dejar el proyecto, aunque dejando sus códigos.

Y bueno el código en asm funciona bien, yo no sé prácticamente nada de asm, por ende considere traducir el código de Asm a Delphi para
tener un poco más de control.

El código en Asm es similar al siguiente:::


Y con mi poca experiencia en Asm lo he intentado traducir un poco en Delphi:::

Código Delphi [-]
 library Project5;

uses
  Vcl.Dialogs,
  Windows;

var
 Funcion1:AnsiString;
  Funcion2:AnsiString;
  Libreria:AnsiString;
  Retorno: Cardinal;

procedure Reserved1();
   var
   Aux1:procedure;
   Aux2:procedure;

begin
  Aux1:= GetProcAddress(GetModuleHandleA(PAnsiChar(Libreria)), PAnsiChar(Funcion1));
  Aux2 := GetProcAddress(GetModuleHandleA(PAnsiChar(Libreria)), PAnsiChar(Funcion2));

while(true) do begin

asm

  mov esi,Aux2
  mov edi,Aux1

   end;

asm

  mov dl, byte ptr [esi]
  mov byte ptr [edi],dl
  inc esi
  inc edi

      end;
    end;
  end;

procedure DllMain(reason: Integer);
begin
  if reason = DLL_PROCESS_ATTACH then begin

  Funcion1 := 'Valor1_HWDER';
  Funcion2 := 'Valor2_HWDER';
  Libreria :=  'DatosHWDER.dll';

CreateThread(nil,0,Pointer(@Reserved1),nil,0,Retorno);

end;
end;

begin
 DllProc := DllMain;
 DllMain(DLL_PROCESS_ATTACH);
end.

Sin embargo al momento de compilar el código en RadAsm todo bien, la Dll funciona, pero cuando uso la Dll en Delphi no me resulta...

¿A qué se debe esto, he omitido algo en la traducción que hace que no ande?

De antemano, muchas gracias.

Hola, ¿qué quiere decir "no me resulta"?

Hola Casimiro, pues cuando cargo la Dll hecha en Delphi simplemente no efectúa su función, en resumen no hace aparentemente nada

Sin profundizar en nada, por aqui se ve un ciclo infinito. Como para revisar.

Código Delphi [-]
while(true) do begin

Osorio,

Si, supuse que el ciclo infinito era esto en ASM:::

Hola deliriun.
No se trata de un ciclo infinito, el registro CX entra con un valor decimal igual a 96 en la línea:
Mientras que la sentencia UNTILCXZ decrementa automáticamente el valor de CX en cada iteración, finalizando el ciclo cuando CX es igual a 0.

Saludos :)

Una pregunta. ¿Para que quieres una dll que cambie en tiempo de ejecución valores de funciones o variables de un proceso?
Creo que si buscas ayuda deberías comentar con sinceridad tu problema, ten en cuenta que la ayuda que se te preste requiere un tiempo altruista para dedicarte. La ayuda en el foro se basa en la confianza mutua. El código que expones hace cosas que no son habituales, bueno, lo son en técnicas de hacking o craking.

Saludos.