Delphi编写扫描本地端口的扫描工具
    
本程序介绍如何在程序运行过程中扫描本地计算机中已经被打开的端口。

向窗体上添加一个TListBox组件和一个TButton组件

首先在程序的uses段中添加对ScktComp的引用，并且声明一个TServerSocket组件ServerSocket1。然后在窗体的初始化过程中对组件进行初始化：

procedure TForm1.FormCreate(Sender: TObject);

begin
    ServerSocket1:=TServerSocket.Create(self);
    ServerSocket1.Active:=true;
end;

在程序运行过程中，单击Refresh按钮，就会检测本地计算机中端口号从1到10000中被打开的端口，响应代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var
    I : integer;
begin
    ListBox1.Items.Clear;
    for I := 0 to 10000 do
    begin
        ServerSocket1.Close;
        ServerSocket1.Port := I;
        try
            ServerSocket1.Open;
        except
            ListBox1.Items.Add(IntToStr(I) + '端口被打开');
        end;
    end;
end;

    ServerSocket1.Free; //释放资源

程序首先清除了TListBox组件中的现实内容。然后进入一个循环，在循环中首先关闭TServerSocket组件，重新设置TServerSocket组件后，尝试去打开TServerSocket组件，如果出现异常，就表示这个端口已经被打开了。最后，在TListBox组件中显示本地计算机中被打开的端口。

　注意:解压密码为:www.05112.org 或者 www.05112.com
* 如果是下载黑客相关软件，请注意自行杀毒！
* 为了达到最快的下载速度，推荐使用网际快车下载本站软件。
* 如果您发现该软件不能下载，请通知管理员，谢谢！
* 未经本站明确许可，任何网站不得非法盗链及抄袭本站资源；如引用页面，请注明来自本站，谢谢您的支持！
* 本站软件均收集于网络，如有侵犯您的产权请及时联系我们，我们会在得到反映的24小时内删除这些下载及相应信息！