这是 DELPHI 的代码?

Question

procedure TZForm.Button4Click(Sender : TObject); 
begin 
(* 
00589500 55 push ebp 
00589501 8BEC mov ebp, esp 
00589503 6A00 push $00 
00589505 6A00 push $00 
00589507 53 push ebx 
00589508 8BD8 mov ebx, eax 
0058950A 33C0 xor eax, eax 
0058950C 55 push ebp 
 
* Possible String Reference to: '轲扮腓[YY]脨U嬱3繳h!朮' 
| 
0058950D 6857955800 push $00589557 
 
***** TRY 
| 
00589512 64FF30 push dword ptr fs:[eax] 
00589515 648920 mov fs:[eax], esp 
00589518 8D55F8 lea edx, [ebp-$08] 
0058951B 8B83A0050000 mov eax, [ebx+$05A0] 
 
* Reference to: Controls.TControl.GetText(TControl):TCaption; 
| 
00589521 E842BCEEFF call 00475168 
00589526 8B45F8 mov eax, [ebp-$08] 
00589529 8D55FC lea edx, [ebp-$04] 
 
| 
0058952C E81B65FFFF call 0057FA4C 
00589531 8B45FC mov eax, [ebp-$04] 
 
* Reference to: Dialogs.ShowMessage(AnsiString); 
| 
00589534 E8E318EBFF call 0043AE1C 
00589539 33C0 xor eax, eax 
0058953B 5A pop edx 
0058953C 59 pop ecx 
0058953D 59 pop ecx 
0058953E 648910 mov fs:[eax], edx 
 
****** FINALLY 
| 
 
* Possible String Reference to: '[YY]脨U嬱3繳h!朮' 
| 
00589541 685E955800 push $0058955E 
00589546 8D45F8 lea eax, [ebp-$08] 
 
* Reference to: System.@LStrClr(void;void); 
| 
00589549 E886B8E7FF call 00404DD4 
0058954E 8D45FC lea eax, [ebp-$04] 
 
* Reference to: System.@LStrClr(void;void); 
| 
00589551 E87EB8E7FF call 00404DD4 
00589556 C3 ret 
 
 
* Reference to: System.@HandleFinally; 
| 
00589557 E9F0B0E7FF jmp 0040464C 
0058955C EBE8 jmp 00589546 
 
****** END 
| 
0058955E 5B pop ebx 
0058955F 59 pop ecx 
00589560 59 pop ecx 
00589561 5D pop ebp 
00589562 C3 ret 
 
*) 
end; 
 
end.

Answer 1

... 应该是delphi的.. 不过你这反汇编出来的都是 汇编代码了..里面还有很多注释..

Answer 2

楼主有DEDE等反编译出来的吧。

Answer 3

这是汇编代码不是delphi代码

Answer 4

这个是DEDE反编译出来的……LS说过了……

Answer 5

可以肯定这个不是Delphi的代码了，看代码样子有点像拿调试器运行某一段程序的时候，CPU窗口显示的信息。不过如果在Delphi函数或者过程里，可以使用ASM关键字来执行汇编语句。
例子：
將a的值赋给b：
var
   a, b: word;
begin
   a := 1;
   b := 2;
   asm
     mov ax, a
     mov b, ax
   end;   Caption := IntToStr(b);
end;

Answer 6

反编译成汇编语言了 ，看大概应该是从delphi反编译的

Answer 7

procedure TZForm.Button4Click;
begin
  _ebx_ := Self;
  try
    _edx_ := ^lvar_8;
    _eax_ := Edit2;
    lvar_8 := Edit2.GetText;
    _eax_ := lvar_8;
    _edx_ := ^lvar_4;
    sub_0057FA4C(lvar_8, lvar_4);
    _eax_ := lvar_4;
    ShowMessage(lvar_4);
  finally
    _eax_ := ^lvar_8;
    lvar_8 := '';
    _eax_ := ^lvar_4;
    lvar_4 := '';
  end;
end;

Answer 8

http://bbs.csdn.net/topics/390707213?page=1#post-396735813  看看此贴