“广外女生”源代码，但我不会看。大家教教我。(1分)

unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, ExtCtrls, ScktComp;
type
TForm2=class(TForm)
Image1: TImage;
Client2: TClientSocket;
Timer1: TTimer;
procedure Client2Connect(Sender: TObject;
Socket: TCustomWinSocket);
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
procedure FormKeyUp(Sender: TObject;
var Key: Word;
Shift: TShiftState);
procedure FormShow(Sender: TObject);
procedure Image1MouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X: Integer;
Y: Integer);
procedure Image1MouseUp(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X: Integer;
Y: Integer);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
Form2: TForm2;

{This file is generated by DeDe Ver 2.50 Copyright (c) 1999-2001 DaFixer}
implementation
{$R *.DFM}

procedure TForm2.Client2Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
{
* Reference to control TForm2.Client2 : TClientSocket
|
00489610 8B80D4020000 mov eax, [eax+$02D4]
* Reference to field TClientSocket.OFFS_0080
|
00489616 8B8080000000 mov eax, [eax+$0080]
0048961C BA30964800 mov edx, $00489630
|
00489621 E81288FEFF call 00471E38
00489626 C3 ret

}
end ;

procedure TForm2.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
{
004894C4 53 push ebx
004894C5 8BD8 mov ebx, eax
* Reference to field TForm2.OFFS_02E8
|
004894C7 8B83E8020000 mov eax, [ebx+$02E8]
004894CD 50 push eax
004894CE 8B00 mov eax, [eax]
* Possible reference to virtual method <UnknownType>.OFFS_4C
|
004894D0 FF504C call dword ptr [eax+$4C]
004894D3 33D2 xor edx, edx
* Reference to control TForm2.Timer1 : TTimer
|
004894D5 8B83D8020000 mov eax, [ebx+$02D8]
|
004894DB E80C94FCFF call 004528EC
004894E0 A1386B4900 mov eax, dword ptr [$496B38]
004894E5 8B00 mov eax, [eax]
004894E7 8B80EC020000 mov eax, [eax+$02EC]
004894ED 33D2 xor edx, edx
|
004894EF E88090FEFF call 00472574
004894F4 5B pop ebx
004894F5 C3 ret

}
end ;

procedure TForm2.FormCreate(Sender: TObject);
begin
{
004894F8 53 push ebx
004894F9 56 push esi
004894FA 8BD8 mov ebx, eax
* Reference to field TForm2.OFFS_02E8
|
004894FC 83BBE802000000 cmp dword ptr [ebx+$02E8], +$00
00489503 7510 jnz 00489515
00489505 6A00 push $00
* Reference to field TForm2.OFFS_02E8
|
00489507 8D83E8020000 lea eax, [ebx+$02E8]
0048950D 50 push eax
0048950E 6A00 push $00
|
00489510 E883FCFFFF call 00489198
00489515 6A13 push $13
00489517 8BC3 mov eax, ebx
|
00489519 E8A6DEFAFF call 004373C4
0048951E 50 push eax
* Reference to field TForm2.OFFS_02E8
|
0048951F 8B83E8020000 mov eax, [ebx+$02E8]
00489525 50 push eax
00489526 8B00 mov eax, [eax]
* Possible reference to virtual method <UnknownType>.OFFS_50
|
00489528 FF5050 call dword ptr [eax+$50]
* Reference to control TForm2.Image1 : TImage
|
0048952B 8BB3D0020000 mov esi, [ebx+$02D0]
00489531 A144954800 mov eax, dword ptr [$489544]
00489536 F7D0 not eax
00489538 234640 and eax, [esi+$40]
* Reference to field TImage.OFFS_0040
|
0048953B 894640 mov [esi+$40], eax
0048953E 5E pop esi
0048953F 5B pop ebx
00489540 C3 ret

}
end ;

