首页
社区
课程
招聘
[求助] 有几句 C++ 的, 能帮我转成 DELPHI 的吗?
发表于: 2007-12-5 07:41 3901

[求助] 有几句 C++ 的, 能帮我转成 DELPHI 的吗?

2007-12-5 07:41
3901
void  DoObject(long idx)
  {
    unsigned char * pPlayer = (unsigned char *)(*(long *)0x11EaC88);
    (*(long *) 0xB0FF58) = idx;
    long addr = 0x43BC10;
    _asm
    {
      mov ecx,pPlayer
      push 0
      push 0x78
      push 3
      call addr
    }
  }

procedure DoObject(idx:Integer);
var
  KongFuAddr, addr  : Pointer;
begin
  KongFuAddr:=Pointer($00446A70);
  addr:= Pointer($43BC10);

    unsigned char * pPlayer = (unsigned char *)(*(long *) $11EaC88);
    (*(long *) $B0FF58) = idx;
   
    asm
      mov ecx,pPlayer
      push 0
      push $78
      push 3
      call addr
    end

end;

谢谢!!!

[课程]FART 脱壳王!加量不加价!FART作者讲授!

收藏
免费 0
支持
分享
最新回复 (2)
雪    币: 321
活跃值: (271)
能力值: ( LV13,RANK:1050 )
在线值:
发帖
回帖
粉丝
2
呵呵,你在练习写一个外挂程序吧。我把c的代码改成汇编的。本人不熟悉delphi,不过delphi支持嵌入汇编,因此我也写了个dephi版的附上。

void DoObject( long idx )
{  
        _asm
        {
                push ecx
                push ebx
                mov ecx,0x11EAC88
                mov ecx,[ecx]
        
                mov ebx,0xB0FF58
                mov eax, idx
                    mov DWORD ptr[ebx],eax
                push  0
                push 0x78
                push 3
                mov eax,0x43BC10
                call eax

                pop ebx
                pop ecx

        }
}

delphi的如下:
procedure DoObject(idx:Integer);
var

begin
    asm
                    push ecx
                push ebx
                mov ecx,0x11EAC88
                mov ecx,[ecx]
        
                mov ebx,0xB0FF58
                mov eax, idx
                    mov DWORD ptr[ebx],eax
                push  0
                push 0x78
                push 3
                mov eax,0x43BC10
                call eax

                pop ebx
                pop ecx
    end

end;
2007-12-5 09:30
0
雪    币: 189
活跃值: (4810)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
3
谢谢你!!!!!
2007-12-5 14:51
0
游客
登录 | 注册 方可回帖
返回
//