procedure TForm1.Timer1Timer(Sender: TObject);
var
I : integer;
begin
Memo1.Clear;
for I := 0 to 1000 do begin
ServerSocket1.Close;
ServerSocket1.Port := I;
try
ServerSocket1.Open;
except
Memo1.Lines.Add(IntToStr(I) + '端口被打开!');
end;
end;
Timer1.Enabled := FALSE;
end;
返回信息
7端口被打开!
9端口被打开!
13端口被打开!
17端口被打开!
19端口被打开!
21端口被打开!
25端口被打开!
42端口被打开!
53端口被打开!
80端口被打开!
119端口被打开!
135端口被打开!
139端口被打开!
443端口被打开!
445端口被打开!
515端口被打开!
563端口被打开!