procedure TForm2.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
{
00489724 55 push ebp
00489725 8BEC mov ebp, esp
00489727 53 push ebx
00489728 56 push esi
00489729 8BF1 mov esi, ecx
0048972B 8BD8 mov ebx, eax
* Reference to field TForm2.OFFS_02E4
|
0048972D 80BBE402000000 cmp byte ptr [ebx+$02E4], $00
00489734 7476 jz 004897AC
* Reference to control TForm2.Client2 : TClientSocket
|
00489736 8B83D4020000 mov eax, [ebx+$02D4]
* Reference to field TClientSocket.OFFS_0024
|
0048973C 80782400 cmp byte ptr [eax+$24], $00
00489740 7509 jnz 0048974B
00489742 B201 mov dl, $01
|
00489744 E82B8EFEFF call 00472574
00489749 EB61 jmp 004897AC
* Reference to field TForm2.OFFS_02DC
|
0048974B 8D83DC020000 lea eax, [ebx+$02DC]
00489751 33D2 xor edx, edx
00489753 8910 mov [eax], edx
00489755 66833E73 cmp word ptr [esi], +$73
00489759 751A jnz 00489775
* Reference to class Edit1
|
0048975B A0B4974800 mov al, byte ptr [$4897B4]
00489760 3A4508 cmp al, byte ptr [ebp+$08]
00489763 7510 jnz 00489775
* Reference to field TForm2.OFFS_02E0
|
00489765 C683E002000012 mov byte ptr [ebx+$02E0], $12
* Reference to field TForm2.OFFS_02E1
|
0048976C C683E102000002 mov byte ptr [ebx+$02E1], $02
00489773 EB10 jmp 00489785
00489775 668B06 mov ax, word ptr [esi]
* Reference to field TForm2.OFFS_02E0
|
00489778 8883E0020000 mov [ebx+$02E0], al
* Reference to field TForm2.OFFS_02E1
|
0048977E C683E102000000 mov byte ptr [ebx+$02E1], $00
* Reference to field TForm2.OFFS_02E2
|
00489785 8D83E2020000 lea eax, [ebx+$02E2]
0048978B 66C7000000 mov word ptr [eax], $0000
* Reference to field TForm2.OFFS_02DC
|
00489790 8D93DC020000 lea edx, [ebx+$02DC]
* Reference to control TForm2.Client2 : TClientSocket
|
00489796 8B83D4020000 mov eax, [ebx+$02D4]
* Reference to field TClientSocket.OFFS_0080
|
0048979C 8B8080000000 mov eax, [eax+$0080]
004897A2 B908000000 mov ecx, $00000008
|
004897A7 E86488FEFF call 00472010
004897AC 5E pop esi
004897AD 5B pop ebx
004897AE 5D pop ebp
004897AF C204 ret $04

}
end ;

