[200分]-请汇编大牛翻译下,不够可以在加,只要得到clientdateset连接数据库参数,比较乱.(200分)

unit loginclient;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TForm1=class(TForm)
GroupBox1: N.A.;
GroupBox2: N.A.;
Label1: N.A.;
EID1: N.A.;
EOLDPASS1: N.A.;
Label2: N.A.;
EPASS1: N.A.;
Label3: N.A.;
EREPASS1: N.A.;
Label4: N.A.;
BtnOK1: N.A.;
BtnCancel1: N.A.;
BtnClose: N.A.;
EID2: N.A.;
Label5: N.A.;
EPASS2: N.A.;
Label6: N.A.;
EREPASS2: N.A.;
Label7: N.A.;
EYZ: N.A.;
Label9: N.A.;
Label10: N.A.;
EREYZ: N.A.;
BtnOK2: N.A.;
BtnCancel2: N.A.;
ClientSocket1: N.A.;
Label12: N.A.;
LSTATUS: N.A.;
Timer1: N.A.;
EWP: N.A.;
EWP2: N.A.;
Label8: N.A.;
Label11: N.A.;
GroupBox3: N.A.;
GroupBox4: N.A.;
yzid: N.A.;
yzyzold: N.A.;
yzyz1: N.A.;
yzyz2: N.A.;
ckid: N.A.;
ckckold: N.A.;
ckck1: N.A.;
ckck2: N.A.;
Label13: N.A.;
Label14: N.A.;
Label15: N.A.;
Label16: N.A.;
Label17: N.A.;
Label18: N.A.;
Label19: N.A.;
Label20: N.A.;
Buttonyz: N.A.;
Buttonck: N.A.;
Button3: N.A.;
Button4: N.A.;
procedure BtnCloseClick(Sender : TObject);
procedure ClientSocket1Connect(Sender : TObject);
procedure ClientSocket1Error(Sender : TObject);
procedure FormCloseQuery(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure ClientSocket1Read(Sender : TObject);
procedure BtnOK1Click(Sender : TObject);
procedure Timer1Timer(Sender : TObject);
procedure BtnOK2Click(Sender : TObject);
procedure ButtonyzClick(Sender : TObject);
procedure ButtonckClick(Sender : TObject);
procedure loginclient.Initialization(Sender : TObject);
procedure loginclient.Finalization(Sender : TObject);
procedure Proc_00449400(Sender : TObject);
procedure Proc_00448708(Sender : TObject);
procedure Proc_00448F7C(Sender : TObject);
procedure Proc_0044856C(Sender : TObject);
procedure Proc_004494EC(Sender : TObject);
procedure Proc_004495D8(Sender : TObject);
procedure Proc_0044860C(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;

var
Form1: TForm1;

{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TForm1.BtnCloseClick(Sender : TObject);
begin
(*

* Reference to : TApplication._PROC_0043F458()
|
004483DC E87770FFFF call 0043F458
004483E1 C3 ret

*)
end;

procedure TForm1.ClientSocket1Connect(Sender : TObject);
begin
(*
004483E4 53 push ebx
004483E5 8BD8 mov ebx, eax

* Possible String Reference to: '服务器连接成功'
|
004483E7 BA10844400 mov edx, $00448410
004483EC 8B833C030000 mov eax, [ebx+$033C]

* Reference to: Controls.Proc_00424B18
|
004483F2 E821C7FDFF call 00424B18
004483F7 B201 mov dl, $01
004483F9 8B8340030000 mov eax, [ebx+$0340]

* Reference to : TTimer._PROC_00444674()
|
004483FF E870C2FFFF call 00444674
00448404 5B pop ebx
00448405 C3 ret

*)
end;

procedure TForm1.ClientSocket1Error(Sender : TObject);
begin
(*
00448420 55 push ebp
00448421 8BEC mov ebp, esp
00448423 53 push ebx
00448424 8BD9 mov ebx, ecx

* Possible String Reference to: '服务器连接失败'
|
00448426 BA54844400 mov edx, $00448454
0044842B 8B803C030000 mov eax, [eax+$033C]

* Reference to: Controls.Proc_00424B18
|
00448431 E8E2C6FDFF call 00424B18
00448436 8B4508 mov eax, [ebp+$08]
00448439 33D2 xor edx, edx
0044843B 8910 mov [eax], edx
0044843D 8BC3 mov eax, ebx

* Reference to: ScktComp.Proc_004460EC
|
0044843F E8A8DCFFFF call 004460EC
00448444 5B pop ebx
00448445 5D pop ebp
00448446 C20800 ret $0008

*)
end;

procedure TForm1.FormCloseQuery(Sender : TObject);
begin
(*
00448464 53 push ebx
00448465 8BD9 mov ebx, ecx
00448467 6A00 push $00
00448469 668B0D8C844400 mov cx, word ptr [$0044848C]
00448470 33D2 xor edx, edx

* Possible String Reference to: '是否要关闭本程序?'
|
00448472 B898844400 mov eax, $00448498

* Reference to: Dialogs.Proc_00444F94
|
00448477 E818CBFFFF call 00444F94
0044847C 83F806 cmp eax, +$06
0044847F 7505 jnz 00448486
00448481 C60301 mov byte ptr [ebx], $01
00448484 5B pop ebx
00448485 C3 ret

00448486 C60300 mov byte ptr [ebx], $00
00448489 5B pop ebx
0044848A C3 ret

*)
end;

procedure TForm1.FormShow(Sender : TObject);
begin
(*
004484AC 53 push ebx
004484AD 8BD8 mov ebx, eax
004484AF 33D2 xor edx, edx
004484B1 8B8334030000 mov eax, [ebx+$0334]

* Reference to : TClientSocket._PROC_00446EA4()
|
004484B7 E8E8E9FFFF call 00446EA4

* Possible String Reference to: '192.9.200.80'
|
004484BC BAF4844400 mov edx, $004484F4
004484C1 8B8334030000 mov eax, [ebx+$0334]

* Reference to : TClientSocket._PROC_00446EF4()
|
004484C7 E828EAFFFF call 00446EF4

* Possible String Reference to: '60.0.1.121'
|
004484CC BA0C854400 mov edx, $0044850C
004484D1 8B8334030000 mov eax, [ebx+$0334]

* Reference to : TClientSocket._PROC_00446EF4()
|
004484D7 E818EAFFFF call 00446EF4
004484DC B201 mov dl, $01
004484DE 8B8334030000 mov eax, [ebx+$0334]

* Reference to : TClientSocket._PROC_00446EA4()
|
004484E4 E8BBE9FFFF call 00446EA4
004484E9 5B pop ebx
004484EA C3 ret

*)
end;

procedure TForm1.ClientSocket1Read(Sender : TObject);
begin
(*
00448518 55 push ebp
00448519 8BEC mov ebp, esp
0044851B 6A00 push $00
0044851D 53 push ebx
0044851E 56 push esi
0044851F 8BF1 mov esi, ecx
00448521 8BD8 mov ebx, eax
00448523 33C0 xor eax, eax
00448525 55 push ebp
00448526 685F854400 push $0044855F

***** TRY
|
0044852B 64FF30 push dword ptr fs:[eax]
0044852E 648920 mov fs:[eax], esp
00448531 8D55FC lea edx, [ebp-$04]
00448534 8BC6 mov eax, esi

* Reference to: ScktComp.Proc_00446C34
|
00448536 E8F9E6FFFF call 00446C34

* Reference to field TForm1.OFFS_03AC
|
0044853B 8D83AC030000 lea eax, [ebx+$03AC]
00448541 8B55FC mov edx, [ebp-$04]

* Reference to: System.Proc_00403B80
|
00448544 E837B6FBFF call 00403B80
00448549 33C0 xor eax, eax
0044854B 5A pop edx
0044854C 59 pop ecx
0044854D 59 pop ecx
0044854E 648910 mov fs:[eax], edx

****** FINALLY
|
00448551 6866854400 push $00448566
00448556 8D45FC lea eax, [ebp-$04]

* Reference to: System.Proc_004038F8
|
00448559 E89AB3FBFF call 004038F8
0044855E C3 ret


* Reference to: System.Proc_00403390
|
0044855F E92CAEFBFF jmp 00403390
00448564 EBF0 jmp 00448556

****** END
|
00448566 5E pop esi
00448567 5B pop ebx
00448568 59 pop ecx
00448569 5D pop ebp
0044856A C3 ret

*)
end;

procedure TForm1.BtnOK1Click(Sender : TObject);
begin
(*
00448C60 55 push ebp
00448C61 8BEC mov ebp, esp
00448C63 B905000000 mov ecx, $00000005
00448C68 6A00 push $00
00448C6A 6A00 push $00
00448C6C 49 dec ecx
00448C6D 75F9 jnz 00448C68
00448C6F 51 push ecx
00448C70 53 push ebx
00448C71 8BD8 mov ebx, eax
00448C73 33C0 xor eax, eax
00448C75 55 push ebp
00448C76 68E08D4400 push $00448DE0

***** TRY
|
00448C7B 64FF30 push dword ptr fs:[eax]
00448C7E 648920 mov fs:[eax], esp
00448C81 8D55EC lea edx, [ebp-$14]
00448C84 8B83DC020000 mov eax, [ebx+$02DC]

* Reference to: Controls.Proc_00424AE8
|
00448C8A E859BEFDFF call 00424AE8
00448C8F 8B45EC mov eax, [ebp-$14]
00448C92 8D55F0 lea edx, [ebp-$10]

* Reference to: Unit_00406D64.Proc_00407B20
|
00448C95 E886EEFBFF call 00407B20
00448C9A 837DF000 cmp dword ptr [ebp-$10], +$00
00448C9E 751D jnz 00448CBD

* Possible String Reference to: '帐号ID不能为空'
|
00448CA0 B8F48D4400 mov eax, $00448DF4

* Reference to : TMessageForm._PROC_0044508C()
|
00448CA5 E8E2C3FFFF call 0044508C
00448CAA 8B83DC020000 mov eax, [ebx+$02DC]
00448CB0 8B10 mov edx, [eax]
00448CB2 FF92B0000000 call dword ptr [edx+$00B0]
00448CB8 E9DB000000 jmp 00448D98
00448CBD 8D55E4 lea edx, [ebp-$1C]
00448CC0 8B83E0020000 mov eax, [ebx+$02E0]

* Reference to: Controls.Proc_00424AE8
|
00448CC6 E81DBEFDFF call 00424AE8
00448CCB 8B45E4 mov eax, [ebp-$1C]
00448CCE 8D55E8 lea edx, [ebp-$18]

* Reference to: Unit_00406D64.Proc_00407B20
|
00448CD1 E84AEEFBFF call 00407B20
00448CD6 837DE800 cmp dword ptr [ebp-$18], +$00
00448CDA 751D jnz 00448CF9

* Possible String Reference to: '口令不能为空'
|
00448CDC B80C8E4400 mov eax, $00448E0C

* Reference to : TMessageForm._PROC_0044508C()
|
00448CE1 E8A6C3FFFF call 0044508C
00448CE6 8B83E0020000 mov eax, [ebx+$02E0]
00448CEC 8B10 mov edx, [eax]
00448CEE FF92B0000000 call dword ptr [edx+$00B0]
00448CF4 E99F000000 jmp 00448D98
00448CF9 8D55E0 lea edx, [ebp-$20]
00448CFC 8B83E8020000 mov eax, [ebx+$02E8]

* Reference to: Controls.Proc_00424AE8
|
00448D02 E8E1BDFDFF call 00424AE8
00448D07 8B45E0 mov eax, [ebp-$20]
00448D0A 50 push eax
00448D0B 8D55DC lea edx, [ebp-$24]
00448D0E 8B83F0020000 mov eax, [ebx+$02F0]

* Reference to: Controls.Proc_00424AE8
|
00448D14 E8CFBDFDFF call 00424AE8
00448D19 8B55DC mov edx, [ebp-$24]
00448D1C 58 pop eax

* Reference to: System.Proc_00403C88
|
00448D1D E866AFFBFF call 00403C88
00448D22 755C jnz 00448D80
00448D24 8D55D4 lea edx, [ebp-$2C]
00448D27 8B83E8020000 mov eax, [ebx+$02E8]

* Reference to: Controls.Proc_00424AE8
|
00448D2D E8B6BDFDFF call 00424AE8
00448D32 8B45D4 mov eax, [ebp-$2C]
00448D35 8D55D8 lea edx, [ebp-$28]

* Reference to: Unit_00406D64.Proc_00407B20
|
00448D38 E8E3EDFBFF call 00407B20
00448D3D 837DD800 cmp dword ptr [ebp-$28], +$00
00448D41 743D jz 00448D80
00448D43 8D55FC lea edx, [ebp-$04]
00448D46 8B83DC020000 mov eax, [ebx+$02DC]

* Reference to: Controls.Proc_00424AE8
|
00448D4C E897BDFDFF call 00424AE8
00448D51 8D55F8 lea edx, [ebp-$08]
00448D54 8B83E0020000 mov eax, [ebx+$02E0]

* Reference to: Controls.Proc_00424AE8
|
00448D5A E889BDFDFF call 00424AE8
00448D5F 8D55F4 lea edx, [ebp-$0C]
00448D62 8B83E8020000 mov eax, [ebx+$02E8]

* Reference to: Controls.Proc_00424AE8
|
00448D68 E87BBDFDFF call 00424AE8
00448D6D 8B45F4 mov eax, [ebp-$0C]
00448D70 50 push eax
00448D71 8B4DF8 mov ecx, [ebp-$08]
00448D74 8B55FC mov edx, [ebp-$04]
00448D77 8BC3 mov eax, ebx

* Reference to : TForm1.Proc_00449400()
|
00448D79 E882060000 call 00449400
00448D7E EB18 jmp 00448D98

* Possible String Reference to: '新口令的两次输入不一致，请重新输入.'
|
00448D80 B8248E4400 mov eax, $00448E24

* Reference to : TMessageForm._PROC_0044508C()
|
00448D85 E802C3FFFF call 0044508C
00448D8A 8B83E8020000 mov eax, [ebx+$02E8]
00448D90 8B10 mov edx, [eax]
00448D92 FF92B0000000 call dword ptr [edx+$00B0]
00448D98 33C0 xor eax, eax
00448D9A 5A pop edx
00448D9B 59 pop ecx
00448D9C 59 pop ecx
00448D9D 648910 mov fs:[eax], edx

****** FINALLY
|
00448DA0 68E78D4400 push $00448DE7
00448DA5 8D45D4 lea eax, [ebp-$2C]

* Reference to: System.Proc_004038F8
|
00448DA8 E84BABFBFF call 004038F8
00448DAD 8D45D8 lea eax, [ebp-$28]

* Reference to: System.Proc_004038F8
|
00448DB0 E843ABFBFF call 004038F8
00448DB5 8D45DC lea eax, [ebp-$24]
00448DB8 BA03000000 mov edx, $00000003

* Reference to: System.Proc_0040391C
|
00448DBD E85AABFBFF call 0040391C
00448DC2 8D45E8 lea eax, [ebp-$18]

* Reference to: System.Proc_004038F8
|
00448DC5 E82EABFBFF call 004038F8
00448DCA 8D45EC lea eax, [ebp-$14]

* Reference to: System.Proc_004038F8
|
00448DCD E826ABFBFF call 004038F8
00448DD2 8D45F0 lea eax, [ebp-$10]
00448DD5 BA04000000 mov edx, $00000004

* Reference to: System.Proc_0040391C
|
00448DDA E83DABFBFF call 0040391C
00448DDF C3 ret


* Reference to: System.Proc_00403390
|
00448DE0 E9ABA5FBFF jmp 00403390
00448DE5 EBBE jmp 00448DA5

****** END
|
00448DE7 5B pop ebx
00448DE8 8BE5 mov esp, ebp
00448DEA 5D pop ebp
00448DEB C3 ret

*)
end;

procedure TForm1.Timer1Timer(Sender : TObject);
begin
(*
00448E48 55 push ebp
00448E49 8BEC mov ebp, esp
00448E4B 6A00 push $00
00448E4D 6A00 push $00
00448E4F 53 push ebx
00448E50 8BD8 mov ebx, eax
00448E52 33C0 xor eax, eax
00448E54 55 push ebp

* Possible String Reference to: '??

常用的汇编语句解释下,这是用DEDE反汇编的,文件可能不够全.

呵呵~　大牛找看雪 风飘雪 笨冬瓜 刘健英 我跟风飘雪老师学东西 不过 不好意思老是去问他

'60.0.1.121'其他参数端口什么的

顶上去

怎么没人回答啊，帮顶者有分，总不能把分存死帐．

自己已经解决，怎么没人来领分啊？？？？？

下面顶的有分，冰力88分

不要浪费时间了

呵呵，机器码也拿来提问，真金子可能都没有人愿意分析这些代码

结贴，DFW

多人接受答案了。