wavecb
发表于 2005-1-20 12:55:12
我搞了，n天都没有看透，，高手分析下unit Login;interfaceusesWindows, Messages, SysUtils, Classes, Graphics,Controls, Forms, Dialogs, StdCtrlstypeTFrmLogin=class(TForm) Image1: TImage; Label1: TLabel; Label2: TLabel; Label3: TLabel; BitBtn1: TBitBtn; EdtAddol: TEdit; Edtpsd: TEdit; BitBtn2: TBitBtn; BitBtn4: TBitBtn; BitBtn5: TBitBtn; LbLogin: TLabel; Label4: TLabel; Cb_SelectService: TComboBox; Bevel1: TBevel; BitBtn3: TBitBtn; procedure FormClose(Sender : TObject); procedure Label3Click(Sender : TObject); procedure BitBtn2Click(Sender : TObject); procedure BitBtn4Click(Sender : TObject); procedure BitBtn5Click(Sender : TObject); procedure FormCreate(Sender : TObject); procedure BitBtn1Click(Sender : TObject); procedure FormKeyDown(Sender : TObject); procedure Cb_SelectServiceChange(Sender : TObject); procedure BitBtn3Click(Sender : TObject); procedure _PROC_006DD0E9(Sender : TObject); procedure _PROC_006DD189(Sender : TObject); procedure _PROC_006DD2F9(Sender : TObject); procedure _PROC_006DD5EC(Sender : TObject); procedure _PROC_006DD61C(Sender : TObject);private { Private declarations }public { Public declarations }end ;varFrmLogin: TFrmLogin;{This file is generated by DeDe Ver 3.50.02 Copyright ?1999-2002 DaFixer}implementation{$R *.DFM}procedure TFrmLogin.FormClose(Sender : TObject);begin(** Reference to TFrmMain instance|006DCF70 A1B8EF7200 mov eax, dword ptr [$0072EFB8]006DCF75 8B00 mov eax, * Reference to field TFrmMain.OFFS_04C0 : Byte|006DCF77 80B8C004000000 cmp byte ptr , $00006DCF7E 750C jnz 006DCF8C* Reference to TApplication instance|006DCF80 A168F17200 mov eax, dword ptr [$0072F168]006DCF85 8B00 mov eax, * Reference to : TApplication._PROC_00653108()|006DCF87 E87C61F7FF call 00653108006DCF8C C3 ret*)end;procedure TFrmLogin.Label3Click(Sender : TObject);begin(** Possible String Reference to: 'www.addol.com'|006DCF90 68B0CF6D00 push $006DCFB0006DCF95 68C0CF6D00 push $006DCFC0* Possible String Reference to: 'IEXPLORE'|006DCF9A B9C4CF6D00 mov ecx, $006DCFC4* Reference to TFrmMain instance|006DCF9F A1B8EF7200 mov eax, dword ptr [$0072EFB8]006DCFA4 8B00 mov eax, 006DCFA6 33D2 xor edx, edx* Reference to : TFrmMain.Proc_007242FC()|006DCFA8 E84F730400 call 007242FC006DCFAD C3 ret*)end;procedure TFrmLogin.BitBtn2Click(Sender : TObject);begin(** Reference to : TApplication._PROC_0064F970()|006DCFD0 E89B29F7FF call 0064F970006DCFD5 C3 ret*)end;procedure TFrmLogin.BitBtn4Click(Sender : TObject);begin(*006DCFD8 55 push ebp006DCFD9 8BEC mov ebp, esp006DCFDB 33C9 xor ecx, ecx006DCFDD 51 push ecx006DCFDE 51 push ecx006DCFDF 51 push ecx006DCFE0 51 push ecx006DCFE1 53 push ebx006DCFE2 56 push esi006DCFE3 57 push edi006DCFE4 8BD8 mov ebx, eax* Reference to TFrmMain instance|006DCFE6 8B35B8EF7200 mov esi, [$0072EFB8]006DCFEC 33C0 xor eax, eax006DCFEE 55 push ebp* Possible String Reference to: '?p?胴_^[?]?|006DCFEF 68D0D06D00 push $006DD0D0***** TRY|006DCFF4 64FF30 push dword ptr fs:006DCFF7 648920 mov fs:, esp006DCFFA 33C0 xor eax, eax006DCFFC 55 push ebp006DCFFD 6898D06D00 push $006DD098***** TRY|006DD002 64FF30 push dword ptr fs:006DD005 648920 mov fs:, esp* Possible String Reference to: 'User'|006DD008 68E8D06D00 push $006DD0E8006DD00D 8D45FC lea eax, 006DD010 50 push eax006DD011 8D55F8 lea edx, * Reference to control TFrmLogin.EdtAddol : TEdit|006DD014 8B8304030000 mov eax, * Reference to: Controls.TControl.GetText(TControl):TCaption;|006DD01A E8A1CBF7FF call 00659BC0006DD01F 8B55F8 mov edx, 006DD022 8B06 mov eax, 006DD024 66B90C00 mov cx, $000C* Reference to : TFrmMain.Proc_00721CD4()|006DD028 E8A74C0400 call 00721CD4006DD02D 8B45FC mov eax, 006DD030 50 push eax006DD031 8B06 mov eax, 006DD033 8B90CC040000 mov edx, 006DD039 8B06 mov eax, * Possible String Reference to: 'Login'|006DD03B B9F8D06D00 mov ecx, $006DD0F8* Reference to : TFrmMain.Proc_00724050()|006DD040 E80B700400 call 00724050* Possible String Reference to: 'PassWord'|006DD045 6808D16D00 push $006DD108006DD04A 8D45F4 lea eax, 006DD04D 50 push eax006DD04E 8D55F0 lea edx, * Reference to control TFrmLogin.Edtpsd : TEdit|006DD051 8B8308030000 mov eax, * Reference to: Controls.TControl.GetText(TControl):TCaption;|006DD057 E864CBF7FF call 00659BC0006DD05C 8B55F0 mov edx, 006DD05F 8B06 mov eax, 006DD061 66B90C00 mov cx, $000C* Reference to : TFrmMain.Proc_00721CD4()|006DD065 E86A4C0400 call 00721CD4006DD06A 8B45F4 mov eax, 006DD06D 50 push eax006DD06E 8B06 mov eax, 006DD070 8B90CC040000 mov edx, 006DD076 8B06 mov eax, * Possible String Reference to: 'Login'|006DD078 B9F8D06D00 mov ecx, $006DD0F8* Reference to : TFrmMain.Proc_00724050()|006DD07D E8CE6F0400 call 00724050* Possible String Reference to: '保存成功！！！'|006DD082 BA14D16D00 mov edx, $006DD114006DD087 8B06 mov eax, * Reference to : TFrmMain.Proc_00723000()|006DD089 E8725F0400 call 00723000006DD08E 33C0 xor eax, eax006DD090 5A pop edx006DD091 59 pop ecx006DD092 59 pop ecx006DD093 648910 mov fs:, edx006DD096 EB0A jmp 006DD0A2* Reference to: System.@HandleAnyException;|006DD098 E9BF6DF2FF jmp 00603E5C* Reference to: System.@DoneExcept;|006DD09D E8E671F2FF call 00604288****** END|006DD0A2 33C0 xor eax, eax006DD0A4 5A pop edx006DD0A5 59 pop ecx006DD0A6 59 pop ecx006DD0A7 648910 mov fs:, edx****** FINALLY|* Possible String Reference to: '_^[?]?|006DD0AA 68D7D06D00 push $006DD0D7006DD0AF 8D45F0 lea eax, * Reference to: System.@LStrClr(void;void);|006DD0B2 E8B577F2FF call 0060486C006DD0B7 8D45F4 lea eax, * Reference to: System.@LStrClr(void;void);|006DD0BA E8AD77F2FF call 0060486C006DD0BF 8D45F8 lea eax, * Reference to: System.@LStrClr(void;void);|006DD0C2 E8A577F2FF call 0060486C006DD0C7 8D45FC lea eax, * Reference to: System.@LStrClr(void;void);|006DD0CA E89D77F2FF call 0060486C006DD0CF C3 ret* Reference to: System.@HandleFinally;|006DD0D0 E93B70F2FF jmp 00604110006DD0D5 EBD8 jmp 006DD0AF****** END|006DD0D7 5F pop edi006DD0D8 5E pop esi006DD0D9 5B pop ebx006DD0DA 8BE5 mov esp, ebp006DD0DC 5D pop ebp006DD0DD C3 ret*)end;procedure TFrmLogin.BitBtn5Click(Sender : TObject);begin(** Possible String Reference to: 'User'|006DD124 6888D16D00 push $006DD188006DD129 6A00 push $00* Reference to TFrmMain instance|006DD12B A1B8EF7200 mov eax, dword ptr [$0072EFB8]006DD130 8B00 mov eax, * Reference to field TFrmMain.OFFS_04CC : String|006DD132 8B90CC040000 mov edx, * Reference to TFrmMain instance|006DD138 A1B8EF7200 mov eax, dword ptr [$0072EFB8]006DD13D 8B00 mov eax, * Possible String Reference to: 'Login'|006DD13F B998D16D00 mov ecx, $006DD198* Reference to : TFrmMain.Proc_00724050()|006DD144 E8076F0400 call 00724050* Possible String Reference to: 'PassWord'|006DD149 68A8D16D00 push $006DD1A8006DD14E 6A00 push $00* Reference to TFrmMain instance|006DD150 A1B8EF7200 mov eax, dword ptr [$0072EFB8]006DD155 8B00 mov eax, * Reference to field TFrmMain.OFFS_04CC : String|006DD157 8B90CC040000 mov edx, * Reference to TFrmMain instance|006DD15D A1B8EF7200 mov eax, dword ptr [$0072EFB8]006DD162 8B00 mov eax, * Possible String Reference to: 'Login'|006DD164 B998D16D00 mov ecx, $006DD198* Reference to : TFrmMain.Proc_00724050()|006DD169 E8E26E0400 call 00724050* Possible String Reference to: '删除成功！！！'|006DD16E BAB4D16D00 mov edx, $006DD1B4* Reference to TFrmMain instance|006DD173 A1B8EF7200 mov eax, dword ptr [$0072EFB8]006DD178 8B00 mov eax, * Reference to : TFrmMain.Proc_00723000()|006DD17A E8815E0400 call 00723000006DD17F C3 ret*)end;procedure TFrmLogin.FormCreate(Sender : TObject);begin(*006DD1C4 55 push ebp006DD1C5 8BEC mov ebp, esp006DD1C7 33C9 xor ecx, ecx006DD1C9 51 push ecx006DD1CA 51 push ecx006DD1CB 51 push ecx006DD1CC 51 push ecx006DD1CD 53 push ebx006DD1CE 56 push esi006DD1CF 8BD8 mov ebx, eax* Reference to TFrmMain instance|006DD1D1 8B35B8EF7200 mov esi, [$0072EFB8]006DD1D7 33C0 xor eax, eax006DD1D9 55 push ebp006DD1DA 68E3D26D00 push $006DD2E3***** TRY|006DD1DF 64FF30 push dword ptr fs:006DD1E2 648920 mov fs:, esp006DD1E5 8D45FC lea eax, 006DD1E8 50 push eax* Possible String Reference to: 'User'|006DD1E9 68F8D26D00 push $006DD2F8006DD1EE 8D45F8 lea eax, 006DD1F1 50 push eax006DD1F2 8B06 mov eax, 006DD1F4 8B90CC040000 mov edx, 006DD1FA 8B06 mov eax, * Possible String Reference to: 'Login'|006DD1FC B908D36D00 mov ecx, $006DD308* Reference to : TFrmMain.Proc_00724110()|006DD201 E80A6F0400 call 00724110006DD206 8B55F8 mov edx, 006DD209 8B06 mov eax, 006DD20B 66B90C00 mov cx, $000C* Reference to : TFrmMain.Proc_00721D20()|006DD20F E80C4B0400 call 00721D20006DD214 8B55FC mov edx, * Reference to control TFrmLogin.EdtAddol : TEdit|006DD217 8B8304030000 mov eax, * Reference to: Controls.TControl.SetText(TControl;TCaption);|006DD21D E8CEC9F7FF call 00659BF0006DD222 8D45F4 lea eax, 006DD225 50 push eax* Possible String Reference to: 'PassWord'|006DD226 6818D36D00 push $006DD318006DD22B 8D45F0 lea eax, 006DD22E 50 push eax006DD22F 8B06 mov eax, 006DD231 8B90CC040000 mov edx, 006DD237 8B06 mov eax, * Possible String Reference to: 'Login'|006DD239 B908D36D00 mov ecx, $006DD308* Reference to : TFrmMain.Proc_00724110()|006DD23E E8CD6E0400 call 00724110006DD243 8B55F0 mov edx, 006DD246 8B06 mov eax, 006DD248 66B90C00 mov cx, $000C* Reference to : TFrmMain.Proc_00721D20()|006DD24C E8CF4A0400 call 00721D20006DD251 8B55F4 mov edx, * Reference to control TFrmLogin.Edtpsd : TEdit|006DD254 8B8308030000 mov eax, * Reference to: Controls.TControl.SetText(TControl;TCaption);|006DD25A E891C9F7FF call 00659BF0* Reference to control TFrmLogin.Cb_SelectService : TComboBox|006DD25F 8B8320030000 mov eax, * Reference to field TComboBox.Items : TStrings|006DD265 8B803C020000 mov eax, 006DD26B 8B10 mov edx, * Possible reference to virtual method TStrings.OFFS_44|006DD26D FF5244 call dword ptr * Reference to control TFrmLogin.Cb_SelectService : TComboBox|006DD270 8B8320030000 mov eax, * Reference to field TComboBox.Items : TStrings|006DD276 8BB03C020000 mov esi, * Possible String Reference to: '成都电信服务器一'|006DD27C BA2CD36D00 mov edx, $006DD32C006DD281 8BC6 mov eax, esi006DD283 8B08 mov ecx, * Reference to method TStrings.Add(string)|006DD285 FF5138 call dword ptr * Possible String Reference to: '成都电信服务器二'|006DD288 BA48D36D00 mov edx, $006DD348006DD28D 8BC6 mov eax, esi006DD28F 8B08 mov ecx, * Reference to method TStrings.Add(string)|006DD291 FF5138 call dword ptr * Possible String Reference to: '成都网通服务器一'|006DD294 BA64D36D00 mov edx, $006DD364006DD299 8BC6 mov eax, esi006DD29B 8B08 mov ecx, * Reference to method TStrings.Add(string)|006DD29D FF5138 call dword ptr * Possible String Reference to: '成都电信服务器三'|006DD2A0 BA80D36D00 mov edx, $006DD380006DD2A5 8BC6 mov eax, esi006DD2A7 8B08 mov ecx, * Reference to method TStrings.Add(string)|006DD2A9 FF5138 call dword ptr * Possible String Reference to: '成都电信服务器四'|006DD2AC BA9CD36D00 mov edx, $006DD39C006DD2B1 8BC6 mov eax, esi006DD2B3 8B08 mov ecx, * Reference to method TStrings.Add(string)|006DD2B5 FF5138 call dword ptr 006DD2B8 33D2 xor edx, edx* Reference to control TFrmLogin.Cb_SelectService : TComboBox|006DD2BA 8B8320030000 mov eax, 006DD2C0 8B08 mov ecx, * Reference to method TComboBox.ItemIndex()|006DD2C2 FF91CC000000 call dword ptr 006DD2C8 33C0 xor eax, eax006DD2CA 5A pop edx006DD2CB 59 pop ecx006DD2CC 59 pop ecx006DD2CD 648910 mov fs:, edx****** FINALLY|006DD2D0 68EAD26D00 push $006DD2EA006DD2D5 8D45F0 lea eax, 006DD2D8 BA04000000 mov edx, $00000004* Reference to: System.@LStrArrayClr(void;void;Integer);|006DD2DD E8AE75F2FF call 00604890006DD2E2 C3 ret* Reference to: System.@HandleFinally;|006DD2E3 E9286EF2FF jmp 00604110006DD2E8 EBEB jmp 006DD2D5****** END|006DD2EA 5E pop esi006DD2EB 5B pop ebx006DD2EC 8BE5 mov esp, ebp006DD2EE 5D pop ebp006DD2EF C3 ret*)end;procedure TFrmLogin.BitBtn1Click(Sender : TObject);begin(*006DD3B0 55 push ebp006DD3B1 8BEC mov ebp, esp006DD3B3 6A00 push $00006DD3B5 6A00 push $00006DD3B7 53 push ebx006DD3B8 8BD8 mov ebx, eax006DD3BA 33C0 xor eax, eax006DD3BC 55 push ebp* Possible String Reference to: '?l?腚?|006DD3BD 68DAD46D00 push $006DD4DA***** TRY|006DD3C2 64FF30 push dword ptr fs:006DD3C5 648920 mov fs:, esp006DD3C8 8D55FC lea edx, * Reference to control TFrmLogin.EdtAddol : TEdit|006DD3CB 8B8304030000 mov eax, * Reference to: Controls.TControl.GetText(TControl):TCaption;|006DD3D1 E8EAC7F7FF call 00659BC0006DD3D6 837DFC00 cmp dword ptr , +$00006DD3DA 7524 jnz 006DD400* Possible String Reference to: 'Addol账号输入不能为空'|006DD3DC BAE8D46D00 mov edx, $006DD4E8* Reference to TFrmMain instance|006DD3E1 A1B8EF7200 mov eax, dword ptr [$0072EFB8]006DD3E6 8B00 mov eax, * Reference to : TFrmMain.Proc_00723000()|006DD3E8 E8135C0400 call 00723000* Reference to control TFrmLogin.EdtAddol : TEdit|006DD3ED 8B8304030000 mov eax, 006DD3F3 8B10 mov edx, * Reference to method TEdit.SetFocus()|006DD3F5 FF92C0000000 call dword ptr 006DD3FB E9BF000000 jmp 006DD4BF006DD400 8D55F8 lea edx, * Reference to control TFrmLogin.Edtpsd : TEdit|006DD403 8B8308030000 mov eax, * Reference to: Controls.TControl.GetText(TControl):TCaption;|006DD409 E8B2C7F7FF call 00659BC0006DD40E 837DF800 cmp dword ptr , +$00006DD412 7524 jnz 006DD438* Possible String Reference to: 'Addol密码输入不能为空'|006DD414 BA00D56D00 mov edx, $006DD500* Reference to TFrmMain instance|006DD419 A1B8EF7200 mov eax, dword ptr [$0072EFB8]006DD41E 8B00 mov eax, * Reference to : TFrmMain.Proc_00723000()|006DD420 E8DB5B0400 call 00723000* Reference to control TFrmLogin.Edtpsd : TEdit|006DD425 8B8308030000 mov eax, 006DD42B 8B10 mov edx, * Reference to method TEdit.SetFocus()|006DD42D FF92C0000000 call dword ptr 006DD433 E987000000 jmp 006DD4BF* Reference to TFrmMain instance|006DD438 A1B8EF7200 mov eax, dword ptr [$0072EFB8]006DD43D 8B00 mov eax, * Reference to control TFrmMain.ClientSocket : TClientSocket|006DD43F 8B806C030000 mov eax, * Reference to field TClientSocket.Active : Boolean|006DD445 80783000 cmp byte ptr , $00006DD449 7574 jnz 006DD4BF* Reference to TScreen instance|006DD44B A100F47200 mov eax, dword ptr [$0072F400]006DD450 8B00 mov eax, 006DD452 66BAF5FF mov dx, $FFF5* Reference to : TApplication._PROC_00651078()|006DD456 E81D3CF7FF call 00651078* Reference to TFrmMain instance|006DD45B A1B8EF7200 mov eax, dword ptr [$0072EFB8]006DD460 8B00 mov eax, * Reference to control TFrmMain.ClientSocket : TClientSocket|006DD462 8B806C030000 mov eax, * Reference to TFrmMain instance|006DD468 8B15B8EF7200 mov edx, [$0072EFB8]006DD46E 8B12 mov edx, * Reference to field TFrmMain.OFFS_04D8 : String|006DD470 8B92D8040000 mov edx, * Reference to TFrmMain instance|006DD476 8B0DB8EF7200 mov ecx, [$0072EFB8]* Reference to: ScktComp.TAbstractSocket.SetHost(TAbstractSocket;AnsiString);|006DD47C E867DBFBFF call 0069AFE8* Reference to TFrmMain instance|006DD481 A1B8EF7200 mov eax, dword ptr [$0072EFB8]006DD486 8B00 mov eax, * Reference to control TFrmMain.ClientSocket : TClientSocket|006DD488 8B806C030000 mov eax, 006DD48E B201 mov dl, $01* Reference to: ScktComp.TAbstractSocket.SetActive(TAbstractSocket;Boolean);|006DD490 E883DAFBFF call 0069AF18* Possible String Reference to: '正在连接服务器'|006DD495 BA20D56D00 mov edx, $006DD520* Reference to control TFrmLogin.LbLogin : TLabel|006DD49A 8B8318030000 mov eax, * Reference to: Controls.TControl.SetText(TControl;TCaption);|006DD4A0 E84BC7F7FF call 00659BF0006DD4A5 B201 mov dl, $01* Reference to control TFrmLogin.LbLogin : TLabel|006DD4A7 8B8318030000 mov eax, * Reference to: Controls.TControl.SetVisible(TControl;Boolean);|006DD4AD E82EC6F7FF call 00659AE0006DD4B2 33D2 xor edx, edx* Reference to control TFrmLogin.BitBtn1 : TBitBtn|006DD4B4 8B8300030000 mov eax, 006DD4BA 8B08 mov ecx, * Possible reference to virtual method TBitBtn.OFFS_64|006DD4BC FF5164 call dword ptr 006DD4BF 33C0 xor eax, eax006DD4C1 5A pop edx006DD4C2 59 pop ecx006DD4C3 59 pop ecx006DD4C4 648910 mov fs:, edx****** FINALLY|* Possible String Reference to: '?|006DD4C7 68E1D46D00 push $006DD4E1006DD4CC 8D45F8 lea eax, 006DD4CF BA02000000 mov edx, $00000002* Reference to: System.@LStrArrayClr(void;void;Integer);|006DD4D4 E8B773F2FF call 00604890006DD4D9 C3 ret* Reference to: System.@HandleFinally;|006DD4DA E9316CF2FF jmp 00604110006DD4DF EBEB jmp 006DD4CC****** END|006DD4E1 5B pop ebx006DD4E2 59 pop ecx006DD4E3 59 pop ecx006DD4E4 5D pop ebp006DD4E5 C3 ret*)end;procedure TFrmLogin.FormKeyDown(Sender : TObject);begin(*006DD530 55 push ebp006DD531 8BEC mov ebp, esp006DD533 6683390D cmp word ptr , +$0D006DD537 7505 jnz 006DD53E* Reference to : TFrmLogin.BitBtn1Click()|006DD539 E872FEFFFF call 006DD3B0006DD53E 5D pop ebp006DD53F C20400 ret $0004*)end;procedure TFrmLogin.Cb_SelectServiceChange(Sender : TObject);begin(*006DD544 55 push ebp006DD545 8BEC mov ebp, esp006DD547 6A00 push $00006DD549 53 push ebx006DD54A 8BD8 mov ebx, eax006DD54C 33C0 xor eax, eax006DD54E 55 push ebp006DD54F 68A9D56D00 push $006DD5A9***** TRY|006DD554 64FF30 push dword ptr fs:006DD557 648920 mov fs:, esp* Reference to control TFrmLogin.Cb_SelectService : TComboBox|006DD55A 8B8320030000 mov eax, 006DD560 8B10 mov edx, * Reference to method TComboBox.ItemIndex()|006DD562 FF92C8000000 call dword ptr 006DD568 8BD0 mov edx, eax006DD56A 8D4DFC lea ecx, * Reference to TFrmMain instance|006DD56D A1B8EF7200 mov eax, dword ptr [$0072EFB8]006DD572 8B00 mov eax, * Reference to field TFrmMain.OFFS_04E0 : TStringList|006DD574 8B80E0040000 mov eax, 006DD57A 8B18 mov ebx, * Reference to method TStringList.Get(Integer)|006DD57C FF530C call dword ptr 006DD57F 8B55FC mov edx, * Reference to TFrmMain instance|006DD582 A1B8EF7200 mov eax, dword ptr [$0072EFB8]006DD587 8B00 mov eax, 006DD589 05D8040000 add eax, +$000004D8* Reference to: System.@LStrAsg(void;void;void;void);|006DD58E E82D73F2FF call 006048C0006DD593 33C0 xor eax, eax006DD595 5A pop edx006DD596 59 pop ecx006DD597 59 pop ecx006DD598 648910 mov fs:, edx****** FINALLY|006DD59B 68B0D56D00 push $006DD5B0006DD5A0 8D45FC lea eax, * Reference to: System.@LStrClr(void;void);|006DD5A3 E8C472F2FF call 0060486C006DD5A8 C3 ret* Reference to: System.@HandleFinally;|006DD5A9 E9626BF2FF jmp 00604110006DD5AE EBF0 jmp 006DD5A0****** END|006DD5B0 5B pop ebx006DD5B1 59 pop ecx006DD5B2 5D pop ebp006DD5B3 C3 ret*)end;procedure TFrmLogin.BitBtn3Click(Sender : TObject);begin(*006DD5B4 53 push ebx006DD5B5 8BD8 mov ebx, eax006DD5B7 8BCB mov ecx, ebx006DD5B9 B201 mov dl, $01* Reference to class TFrmReset|006DD5BB A198C86D00 mov eax, dword ptr [$006DC898]* Reference to : TApplication._PROC_0064B8DC()|006DD5C0 E817E3F6FF call 0064B8DC* Reference to pointer to GlobalVar_00731258|006DD5C5 8B1544F37200 mov edx, [$0072F344]006DD5CB 8902 mov , eax* Reference to pointer to GlobalVar_00731258|006DD5CD A144F37200 mov eax, dword ptr [$0072F344]006DD5D2 8B00 mov eax, 006DD5D4 8B10 mov edx, * Possible reference to virtual method TGlobalVar_00731258.OFFS_00E8|006DD5D6 FF92E8000000 call dword ptr * Reference to pointer to GlobalVar_00731258|006DD5DC A144F37200 mov eax, dword ptr [$0072F344]006DD5E1 8B00 mov eax, * Reference to: System.TObject.Free(TObject);|006DD5E3 E89463F2FF call 0060397C006DD5E8 5B pop ebx006DD5E9 C3 ret*)end;procedure TFrmLogin._PROC_006DD0E9(Sender : TObject);begin(*006DD0E9 7365 jnb 006DD150006DD0EB 7200 jb 006DD0ED006DD0ED 0000 add , al006DD0EF 00FF add bh, bh006DD0F1 FFFF DB$FF, $FF// 006DD0F3 FF050000004C inc dword ptr [$4C000000]006DD0F9 6F outsd006DD0FA 67696E000000FFFF imul ebp, , $FFFF0000006DD102 FFFF DB$FF, $FF// 006DD104 0800 or , al006DD106 0000 add , al006DD108 50 push eax006DD109 61 popa006DD10A 7373 jnb 006DD17F006DD10C 57 push edi006DD10D 6F outsd006DD10E 7264 jb 006DD174006DD110 0000 add , al006DD112 0000 add , al006DD114 B1A3 mov cl, $A3006DD116 B4E6 mov ah, $E6006DD118 B3C9 mov bl, $C9006DD11A B9A6A3A1A3 mov ecx, $A3A1A3A6006DD11F A1A3A10000 mov eax, dword ptr [$0000A1A3]* Possible String Reference to: 'User'|006DD124 6888D16D00 push $006DD188006DD129 6A00 push $00* Reference to TFrmMain instance|006DD12B A1B8EF7200 mov eax, dword ptr [$0072EFB8]006DD130 8B00 mov eax, * Reference to field TFrmMain.OFFS_04CC : String|006DD132 8B90CC040000 mov edx, * Reference to TFrmMain instance|006DD138 A1B8EF7200 mov eax, dword ptr [$0072EFB8]006DD13D 8B00 mov eax, * Possible String Reference to: 'Login'|006DD13F B998D16D00 mov ecx, $006DD198* Reference to : TFrmMain.Proc_00724050()|006DD144 E8076F0400 call 00724050* Possible String Reference to: 'PassWord'|006DD149 68A8D16D00 push $006DD1A8006DD14E 6A00 push $00* Reference to TFrmMain instance|006DD150 A1B8EF7200 mov eax, dword ptr [$0072EFB8]006DD155 8B00 mov eax, * Reference to field TFrmMain.OFFS_04CC : String|006DD157 8B90CC040000 mov edx, * Reference to TFrmMain instance|006DD15D A1B8EF7200 mov eax, dword ptr [$0072EFB8]006DD162 8B00 mov eax, * Possible String Reference to: 'Login'|006DD164 B998D16D00 mov ecx, $006DD198* Reference to : TFrmMain.Proc_00724050()|006DD169 E8E26E0400 call 00724050* Possible String Reference to: '删除成功！！！'|006DD16E BAB4D16D00 mov edx, $006DD1B4* Reference to TFrmMain instance|006DD173 A1B8EF7200 mov eax, dword ptr [$0072EFB8]006DD178 8B00 mov eax, * Reference to : TFrmMain.Proc_00723000()|006DD17A E8815E0400 call 00723000006DD17F C3 ret*)end;procedure TFrmLogin._PROC_006DD189(Sender : TObject);begin(*006DD189 7365 jnb 006DD1F0006DD18B 7200 jb 006DD18D006DD18D 0000 add , al006DD18F 00FF add bh, bh006DD191 FFFF DB$FF, $FF// 006DD193 FF050000004C inc dword ptr [$4C000000]006DD199 6F outsd006DD19A 67696E000000FFFF imul ebp, , $FFFF0000006DD1A2 FFFF DB$FF, $FF// 006DD1A4 0800 or , al006DD1A6 0000 add , al006DD1A8 50 push eax006DD1A9 61 popa006DD1AA 7373 jnb 006DD21F006DD1AC 57 push edi006DD1AD 6F outsd006DD1AE 7264 jb 006DD214006DD1B0 0000 add , al006DD1B2 0000 add , al006DD1B4 C9 leave006DD1B5 BEB3FDB3C9 mov esi, $C9B3FDB3006DD1BA B9A6A3A1A3 mov ecx, $A3A1A3A6006DD1BF A1A3A10000 mov eax, dword ptr [$0000A1A3]006DD1C4 55 push ebp006DD1C5 8BEC mov ebp, esp006DD1C7 33C9 xor ecx, ecx006DD1C9 51 push ecx006DD1CA 51 push ecx006DD1CB 51 push ecx006DD1CC 51 push ecx006DD1CD 53 push ebx006DD1CE 56 push esi006DD1CF 8BD8 mov ebx, eax* Reference to TFrmMain instance|006DD1D1 8B35B8EF7200 mov esi, [$0072EFB8]006DD1D7 33C0 xor eax, eax006DD1D9 55 push ebp006DD1DA 68E3D26D00 push $006DD2E3***** TRY|006DD1DF 64FF30 push dword ptr fs:006DD1E2 648920 mov fs:, esp006DD1E5 8D45FC lea eax, 006DD1E8 50 push eax* Possible String Reference to: 'User'|006DD1E9 68F8D26D00 push $006DD2F8006DD1EE 8D45F8 lea eax, 006DD1F1 50 push eax006DD1F2 8B06 mov eax, 006DD1F4 8B90CC040000 mov edx, 006DD1FA 8B06 mov eax, * Possible String Reference to: 'Login'|006DD1FC B908D36D00 mov ecx, $006DD308* Reference to : TFrmMain.Proc_00724110()|006DD201 E80A6F0400 call 00724110006DD206 8B55F8 mov edx, 006DD209 8B06 mov eax, 006DD20B 66B90C00 mov cx, $000C* Reference to : TFrmMain.Proc_00721D20()|006DD20F E80C4B0400 call 00721D20006DD214 8B55FC mov edx, * Reference to control GroupBox1 : N.A.|006DD217 8B8304030000 mov eax, * Reference to: Controls.TControl.SetText(TControl;TCaption);|006DD21D E8CEC9F7FF call 00659BF0006DD222 8D45F4 lea eax, 006DD225 50 push eax* Possible String Reference to: 'PassWord'|006DD226 6818D36D00 push $006DD318006DD22B 8D45F0 lea eax, 006DD22E 50 push eax006DD22F 8B06 mov eax, 006DD231 8B90CC040000 mov edx, 006DD237 8B06 mov eax, * Possible String Reference to: 'Login'|006DD239 B908D36D00 mov ecx, $006DD308* Reference to : TFrmMain.Proc_00724110()|006DD23E E8CD6E0400 call 00724110006DD243 8B55F0 mov edx, 006DD246 8B06 mov eax, 006DD248 66B90C00 mov cx, $000C* Reference to : TFrmMain.Proc_00721D20()|006DD24C E8CF4A0400 call 00721D20006DD251 8B55F4 mov edx, * Reference to control Label1 : TLabel|006DD254 8B8308030000 mov eax, * Reference to: Controls.TControl.SetText(TControl;TCaption);|006DD25A E891C9F7FF call 00659BF0* Reference to control Label4 : TLabel|006DD25F 8B8320030000 mov eax, * Reference to field TLabel.OFFS_023C|006DD265 8B803C020000 mov eax, 006DD26B 8B10 mov edx, 006DD26D FF5244 call dword ptr * Reference to control Label4 : TLabel|006DD270 8B8320030000 mov eax, * Reference to field TLabel.OFFS_023C|006DD276 8BB03C020000 mov esi, * Possible String Reference to: '成都电信服务器一'|006DD27C BA2CD36D00 mov edx, $006DD32C006DD281 8BC6 mov eax, esi006DD283 8B08 mov ecx, 006DD285 FF5138 call dword ptr * Possible String Reference to: '成都电信服务器二'|006DD288 BA48D36D00 mov edx, $006DD348006DD28D 8BC6 mov eax, esi006DD28F 8B08 mov ecx, 006DD291 FF5138 call dword ptr * Possible String Reference to: '成都网通服务器一'|006DD294 BA64D36D00 mov edx, $006DD364006DD299 8BC6 mov eax, esi006DD29B 8B08 mov ecx, 006DD29D FF5138 call dword ptr * Possible String Reference to: '成都电信服务器三'|006DD2A0 BA80D36D00 mov edx, $006DD380006DD2A5 8BC6 mov eax, esi006DD2A7 8B08 mov ecx, 006DD2A9 FF5138 call dword ptr * Possible String Reference to: '成都电信服务器四'|006DD2AC BA9CD36D00 mov edx, $006DD39C006DD2B1 8BC6 mov eax, esi006DD2B3 8B08 mov ecx, 006DD2B5 FF5138 call dword ptr 006DD2B8 33D2 xor edx, edx* Reference to control Label4 : TLabel|006DD2BA 8B8320030000 mov eax, 006DD2C0 8B08 mov ecx, * Possible reference to virtual method TLabel.OFFS_00CC|006DD2C2 FF91CC000000 call dword ptr 006DD2C8 33C0 xor eax, eax006DD2CA 5A pop edx006DD2CB 59 pop ecx006DD2CC 59 pop ecx006DD2CD 648910 mov fs:, edx****** FINALLY|006DD2D0 68EAD26D00 push $006DD2EA006DD2D5 8D45F0 lea eax, 006DD2D8 BA04000000 mov edx, $00000004* Reference to: System.@LStrArrayClr(void;void;Integer);|006DD2DD E8AE75F2FF call 00604890006DD2E2 C3 ret*)end;procedure TFrmLogin._PROC_006DD2F9(Sender : TObject);begin(*006DD2F9 7365 jnb 006DD360006DD2FB 7200 jb 006DD2FD006DD2FD 0000 add , al006DD2FF 00FF add bh, bh006DD301 FFFF DB$FF, $FF// 006DD303 FF050000004C inc dword ptr [$4C000000]006DD309 6F outsd006DD30A 67696E000000FFFF imul ebp, , $FFFF0000006DD312 FFFF DB$FF, $FF// 006DD314 0800 or , al006DD316 0000 add , al006DD318 50 push eax006DD319 61 popa006DD31A 7373 jnb 006DD38F006DD31C 57 push edi006DD31D 6F outsd006DD31E 7264 jb 006DD384006DD320 0000 add , al006DD322 0000 add , al006DD324 FFFF DB$FF, $FF// 006DD326 FFFF DB$FF, $FF// 006DD328 1000 adc , al006DD32A 0000 add , al006DD32C B3C9 mov bl, $C9006DD32E B6BC mov dh, $BC006DD330 B5E7 mov ch, $E7006DD332 D0C5 rol ch, 1006DD334 B7FE mov bh, $FE006DD336 CE into006DD337 F1 DB$F1//006DD338 C6F7D2 mov bh, $D2006DD33B BB00000000 mov ebx, $00000000006DD340 FFFF DB$FF, $FF// 006DD342 FFFF DB$FF, $FF// 006DD344 1000 adc , al006DD346 0000 add , al006DD348 B3C9 mov bl, $C9006DD34A B6BC mov dh, $BC006DD34C B5E7 mov ch, $E7006DD34E D0C5 rol ch, 1006DD350 B7FE mov bh, $FE006DD352 CE into006DD353 F1 DB$F1//006DD354 C6F7B6 mov bh, $B6006DD357 FE00 inc byte ptr 006DD359 0000 add , al006DD35B 00FF add bh, bh006DD35D FFFF DB$FF, $FF// 006DD35F FF10 call dword ptr 006DD361 0000 add , al006DD363 00B3C9B6BCCD add , dh006DD369 F8 clc006DD36A CDA8 int $A8006DD36C B7FE mov bh, $FE006DD36E CE into006DD36F F1 DB$F1//006DD370 C6F7D2 mov bh, $D2006DD373 BB00000000 mov ebx, $00000000006DD378 FFFF DB$FF, $FF// 006DD37A FFFF DB$FF, $FF// 006DD37C 1000 adc , al006DD37E 0000 add , al006DD380 B3C9 mov bl, $C9006DD382 B6BC mov dh, $BC006DD384 B5E7 mov ch, $E7006DD386 D0C5 rol ch, 1006DD388 B7FE mov bh, $FE006DD38A CE into006DD38B F1 DB$F1//006DD38C C6F7C8 mov bh, $C8006DD38F FD std006DD390 0000 add , al*)end;procedure TFrmLogin._PROC_006DD5EC(Sender : TObject);begin(*006DD5EC 55 push ebp006DD5ED 8BEC mov ebp, esp006DD5EF 33C0 xor eax, eax006DD5F1 55 push ebp006DD5F2 6811D66D00 push $006DD611***** TRY|006DD5F7 64FF30 push dword ptr fs:006DD5FA 648920 mov fs:, esp006DD5FD FF0564127300 inc dword ptr [$00731264]006DD603 33C0 xor eax, eax006DD605 5A pop edx006DD606 59 pop ecx006DD607 59 pop ecx006DD608 648910 mov fs:, edx****** FINALLY|006DD60B 6818D66D00 push $006DD618006DD610 C3 ret* Reference to: System.@HandleFinally;|006DD611 E9FA6AF2FF jmp 00604110006DD616 EBF8 jmp 006DD610****** END|006DD618 5D pop ebp006DD619 C3 ret*)end;procedure TFrmLogin._PROC_006DD61C(Sender : TObject);begin(*006DD61C 832D6412730001 sub dword ptr [$00731264], +$01006DD623 C3 ret*)end;end.
zhangweizj
发表于 2005-1-22 16:14:59
pascal语言,什么东西
zhangweizj
发表于 2005-1-22 16:15:34
哈哈 ,看样子是网关切换..
helloabc
发表于 2005-2-3 21:36:00
这段程序直接使用机器指令, 应该只有内部人事才能看得懂.
wavecb
发表于 2005-2-5 16:01:11
网络认证而已==一狗狗
liusimin
发表于 2005-2-8 02:26:38
本人同意楼上的观点哦
cgfans999
发表于 2005-2-15 02:30:44
机器指令部分不懂 建意你做一个本地验证服务器才是解决之道
easehu
发表于 2005-2-15 22:58:34
'www.addol.com'的游戏更新系统的验证啊。用 DEDE 反编译也看不出什么东西啊，发这里你发错了啊，要发发到DIYPE.COM 去啊。
wavecb
发表于 2005-2-18 22:20:47
到处发机会大些哈哈
henrt
发表于 2005-2-19 10:20:14
拿别人程序DEDE的。。。难看懂啊
页:
[1]