procedure TForm2.FormKeyUp(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
{
004897B8 55 push ebp
004897B9 8BEC mov ebp, esp
004897BB 53 push ebx
* Reference to field TForm2.OFFS_02E4
|
004897BC 80B8E402000000 cmp byte ptr [eax+$02E4], $00
004897C3 7458 jz 0048981D
* Reference to control TForm2.Client2 : TClientSocket
|
004897C5 8B90D4020000 mov edx, [eax+$02D4]
* Reference to field TClientSocket.OFFS_0024
|
004897CB 807A2400 cmp byte ptr [edx+$24], $00
004897CF 750B jnz 004897DC
004897D1 8BC2 mov eax, edx
004897D3 B201 mov dl, $01
|
004897D5 E89A8DFEFF call 00472574
004897DA EB41 jmp 0048981D
* Reference to field TClientSocket.OFFS_02DC
|
004897DC 8D90DC020000 lea edx, [eax+$02DC]
004897E2 33DB xor ebx, ebx
004897E4 891A mov [edx], ebx
004897E6 668B11 mov dx, word ptr [ecx]
* Reference to field TClientSocket.OFFS_02E0
|
004897E9 8890E0020000 mov [eax+$02E0], dl
* Reference to field TClientSocket.OFFS_02E1
|
004897EF 8D90E1020000 lea edx, [eax+$02E1]
004897F5 66C7020200 mov word ptr [edx], $0002
* Reference to field TClientSocket.OFFS_02E3
|
004897FA C680E302000000 mov byte ptr [eax+$02E3], $00
* Reference to field TClientSocket.OFFS_02DC
|
00489801 8D90DC020000 lea edx, [eax+$02DC]
* Reference to field TClientSocket.OFFS_02D4
|
00489807 8B80D4020000 mov eax, [eax+$02D4]
0048980D 8B8080000000 mov eax, [eax+$0080]
00489813 B908000000 mov ecx, $00000008
|
00489818 E8F387FEFF call 00472010
0048981D 5B pop ebx
0048981E 5D pop ebp
0048981F C204 ret $04

}
end ;

procedure TForm2.FormShow(Sender: TObject);
begin
{
0048940C 53 push ebx
0048940D 8BD8 mov ebx, eax
0048940F 6A10 push $10
00489411 A1386B4900 mov eax, dword ptr [$496B38]
00489416 8B00 mov eax, [eax]
00489418 8B8084030000 mov eax, [eax+$0384]
0048941E 8B8028010000 mov eax, [eax+$0128]
|
00489424 E8433AF9FF call 0041CE6C
00489429 50 push eax
0048942A A1386B4900 mov eax, dword ptr [$496B38]
0048942F 8B00 mov eax, [eax]
00489431 8B8084030000 mov eax, [eax+$0384]
00489437 8B8028010000 mov eax, [eax+$0128]
|
0048943D E8123AF9FF call 0041CE54
00489442 50 push eax
* Reference to field TForm2.OFFS_02E8
|
00489443 8B83E8020000 mov eax, [ebx+$02E8]
00489449 50 push eax
0048944A 8B00 mov eax, [eax]
* Possible reference to virtual method <UnknownType>.OFFS_54
|
0048944C FF5054 call dword ptr [eax+$54]
0048944F A1386B4900 mov eax, dword ptr [$496B38]
00489454 8B00 mov eax, [eax]
00489456 8B8084030000 mov eax, [eax+$0384]
0048945C 8B9028010000 mov edx, [eax+$0128]
* Reference to control TForm2.Image1 : TImage
|
00489462 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to field TImage.OFFS_0128
|
00489468 8B8028010000 mov eax, [eax+$0128]
0048946E 8B08 mov ecx, [eax]
* Possible reference to virtual method <UnknownType>.OFFS_08
|
00489470 FF5108 call dword ptr [ecx+$08]
* Reference to field TForm2.OFFS_02E4
|
00489473 80BBE402000000 cmp byte ptr [ebx+$02E4], $00
0048947A 7445 jz 004894C1
0048947C B201 mov dl, $01
* Reference to control TForm2.Timer1 : TTimer
|
0048947E 8B83D8020000 mov eax, [ebx+$02D8]
|
00489484 E86394FCFF call 004528EC
00489489 A1386B4900 mov eax, dword ptr [$496B38]
0048948E 8B00 mov eax, [eax]
00489490 8B80EC020000 mov eax, [eax+$02EC]
00489496 8B502C mov edx, [eax+$2C]
* Reference to control TForm2.Client2 : TClientSocket
|
00489499 8B83D4020000 mov eax, [ebx+$02D4]
|
0048949F E82091FEFF call 004725C4
004894A4 BA7B180000 mov edx, $0000187B
* Reference to control TForm2.Client2 : TClientSocket
|
004894A9 8B83D4020000 mov eax, [ebx+$02D4]
|
004894AF E81092FEFF call 004726C4
004894B4 B201 mov dl, $01
* Reference to control TForm2.Client2 : TClientSocket
|
004894B6 8B83D4020000 mov eax, [ebx+$02D4]
|
004894BC E8B390FEFF call 00472574
004894C1 5B pop ebx
004894C2 C3 ret

}
end ;

procedure TForm2.Image1MouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X: Integer;
Y: Integer);
begin
{
00489548 55 push ebp
00489549 8BEC mov ebp, esp
0048954B 53 push ebx
0048954C 56 push esi
0048954D 8BD9 mov ebx, ecx
0048954F 8BF0 mov esi, eax
* Reference to field TForm2.OFFS_02E4
|
00489551 80BEE402000000 cmp byte ptr [esi+$02E4], $00
00489558 0F84AC000000 jz 0048960A
* Reference to control TForm2.Client2 : TClientSocket
|
0048955E 8B86D4020000 mov eax, [esi+$02D4]
* Reference to field TClientSocket.OFFS_0024
|
00489564 80782400 cmp byte ptr [eax+$24], $00
00489568 750C jnz 00489576
0048956A B201 mov dl, $01
|
0048956C E80390FEFF call 00472574
00489571 E994000000 jmp 0048960A
* Reference to field TForm2.OFFS_02DC
|
00489576 8D86DC020000 lea eax, [esi+$02DC]
0048957C C70001800000 mov dword ptr [eax], $00008001
00489582 8B450C mov eax, [ebp+$0C]
00489585 C1E010 shl eax, $10
* Reference to control TForm2.Image1 : TImage
|
00489588 8B96D0020000 mov edx, [esi+$02D0]
* Reference to field TImage.OFFS_0038
|
0048958E 8B4A38 mov ecx, [edx+$38]
00489591 99 cdq
00489592 F7F9 idiv ecx
* Reference to field TForm2.OFFS_02E0
|
00489594 8D96E0020000 lea edx, [esi+$02E0]
0048959A 668902 mov [edx], ax
0048959D 8B4508 mov eax, [ebp+$08]
004895A0 C1E010 shl eax, $10
* Reference to control TForm2.Image1 : TImage
|
004895A3 8B96D0020000 mov edx, [esi+$02D0]
* Reference to field TImage.OFFS_003C
|
004895A9 8B4A3C mov ecx, [edx+$3C]
004895AC 99 cdq
004895AD F7F9 idiv ecx
* Reference to field TForm2.OFFS_02E2
|
004895AF 8D96E2020000 lea edx, [esi+$02E2]
004895B5 668902 mov [edx], ax
* Reference to field TForm2.OFFS_02DC
|
004895B8 8D96DC020000 lea edx, [esi+$02DC]
* Reference to control TForm2.Client2 : TClientSocket
|
004895BE 8B86D4020000 mov eax, [esi+$02D4]
* Reference to field TClientSocket.OFFS_0080
|
004895C4 8B8080000000 mov eax, [eax+$0080]
004895CA B908000000 mov ecx, $00000008
|
004895CF E83C8AFEFF call 00472010
004895D4 33C9 xor ecx, ecx
004895D6 8ACB mov cl, bl
004895D8 03C9 add ecx, ecx
004895DA B802000000 mov eax, $00000002
004895DF D3E0 shl eax, cl
004895E1 0D00800000 or eax, $00008000
* Reference to field TForm2.OFFS_02DC
|
004895E6 8D96DC020000 lea edx, [esi+$02DC]
004895EC 8902 mov [edx], eax
* Reference to field TForm2.OFFS_02DC
|
004895EE 8D96DC020000 lea edx, [esi+$02DC]
* Reference to control TForm2.Client2 : TClientSocket
|
004895F4 8B86D4020000 mov eax, [esi+$02D4]
* Reference to field TClientSocket.OFFS_0080
|
004895FA 8B8080000000 mov eax, [eax+$0080]
00489600 B908000000 mov ecx, $00000008
|
00489605 E8068AFEFF call 00472010
0048960A 5E pop esi
0048960B 5B pop ebx
0048960C 5D pop ebp
0048960D C20C ret $0C

}
end ;

