首页
社区
课程
招聘
[旧帖] [求助]如何把这段汇编用DELPHI调用?? 0.00雪花
发表于: 2008-3-24 12:25 2956

[旧帖] [求助]如何把这段汇编用DELPHI调用?? 0.00雪花

2008-3-24 12:25
2956
00401340  /$  55            push    ebp
00401341  |.  8B6C24 0C     mov     ebp, [esp+C]                     ;  将用户名地址放入EBP,也就是EDX的地址
00401345  |.  56            push    esi
00401346  |.  57            push    edi
00401347  |.  8B7C24 18     mov     edi, [esp+18]
0040134B  |.  B9 03000000   mov     ecx, 3                           ;  ECX置3
00401350  |.  33F6          xor     esi, esi                         ;  ESI清零
00401352  |.  33C0          xor     eax, eax                         ;  EAX清零
00401354  |.  3BF9          cmp     edi, ecx
00401356  |.  7E 21         jle     short 00401379
00401358  |.  53            push    ebx
00401359  |>  83F8 07       /cmp     eax, 7                          ;  比较EAX是否小于7,循环
0040135C  |.  7E 02         |jle     short 00401360
0040135E  |.  33C0          |xor     eax, eax                        ;  EAX大于7将EAX清零
00401360  |>  33D2          |xor     edx, edx                        ;  EAX于7将用EDX清零
00401362  |.  33DB          |xor     ebx, ebx                        ;  EBX清零
00401364  |.  8A1429        |mov     dl, [ecx+ebp]
00401367  |.  8A98 30504000 |mov     bl, [eax+405030]
0040136D  |.  0FAFD3        |imul    edx, ebx
00401370  |.  03F2          |add     esi, edx
00401372  |.  41            |inc     ecx
00401373  |.  40            |inc     eax
00401374  |.  3BCF          |cmp     ecx, edi
00401376  |.^ 7C E1         \jl      short 00401359
00401378  |.  5B            pop     ebx
00401379  |>  56            push    esi                              ; /<%ld>
0040137A  |.  68 78504000   push    00405078                         ; |Format = "%ld"
0040137F  |.  55            push    ebp                              ; |s
00401380  |.  FF15 9C404000 call    [<&USER32.wsprintfA>]            ; \wsprintfA
00401386  |.  8B4424 1C     mov     eax, [esp+1C]
0040138A  |.  83C4 0C       add     esp, 0C
0040138D  |.  55            push    ebp                              ; /String2
0040138E  |.  50            push    eax                              ; |String1
0040138F  |.  FF15 04404000 call    [<&KERNEL32.lstrcmpA>]           ; \lstrcmpA
00401395  |.  F7D8          neg     eax
00401397  |.  1BC0          sbb     eax, eax
00401399  |.  5F            pop     edi
0040139A  |.  5E            pop     esi
0040139B  |.  40            inc     eax
0040139C  |.  5D            pop     ebp
0040139D  \.  C3            retn

[招生]科锐逆向工程师培训(2024年11月15日实地,远程教学同时开班, 第51期)

收藏
免费 0
支持
分享
最新回复 (1)
雪    币: 208
活跃值: (40)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
2
先搞清楚有多少个[esp+xx]
2008-3-24 13:40
0
游客
登录 | 注册 方可回帖
返回
//