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的md2、md4、md5类

Delphi idhttp returning http 1.1/500 显示错误内容

Delphi第三方控件通用安装方法

Delphi ini 文件操作记要: 使用 tmeminifile

Delphi 获取文件夹时间

Delphi 在vcl中显示一个非激活状态的窗口

Delphi monthcalendar1 获取选中日期

Delphi 控制台关闭指定窗口

Delphi文本文件读与写

Delphi webbrowser1提取网页中的所有链接、点击第 n 个链接

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

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