一个对于网吧来说非常 有用的软件，加密部分 ！分析下啊，

wavecb

我搞了，n天都没有看透，，高手分析下unit Login;interfaceuses  Windows, Messages, SysUtils, Classes, Graphics,  Controls, Forms, Dialogs, StdCtrlstype  TFrmLogin=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 ;var  FrmLogin: 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, [eax]* Reference to field TFrmMain.OFFS_04C0 : Byte|006DCF77   80B8C004000000         cmp     byte ptr [eax+$04C0], $00006DCF7E   750C                   jnz     006DCF8C* Reference to TApplication instance|006DCF80   A168F17200             mov     eax, dword ptr [$0072F168]006DCF85   8B00                   mov     eax, [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, [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:[eax]006DCFF7   648920                 mov     fs:[eax], esp006DCFFA   33C0                   xor     eax, eax006DCFFC   55                     push    ebp006DCFFD   6898D06D00             push    $006DD098***** TRY|006DD002   64FF30                 push    dword ptr fs:[eax]006DD005   648920                 mov     fs:[eax], esp* Possible String Reference to: 'User'|006DD008   68E8D06D00             push    $006DD0E8006DD00D   8D45FC                 lea     eax, [ebp-$04]006DD010   50                     push    eax006DD011   8D55F8                 lea     edx, [ebp-$08]* Reference to control TFrmLogin.EdtAddol : TEdit|006DD014   8B8304030000           mov     eax, [ebx+$0304]* Reference to: Controls.TControl.GetText(TControl):TCaption;|006DD01A   E8A1CBF7FF             call    00659BC0006DD01F   8B55F8                 mov     edx, [ebp-$08]006DD022   8B06                   mov     eax, [esi]006DD024   66B90C00               mov     cx, $000C* Reference to : TFrmMain.Proc_00721CD4()|006DD028   E8A74C0400             call    00721CD4006DD02D   8B45FC                 mov     eax, [ebp-$04]006DD030   50                     push    eax006DD031   8B06                   mov     eax, [esi]006DD033   8B90CC040000           mov     edx, [eax+$04CC]006DD039   8B06                   mov     eax, [esi]* 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, [ebp-$0C]006DD04D   50                     push    eax006DD04E   8D55F0                 lea     edx, [ebp-$10]* Reference to control TFrmLogin.Edtpsd : TEdit|006DD051   8B8308030000           mov     eax, [ebx+$0308]* Reference to: Controls.TControl.GetText(TControl):TCaption;|006DD057   E864CBF7FF             call    00659BC0006DD05C   8B55F0                 mov     edx, [ebp-$10]006DD05F   8B06                   mov     eax, [esi]006DD061   66B90C00               mov     cx, $000C* Reference to : TFrmMain.Proc_00721CD4()|006DD065   E86A4C0400             call    00721CD4006DD06A   8B45F4                 mov     eax, [ebp-$0C]006DD06D   50                     push    eax006DD06E   8B06                   mov     eax, [esi]006DD070   8B90CC040000           mov     edx, [eax+$04CC]006DD076   8B06                   mov     eax, [esi]* 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, [esi]* 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:[eax], 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:[eax], edx****** FINALLY|* Possible String Reference to: '_^[?]?|006DD0AA   68D7D06D00             push    $006DD0D7006DD0AF   8D45F0                 lea     eax, [ebp-$10]* Reference to: System.@LStrClr(void;void);|006DD0B2   E8B577F2FF             call    0060486C006DD0B7   8D45F4                 lea     eax, [ebp-$0C]* Reference to: System.@LStrClr(void;void);|006DD0BA   E8AD77F2FF             call    0060486C006DD0BF   8D45F8                 lea     eax, [ebp-$08]* Reference to: System.@LStrClr(void;void);|006DD0C2   E8A577F2FF             call    0060486C006DD0C7   8D45FC                 lea     eax, [ebp-$04]* 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, [eax]* Reference to field TFrmMain.OFFS_04CC : String|006DD132   8B90CC040000           mov     edx, [eax+$04CC]* Reference to TFrmMain instance|006DD138   A1B8EF7200             mov     eax, dword ptr [$0072EFB8]006DD13D   8B00                   mov     eax, [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, [eax]* Reference to field TFrmMain.OFFS_04CC : String|006DD157   8B90CC040000           mov     edx, [eax+$04CC]* Reference to TFrmMain instance|006DD15D   A1B8EF7200             mov     eax, dword ptr [$0072EFB8]006DD162   8B00                   mov     eax, [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, [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:[eax]006DD1E2   648920                 mov     fs:[eax], esp006DD1E5   8D45FC                 lea     eax, [ebp-$04]006DD1E8   50                     push    eax* Possible String Reference to: 'User'|006DD1E9   68F8D26D00             push    $006DD2F8006DD1EE   8D45F8                 lea     eax, [ebp-$08]006DD1F1   50                     push    eax006DD1F2   8B06                   mov     eax, [esi]006DD1F4   8B90CC040000           mov     edx, [eax+$04CC]006DD1FA   8B06                   mov     eax, [esi]* Possible String Reference to: 'Login'|006DD1FC   B908D36D00             mov     ecx, $006DD308* Reference to : TFrmMain.Proc_00724110()|006DD201   E80A6F0400             call    00724110006DD206   8B55F8                 mov     edx, [ebp-$08]006DD209   8B06                   mov     eax, [esi]006DD20B   66B90C00               mov     cx, $000C* Reference to : TFrmMain.Proc_00721D20()|006DD20F   E80C4B0400             call    00721D20006DD214   8B55FC                 mov     edx, [ebp-$04]* Reference to control TFrmLogin.EdtAddol : TEdit|006DD217   8B8304030000           mov     eax, [ebx+$0304]* Reference to: Controls.TControl.SetText(TControl;TCaption);|006DD21D   E8CEC9F7FF             call    00659BF0006DD222   8D45F4                 lea     eax, [ebp-$0C]006DD225   50                     push    eax* Possible String Reference to: 'PassWord'|006DD226   6818D36D00             push    $006DD318006DD22B   8D45F0                 lea     eax, [ebp-$10]006DD22E   50                     push    eax006DD22F   8B06                   mov     eax, [esi]006DD231   8B90CC040000           mov     edx, [eax+$04CC]006DD237   8B06                   mov     eax, [esi]* Possible String Reference to: 'Login'|006DD239   B908D36D00             mov     ecx, $006DD308* Reference to : TFrmMain.Proc_00724110()|006DD23E   E8CD6E0400             call    00724110006DD243   8B55F0                 mov     edx, [ebp-$10]006DD246   8B06                   mov     eax, [esi]006DD248   66B90C00               mov     cx, $000C* Reference to : TFrmMain.Proc_00721D20()|006DD24C   E8CF4A0400             call    00721D20006DD251   8B55F4                 mov     edx, [ebp-$0C]* Reference to control TFrmLogin.Edtpsd : TEdit|006DD254   8B8308030000           mov     eax, [ebx+$0308]* Reference to: Controls.TControl.SetText(TControl;TCaption);|006DD25A   E891C9F7FF             call    00659BF0* Reference to control TFrmLogin.Cb_SelectService : TComboBox|006DD25F   8B8320030000           mov     eax, [ebx+$0320]* Reference to field TComboBox.Items : TStrings|006DD265   8B803C020000           mov     eax, [eax+$023C]006DD26B   8B10                   mov     edx, [eax]* Possible reference to virtual method TStrings.OFFS_44|006DD26D   FF5244                 call    dword ptr [edx+$44]* Reference to control TFrmLogin.Cb_SelectService : TComboBox|006DD270   8B8320030000           mov     eax, [ebx+$0320]* Reference to field TComboBox.Items : TStrings|006DD276   8BB03C020000           mov     esi, [eax+$023C]* Possible String Reference to: '成都电信服务器一'|006DD27C   BA2CD36D00             mov     edx, $006DD32C006DD281   8BC6                   mov     eax, esi006DD283   8B08                   mov     ecx, [eax]* Reference to method TStrings.Add(string)|006DD285   FF5138                 call    dword ptr [ecx+$38]* Possible String Reference to: '成都电信服务器二'|006DD288   BA48D36D00             mov     edx, $006DD348006DD28D   8BC6                   mov     eax, esi006DD28F   8B08                   mov     ecx, [eax]* Reference to method TStrings.Add(string)|006DD291   FF5138                 call    dword ptr [ecx+$38]* Possible String Reference to: '成都网通服务器一'|006DD294   BA64D36D00             mov     edx, $006DD364006DD299   8BC6                   mov     eax, esi006DD29B   8B08                   mov     ecx, [eax]* Reference to method TStrings.Add(string)|006DD29D   FF5138                 call    dword ptr [ecx+$38]* Possible String Reference to: '成都电信服务器三'|006DD2A0   BA80D36D00             mov     edx, $006DD380006DD2A5   8BC6                   mov     eax, esi006DD2A7   8B08                   mov     ecx, [eax]* Reference to method TStrings.Add(string)|006DD2A9   FF5138                 call    dword ptr [ecx+$38]* Possible String Reference to: '成都电信服务器四'|006DD2AC   BA9CD36D00             mov     edx, $006DD39C006DD2B1   8BC6                   mov     eax, esi006DD2B3   8B08                   mov     ecx, [eax]* Reference to method TStrings.Add(string)|006DD2B5   FF5138                 call    dword ptr [ecx+$38]006DD2B8   33D2                   xor     edx, edx* Reference to control TFrmLogin.Cb_SelectService : TComboBox|006DD2BA   8B8320030000           mov     eax, [ebx+$0320]006DD2C0   8B08                   mov     ecx, [eax]* Reference to method TComboBox.ItemIndex()|006DD2C2   FF91CC000000           call    dword ptr [ecx+$00CC]006DD2C8   33C0                   xor     eax, eax006DD2CA   5A                     pop     edx006DD2CB   59                     pop     ecx006DD2CC   59                     pop     ecx006DD2CD   648910                 mov     fs:[eax], edx****** FINALLY|006DD2D0   68EAD26D00             push    $006DD2EA006DD2D5   8D45F0                 lea     eax, [ebp-$10]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?腚[YY]?|006DD3BD   68DAD46D00             push    $006DD4DA***** TRY|006DD3C2   64FF30                 push    dword ptr fs:[eax]006DD3C5   648920                 mov     fs:[eax], esp006DD3C8   8D55FC                 lea     edx, [ebp-$04]* Reference to control TFrmLogin.EdtAddol : TEdit|006DD3CB   8B8304030000           mov     eax, [ebx+$0304]* Reference to: Controls.TControl.GetText(TControl):TCaption;|006DD3D1   E8EAC7F7FF             call    00659BC0006DD3D6   837DFC00               cmp     dword ptr [ebp-$04], +$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, [eax]* Reference to : TFrmMain.Proc_00723000()|006DD3E8   E8135C0400             call    00723000* Reference to control TFrmLogin.EdtAddol : TEdit|006DD3ED   8B8304030000           mov     eax, [ebx+$0304]006DD3F3   8B10                   mov     edx, [eax]* Reference to method TEdit.SetFocus()|006DD3F5   FF92C0000000           call    dword ptr [edx+$00C0]006DD3FB   E9BF000000             jmp     006DD4BF006DD400   8D55F8                 lea     edx, [ebp-$08]* Reference to control TFrmLogin.Edtpsd : TEdit|006DD403   8B8308030000           mov     eax, [ebx+$0308]* Reference to: Controls.TControl.GetText(TControl):TCaption;|006DD409   E8B2C7F7FF             call    00659BC0006DD40E   837DF800               cmp     dword ptr [ebp-$08], +$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, [eax]* Reference to : TFrmMain.Proc_00723000()|006DD420   E8DB5B0400             call    00723000* Reference to control TFrmLogin.Edtpsd : TEdit|006DD425   8B8308030000           mov     eax, [ebx+$0308]006DD42B   8B10                   mov     edx, [eax]* Reference to method TEdit.SetFocus()|006DD42D   FF92C0000000           call    dword ptr [edx+$00C0]006DD433   E987000000             jmp     006DD4BF* Reference to TFrmMain instance|006DD438   A1B8EF7200             mov     eax, dword ptr [$0072EFB8]006DD43D   8B00                   mov     eax, [eax]* Reference to control TFrmMain.ClientSocket : TClientSocket|006DD43F   8B806C030000           mov     eax, [eax+$036C]* Reference to field TClientSocket.Active : Boolean|006DD445   80783000               cmp     byte ptr [eax+$30], $00006DD449   7574                   jnz     006DD4BF* Reference to TScreen instance|006DD44B   A100F47200             mov     eax, dword ptr [$0072F400]006DD450   8B00                   mov     eax, [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, [eax]* Reference to control TFrmMain.ClientSocket : TClientSocket|006DD462   8B806C030000           mov     eax, [eax+$036C]* Reference to TFrmMain instance|006DD468   8B15B8EF7200           mov     edx, [$0072EFB8]006DD46E   8B12                   mov     edx, [edx]* Reference to field TFrmMain.OFFS_04D8 : String|006DD470   8B92D8040000           mov     edx, [edx+$04D8]* 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, [eax]* Reference to control TFrmMain.ClientSocket : TClientSocket|006DD488   8B806C030000           mov     eax, [eax+$036C]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, [ebx+$0318]* 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, [ebx+$0318]* 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, [ebx+$0300]006DD4BA   8B08                   mov     ecx, [eax]* Possible reference to virtual method TBitBtn.OFFS_64|006DD4BC   FF5164                 call    dword ptr [ecx+$64]006DD4BF   33C0                   xor     eax, eax006DD4C1   5A                     pop     edx006DD4C2   59                     pop     ecx006DD4C3   59                     pop     ecx006DD4C4   648910                 mov     fs:[eax], edx****** FINALLY|* Possible String Reference to: '[YY]?|006DD4C7   68E1D46D00             push    $006DD4E1006DD4CC   8D45F8                 lea     eax, [ebp-$08]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 [ecx], +$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:[eax]006DD557   648920                 mov     fs:[eax], esp* Reference to control TFrmLogin.Cb_SelectService : TComboBox|006DD55A   8B8320030000           mov     eax, [ebx+$0320]006DD560   8B10                   mov     edx, [eax]* Reference to method TComboBox.ItemIndex()|006DD562   FF92C8000000           call    dword ptr [edx+$00C8]006DD568   8BD0                   mov     edx, eax006DD56A   8D4DFC                 lea     ecx, [ebp-$04]* Reference to TFrmMain instance|006DD56D   A1B8EF7200             mov     eax, dword ptr [$0072EFB8]006DD572   8B00                   mov     eax, [eax]* Reference to field TFrmMain.OFFS_04E0 : TStringList|006DD574   8B80E0040000           mov     eax, [eax+$04E0]006DD57A   8B18                   mov     ebx, [eax]* Reference to method TStringList.Get(Integer)|006DD57C   FF530C                 call    dword ptr [ebx+$0C]006DD57F   8B55FC                 mov     edx, [ebp-$04]* Reference to TFrmMain instance|006DD582   A1B8EF7200             mov     eax, dword ptr [$0072EFB8]006DD587   8B00                   mov     eax, [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:[eax], edx****** FINALLY|006DD59B   68B0D56D00             push    $006DD5B0006DD5A0   8D45FC                 lea     eax, [ebp-$04]* 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     [edx], eax* Reference to pointer to GlobalVar_00731258|006DD5CD   A144F37200             mov     eax, dword ptr [$0072F344]006DD5D2   8B00                   mov     eax, [eax]006DD5D4   8B10                   mov     edx, [eax]* Possible reference to virtual method TGlobalVar_00731258.OFFS_00E8|006DD5D6   FF92E8000000           call    dword ptr [edx+$00E8]* Reference to pointer to GlobalVar_00731258|006DD5DC   A144F37200             mov     eax, dword ptr [$0072F344]006DD5E1   8B00                   mov     eax, [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     [eax], al006DD0EF   00FF                   add     bh, bh006DD0F1   FFFF                   DB  $FF, $FF  //      006DD0F3   FF050000004C           inc     dword ptr [$4C000000]006DD0F9   6F                     outsd006DD0FA   67696E000000FFFF       imul    ebp, [bp+$00], $FFFF0000006DD102   FFFF                   DB  $FF, $FF  //      006DD104   0800                   or      [eax], al006DD106   0000                   add     [eax], al006DD108   50                     push    eax006DD109   61                     popa006DD10A   7373                   jnb     006DD17F006DD10C   57                     push    edi006DD10D   6F                     outsd006DD10E   7264                   jb      006DD174006DD110   0000                   add     [eax], al006DD112   0000                   add     [eax], 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, [eax]* Reference to field TFrmMain.OFFS_04CC : String|006DD132   8B90CC040000           mov     edx, [eax+$04CC]* Reference to TFrmMain instance|006DD138   A1B8EF7200             mov     eax, dword ptr [$0072EFB8]006DD13D   8B00                   mov     eax, [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, [eax]* Reference to field TFrmMain.OFFS_04CC : String|006DD157   8B90CC040000           mov     edx, [eax+$04CC]* Reference to TFrmMain instance|006DD15D   A1B8EF7200             mov     eax, dword ptr [$0072EFB8]006DD162   8B00                   mov     eax, [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, [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     [eax], al006DD18F   00FF                   add     bh, bh006DD191   FFFF                   DB  $FF, $FF  //      006DD193   FF050000004C           inc     dword ptr [$4C000000]006DD199   6F                     outsd006DD19A   67696E000000FFFF       imul    ebp, [bp+$00], $FFFF0000006DD1A2   FFFF                   DB  $FF, $FF  //      006DD1A4   0800                   or      [eax], al006DD1A6   0000                   add     [eax], al006DD1A8   50                     push    eax006DD1A9   61                     popa006DD1AA   7373                   jnb     006DD21F006DD1AC   57                     push    edi006DD1AD   6F                     outsd006DD1AE   7264                   jb      006DD214006DD1B0   0000                   add     [eax], al006DD1B2   0000                   add     [eax], 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:[eax]006DD1E2   648920                 mov     fs:[eax], esp006DD1E5   8D45FC                 lea     eax, [ebp-$04]006DD1E8   50                     push    eax* Possible String Reference to: 'User'|006DD1E9   68F8D26D00             push    $006DD2F8006DD1EE   8D45F8                 lea     eax, [ebp-$08]006DD1F1   50                     push    eax006DD1F2   8B06                   mov     eax, [esi]006DD1F4   8B90CC040000           mov     edx, [eax+$04CC]006DD1FA   8B06                   mov     eax, [esi]* Possible String Reference to: 'Login'|006DD1FC   B908D36D00             mov     ecx, $006DD308* Reference to : TFrmMain.Proc_00724110()|006DD201   E80A6F0400             call    00724110006DD206   8B55F8                 mov     edx, [ebp-$08]006DD209   8B06                   mov     eax, [esi]006DD20B   66B90C00               mov     cx, $000C* Reference to : TFrmMain.Proc_00721D20()|006DD20F   E80C4B0400             call    00721D20006DD214   8B55FC                 mov     edx, [ebp-$04]* Reference to control GroupBox1 : N.A.|006DD217   8B8304030000           mov     eax, [ebx+$0304]* Reference to: Controls.TControl.SetText(TControl;TCaption);|006DD21D   E8CEC9F7FF             call    00659BF0006DD222   8D45F4                 lea     eax, [ebp-$0C]006DD225   50                     push    eax* Possible String Reference to: 'PassWord'|006DD226   6818D36D00             push    $006DD318006DD22B   8D45F0                 lea     eax, [ebp-$10]006DD22E   50                     push    eax006DD22F   8B06                   mov     eax, [esi]006DD231   8B90CC040000           mov     edx, [eax+$04CC]006DD237   8B06                   mov     eax, [esi]* Possible String Reference to: 'Login'|006DD239   B908D36D00             mov     ecx, $006DD308* Reference to : TFrmMain.Proc_00724110()|006DD23E   E8CD6E0400             call    00724110006DD243   8B55F0                 mov     edx, [ebp-$10]006DD246   8B06                   mov     eax, [esi]006DD248   66B90C00               mov     cx, $000C* Reference to : TFrmMain.Proc_00721D20()|006DD24C   E8CF4A0400             call    00721D20006DD251   8B55F4                 mov     edx, [ebp-$0C]* Reference to control Label1 : TLabel|006DD254   8B8308030000           mov     eax, [ebx+$0308]* Reference to: Controls.TControl.SetText(TControl;TCaption);|006DD25A   E891C9F7FF             call    00659BF0* Reference to control Label4 : TLabel|006DD25F   8B8320030000           mov     eax, [ebx+$0320]* Reference to field TLabel.OFFS_023C|006DD265   8B803C020000           mov     eax, [eax+$023C]006DD26B   8B10                   mov     edx, [eax]006DD26D   FF5244                 call    dword ptr [edx+$44]* Reference to control Label4 : TLabel|006DD270   8B8320030000           mov     eax, [ebx+$0320]* Reference to field TLabel.OFFS_023C|006DD276   8BB03C020000           mov     esi, [eax+$023C]* Possible String Reference to: '成都电信服务器一'|006DD27C   BA2CD36D00             mov     edx, $006DD32C006DD281   8BC6                   mov     eax, esi006DD283   8B08                   mov     ecx, [eax]006DD285   FF5138                 call    dword ptr [ecx+$38]* Possible String Reference to: '成都电信服务器二'|006DD288   BA48D36D00             mov     edx, $006DD348006DD28D   8BC6                   mov     eax, esi006DD28F   8B08                   mov     ecx, [eax]006DD291   FF5138                 call    dword ptr [ecx+$38]* Possible String Reference to: '成都网通服务器一'|006DD294   BA64D36D00             mov     edx, $006DD364006DD299   8BC6                   mov     eax, esi006DD29B   8B08                   mov     ecx, [eax]006DD29D   FF5138                 call    dword ptr [ecx+$38]* Possible String Reference to: '成都电信服务器三'|006DD2A0   BA80D36D00             mov     edx, $006DD380006DD2A5   8BC6                   mov     eax, esi006DD2A7   8B08                   mov     ecx, [eax]006DD2A9   FF5138                 call    dword ptr [ecx+$38]* Possible String Reference to: '成都电信服务器四'|006DD2AC   BA9CD36D00             mov     edx, $006DD39C006DD2B1   8BC6                   mov     eax, esi006DD2B3   8B08                   mov     ecx, [eax]006DD2B5   FF5138                 call    dword ptr [ecx+$38]006DD2B8   33D2                   xor     edx, edx* Reference to control Label4 : TLabel|006DD2BA   8B8320030000           mov     eax, [ebx+$0320]006DD2C0   8B08                   mov     ecx, [eax]* Possible reference to virtual method TLabel.OFFS_00CC|006DD2C2   FF91CC000000           call    dword ptr [ecx+$00CC]006DD2C8   33C0                   xor     eax, eax006DD2CA   5A                     pop     edx006DD2CB   59                     pop     ecx006DD2CC   59                     pop     ecx006DD2CD   648910                 mov     fs:[eax], edx****** FINALLY|006DD2D0   68EAD26D00             push    $006DD2EA006DD2D5   8D45F0                 lea     eax, [ebp-$10]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     [eax], al006DD2FF   00FF                   add     bh, bh006DD301   FFFF                   DB  $FF, $FF  //      006DD303   FF050000004C           inc     dword ptr [$4C000000]006DD309   6F                     outsd006DD30A   67696E000000FFFF       imul    ebp, [bp+$00], $FFFF0000006DD312   FFFF                   DB  $FF, $FF  //      006DD314   0800                   or      [eax], al006DD316   0000                   add     [eax], al006DD318   50                     push    eax006DD319   61                     popa006DD31A   7373                   jnb     006DD38F006DD31C   57                     push    edi006DD31D   6F                     outsd006DD31E   7264                   jb      006DD384006DD320   0000                   add     [eax], al006DD322   0000                   add     [eax], al006DD324   FFFF                   DB  $FF, $FF  //      006DD326   FFFF                   DB  $FF, $FF  //      006DD328   1000                   adc     [eax], al006DD32A   0000                   add     [eax], 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     [eax], al006DD346   0000                   add     [eax], 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 [eax]006DD359   0000                   add     [eax], al006DD35B   00FF                   add     bh, bh006DD35D   FFFF                   DB  $FF, $FF  //      006DD35F   FF10                   call    dword ptr [eax]006DD361   0000                   add     [eax], al006DD363   00B3C9B6BCCD           add     [ebx+$CDBCB6C9], 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     [eax], al006DD37E   0000                   add     [eax], 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     [eax], 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:[eax]006DD5FA   648920                 mov     fs:[eax], esp006DD5FD   FF0564127300           inc     dword ptr [$00731264]006DD603   33C0                   xor     eax, eax006DD605   5A                     pop     edx006DD606   59                     pop     ecx006DD607   59                     pop     ecx006DD608   648910                 mov     fs:[eax], 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

pascal语言,什么东西

zhangweizj

哈哈 ,看样子是网关切换..

helloabc

这段程序直接使用机器指令,   应该只有内部人事才能看得懂.

wavecb

网络认证而已==一狗狗

liusimin

本人同意楼上的观点哦

cgfans999

机器指令部分不懂 建意你做一个本地验证服务器才是解决之道

easehu

'www.addol.com'的游戏更新系统的验证啊。用 DEDE 反编译也看不出什么东西啊，发这里你发错了啊，要发发到DIYPE.COM 去啊。

wavecb

到处发机会大些哈哈

henrt

拿别人程序DEDE的。。。难看懂啊