Traduciendo código ASM a Delphi

[deliriun]

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:::

.386

.model flat,stdcall
option casemap:none
include windows.inc
include user32.inc
include kernel32.inc
includelib user32.lib
includelib kernel32.lib

Tarea1 PROTO

.data

Libreria db "DatosHWDER.dll",0
Funcion1 db "Valor1_HWDER",0
Funcion2 db "Valor2_HWDER",0

.data?

.code
Punto_de_Inicio proc hInstance:HINSTANCE, reason:DWORD, reserved1:DWORD

.IF (reason == DLL_PROCESS_ATTACH)
mov eax,TRUE

invoke CreateThread,NULL,NULL,ADDR Tarea1 ,NULL,NULL,NULL

.ELSEIF (reason == DLL_PROCESS_DETACH)
invoke ExitProcess, NULL
.ENDIF
ret
Punto_de_Inicio Endp

Tarea1 proc
LOCAL x:DWORD
LOCAL Aux1:DWORD
LOCAL Aux2:DWORD

tecla:

jz tecla

invoke GetModuleHandle, addr Libreria
invoke GetProcAddress, eax, addr Funcion1
mov Aux1,eax

invoke GetModuleHandle, addr Libreria
invoke GetProcAddress, eax, addr Funcion2
mov Aux2,eax

mov esi,Aux2
mov edi,Aux1
mov ecx,96
xor edx,edx

.REPEAT

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

.UNTILCXZ

jmp tecla

ret

Tarea1 endp


End Punto_de_Inicio


Y con mi poca experiencia en Asm lo he intentado traducir un poco en 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.

[Casimiro Notevi]

... pero cuando uso la Dll en Delphi no me resulta...
Hola, ¿qué quiere decir "no me resulta"?

[deliriun]

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

[Osorio]

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

while(true) do begin

[deliriun]

Osorio,

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

.REPEAT

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

.UNTILCXZ

[ecfisa]

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

.REPEAT

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

.UNTILCXZ



No se trata de un ciclo infinito, el registro CX entra con un valor decimal igual a 96 en la línea:

...
mov ecx, 96 ; CX = 96
...

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 :)

[escafandra]

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.