Delphi IdTCPClient1实现端口扫描器

本文整理自网络，侵删。

 
procedure TForm1.Button1Click(Sender: TObject);

var
  i: integer;
begin
  IdTCPClient1.Host := Edit1.Text;
  for i := SpinEdit1.Value to SpinEdit2.Value do
  begin
    IdTCPClient1.Port := i;
    try
      IdTCPClient1.Connect;
      if IdTCPClient1.Connected then
        Memo1.Lines.Add(Edit1.Text + ':' + IntToStr(i) + ' [TCP] open');
    except
      IdTCPClient1.Disconnect;
    end;
  end;
end;
 

相关阅读 >>

Delphi 查询某个字符在字符串出现的位置，支持查找次数

Delphi 创建一个大小不可改变的窗体,通用模板

Delphi 执行dos命令并捕获输出

Delphi请求http接口中文乱码问题

Delphi 一个call应该如何写?

Delphi 弹出输入框的inputquery, inputquery 函数用法

Delphi 2010下使用sqlitesimpleDelphi连接sqlite数据库及中文乱码问题的解决

Delphi获取程序自身路径的函数

Delphi fdquery遍历输出 json

Delphi trunc转换函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi IdTCPClient1实现端口扫描器