procedure TForm2.Image1MouseUp(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X: Integer;
Y: Integer);
begin
{
00489634 55 push ebp
00489635 8BEC mov ebp, esp
00489637 53 push ebx
00489638 56 push esi
00489639 8BD9 mov ebx, ecx
0048963B 8BF0 mov esi, eax
* Reference to field TForm2.OFFS_02E4
|
0048963D 80BEE402000000 cmp byte ptr [esi+$02E4], $00
00489644 0F84AC000000 jz 004896F6
* Reference to control TForm2.Client2 : TClientSocket
|
0048964A 8B86D4020000 mov eax, [esi+$02D4]
* Reference to field TClientSocket.OFFS_0024
|
00489650 80782400 cmp byte ptr [eax+$24], $00
00489654 750C jnz 00489662
00489656 B201 mov dl, $01
|
00489658 E8178FFEFF call 00472574
0048965D E994000000 jmp 004896F6
* Reference to field TForm2.OFFS_02DC
|
00489662 8D86DC020000 lea eax, [esi+$02DC]
00489668 C70001800000 mov dword ptr [eax], $00008001
0048966E 8B450C mov eax, [ebp+$0C]
00489671 C1E010 shl eax, $10
* Reference to control TForm2.Image1 : TImage
|
00489674 8B96D0020000 mov edx, [esi+$02D0]
* Reference to field TImage.OFFS_0038
|
0048967A 8B4A38 mov ecx, [edx+$38]
0048967D 99 cdq
0048967E F7F9 idiv ecx
* Reference to field TForm2.OFFS_02E0
|
00489680 8D96E0020000 lea edx, [esi+$02E0]
00489686 668902 mov [edx], ax
00489689 8B4508 mov eax, [ebp+$08]
0048968C C1E010 shl eax, $10
* Reference to control TForm2.Image1 : TImage
|
0048968F 8B96D0020000 mov edx, [esi+$02D0]
* Reference to field TImage.OFFS_003C
|
00489695 8B4A3C mov ecx, [edx+$3C]
00489698 99 cdq
00489699 F7F9 idiv ecx
* Reference to field TForm2.OFFS_02E2
|
0048969B 8D96E2020000 lea edx, [esi+$02E2]
004896A1 668902 mov [edx], ax
* Reference to field TForm2.OFFS_02DC
|
004896A4 8D96DC020000 lea edx, [esi+$02DC]
* Reference to control TForm2.Client2 : TClientSocket
|
004896AA 8B86D4020000 mov eax, [esi+$02D4]
* Reference to field TClientSocket.OFFS_0080
|
004896B0 8B8080000000 mov eax, [eax+$0080]
004896B6 B908000000 mov ecx, $00000008
|
004896BB E85089FEFF call 00472010
004896C0 33C9 xor ecx, ecx
004896C2 8ACB mov cl, bl
004896C4 03C9 add ecx, ecx
004896C6 B804000000 mov eax, $00000004
004896CB D3E0 shl eax, cl
004896CD 0D00800000 or eax, $00008000
* Reference to field TForm2.OFFS_02DC
|
004896D2 8D96DC020000 lea edx, [esi+$02DC]
004896D8 8902 mov [edx], eax
* Reference to field TForm2.OFFS_02DC
|
004896DA 8D96DC020000 lea edx, [esi+$02DC]
* Reference to control TForm2.Client2 : TClientSocket
|
004896E0 8B86D4020000 mov eax, [esi+$02D4]
* Reference to field TClientSocket.OFFS_0080
|
004896E6 8B8080000000 mov eax, [eax+$0080]
004896EC B908000000 mov ecx, $00000008
|
004896F1 E81A89FEFF call 00472010
004896F6 5E pop esi
004896F7 5B pop ebx
004896F8 5D pop ebp
004896F9 C20C ret $0C

}
end ;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
{
* Reference to field TForm2.OFFS_02EC
|
004896FC 80B8EC02000000 cmp byte ptr [eax+$02EC], $00
00489703 741B jz 00489720
* Reference to field TForm2.OFFS_02EC
|
00489705 C680EC02000000 mov byte ptr [eax+$02EC], $00
0048970C A1386B4900 mov eax, dword ptr [$496B38]
00489711 8B00 mov eax, [eax]
00489713 8B80EC020000 mov eax, [eax+$02EC]
00489719 B201 mov dl, $01
|
0048971B E8548EFEFF call 00472574
00489720 C3 ret

}
end ;

end.

天书~~me不懂

这个是反编译的吧！
当然不容易看懂了！

同意minkerui！是反编译的,当然不容易看懂了！

天哪！这就是你所谓的“源码”？？！！——还不如直接来个exe实在——好歹还能运行看看效果。
这几十K的东西还是删掉吧，没有人也不可能有人把时间花在这种没有头绪、毫无意义的问题上的。

是啊是啊，真是撤！！！！

是反编译的,,呵呵天书~~

呵呵，我还以为学了半年DELPHI白学了尼，看不懂：）
原来是反编译的啊

是用dede反编译的罢
里面所能看到的对象名称都是用默认名，估计也。。。

你有病吧，不会回答就不要在别人的帖子上瞎说话，傻B

接受答案了.