5,388
社区成员
发帖
与我相关
我的任务
分享Delphi 中如何进行端口扫描？？？（有60分哦）
如何用Delphi写一个扫描网络上另一台机子有那些端口开放的程序？？？
只要能给出端口扫描函数就给分！！
只要能给出端口扫描函数就给分！！
...全文
请发表友善的回复…
发表回复
monday 2001-09-05
- 打赏
- 举报
关注
IamRoamer 2001-09-05
- 打赏
- 举报
拖一个TClientSocket到桌面；命名为Client
Client.Address:=你要扫描的主机的IP;
for i:=1 to 65535 do
begin
Client.Active:=False;
Client.Port:=i;
Client.Socket.Data:=Pointer(i); //待会根据这个判断哪个端口连上了
Client.Active:=TRUE;
end;
下面是Client的OnConnect事件
procedure TForm1.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
ShowMessage(IntToStr(Integer(Socket.Data))+'号端口连接成功');
end;
Client.Address:=你要扫描的主机的IP;
for i:=1 to 65535 do
begin
Client.Active:=False;
Client.Port:=i;
Client.Socket.Data:=Pointer(i); //待会根据这个判断哪个端口连上了
Client.Active:=TRUE;
end;
下面是Client的OnConnect事件
procedure TForm1.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
ShowMessage(IntToStr(Integer(Socket.Data))+'号端口连接成功');
end;
dq 2001-09-05
- 打赏
- 举报
关注一下
（为啥没有email通知呢？）
（为啥没有email通知呢？）
hieefxz 2001-09-04
- 打赏
- 举报
希望大家踊跃发言，好的话会再加分！
