Convertir código "asm" a código Delphi

[Stringxpx]

SOLO YO QUIERO PASAR ESTE CODIGO DE ASM HACIA DELPHI

Código PHP:

.386  
.model flat,stdcall  
option casemap:none  

      include windows.inc 
      include masm32.inc 
      include gdi32.inc 
      include user32.inc 
      include kernel32.inc 
      include Comctl32.inc 
      include comdlg32.inc 
      include shell32.inc 
      include oleaut32.inc 
      include dialogs.inc 
      includelib masm32.lib 
      includelib gdi32.lib 
      includelib user32.lib 
      includelib kernel32.lib 
      includelib Comctl32.lib 
      includelib comdlg32.lib 
      includelib shell32.lib 
      includelib oleaut32.lib 



Funcion  PROTO  
Thread  PROTO 

.data 

Entities db    "entitiesmp.dll",0  
Engine   db "engine.dll",0 

FieldInfo    db "?GetFieldInfo@CPlayer@@QBEPAVFieldInfo@@XZ",0   
FDX db "?GetPlayerEntityByIndex@CPlayer@@QAEPAVCEntity@@E@Z",0  
LocalPlayer    db "?GetPlayer@FieldInfo@@QAEPAVCEntity@@E@Z",0  
FlyFire db "?FlyFire@CEnemyFly@@QAEHABVCEntityEvent@@@Z",0    

              
              
              
.code      
.data? 
ThrdID dd ? 
instance dd ? 

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

.if reason==DLL_PROCESS_ATTACH 
invoke MessageBox,0,addr MsgTexto,addr MsgTitulo,MB_OK+MB_ICONWARNING 

invoke CreateThread,NULL,NULL,ADDR Thread ,NULL,NULL,NULL     

invoke CloseHandle,eax 

.elseif reason==DLL_PROCESS_DETACH 

.elseif reason==DLL_THREAD_ATTACH 


.elseif reason== DLL_THREAD_DETACH 

.endif 

mov eax,TRUE 
ret 
Punto_de_Inicio Endp  
Thread proc 
tecla: 
invoke Sleep, 15 

invoke GetAsyncKeyState, VK_F1 
test eax, eax 
jz tecla 
invoke Funcion ;Fear 

jmp tecla 
ret 

Thread endp 
Funcion proc 
LOCAL listo:DWORD 
LOCAL pot:DWORD 
LOCAL Revenge:DWORD 
LOCAL jojo:DWORD 
LOCAL Estructura:DWORD 

   invoke GetModuleHandle, addr Entities 
    invoke GetProcAddress, eax, addr FDX 
    mov jojo,ebx 
    call eax 
    mov Revenge,eax 
    mov Estructura,ebx 

    invoke GetModuleHandle, addr Entities 
    invoke GetProcAddress, eax, addr FieldInfo 
    call eax 
    mov jojo,ebx 
    mov listo,eax 
     

    invoke GetModuleHandle, addr Engine 
    invoke GetProcAddress, eax, addr LocalPlayer 
    mov jojo,ebx 
    mov ecx, listo 
    call eax 
    mov listo,eax 
    mov Estructura,ebx 

    invoke GetModuleHandle, addr Entities 
    invoke GetProcAddress, eax, addr FlyFire 
    mov jojo,ebx 
    mov pot,eax 
     
    mov ebx, Estructura 
    mov ebx, jojo 
    mov ecx, listo 
    mov edi, listo 
    mov esi, jojo 
    mov eax, pot 
    call eax 
     
    ret 
     

Funcion endp 
End Punto_de_Inicio 


[Casimiro Noteví]

Veo que no has leido nuestra guía de estilo

[mamcx]

Si como sospecho estas tratando hackear un exe, no vas a avanzar mucho si no entiendes assembler

[Stringxpx]

Si lose soy novato, y no es .EXE
ES un juego "Rakion.bin" Te agradeceria si me recomendarias paginas en donde mejorar mi conocimiento en Delphi
Solo quiero que me transpasen el codigo nada mas, gracias !

[Casimiro Noteví]

Empezado por Stringxpx

Te agradeceria si me recomendarias paginas en donde mejorar mi conocimiento en Delphi

www.clubdelphi.com

Empezado por Stringxpx

Solo quiero que me transpasen el codigo nada mas, gracias !

Y yo que me digan los números del próximo sorteo de lotería, nada más

[mamcx]

Empezado por Stringxpx

Solo quiero que me transpasen el codigo nada mas, gracias !

Eso es trabajo que es tu responsabilidad. Es muy dificil ayudarte porque no has hecho una pregunta concreta. Lee la guia de estilo.

[[Delphius]]

Traducción: "Sólo quiero que me hagan este hack para el juego Rakion"

Ya ni disimulan... extraño a los pseudo hackers/lamers de antes. Al menos lo hacían aparentar que estaban estudiando como proteger sus propios sistemas.
Los de ahora ni eso. No saben poner un punto y coma y pretender hacer inyección de dll.

¿Cuanto más hace falta para cerrar el hilo?

[[Al González]]

No lo cerremos. ¡Mejor hagamos fiesta!

Cuando tenía unos 20 años, "jaquié" Prince of Persia sustituyendo bytes a lo bruto con un editor hexadecimal. Sin saber cómo conseguí que el príncipe atravesara las rejas sin necesidad de abrirlas.

En aquel entonces, mi conocimiento de ensamblador se limitaba a 2 instrucciones (ahora conozco unas ocho).