Сканер портов на удаленной машине

[Arsenx777]

У меня есть некий IP-адресс компьтера, как можно на delphi проверить открыт ли тот или иной порт?

Например: Мне надо узнать открыт ли порт 777 ? Знаю только IP-адресс.

Как или с помощью чего это можно реализовать?

[Пепел Феникса]

с помощью сокета попробовать подрубиться.

[Arsenx777]

Я тут нагугли что то

program Scanner;

{$APPTYPE CONSOLE}
uses

SysUtils, WinSock2;

var

D: TWSAData;
S : TSocket;
A : TSockAddr;
ports : Integer;
PName : String;
tec : PServEnt;
begin
writeln('Port Scanner by Dark Eagle');
writeln;
if paramcount < 1 then
begin
writeln('Usage : '+paramstr(0)+' 127.0.0.1 1 1024');
exit;
end;
if WSAStartup(MAKEWORD(2,0), D) <> 0 then
begin
writeln('Error');
exit;
end;
A.sin_family := AF_INET;
A.sin_addr.S_addr := inet_addr(pchar(paramstr(1)));
S := socket(AF_INET, SOCK_STREAM,0);
if S = INVALID_SOCKET then
begin
writeln('Invalid socket');
exit;
end;
for ports := StrToInt(paramstr(2)) to StrToInt(paramstr(3)) do
begin
A.sin_port := htons(ports);
tec := getservbyport(htons(ports), 'TCP');
if tec = nil then
PName := 'Unknown'
else
begin
PName := tec.s_name;
end;
if connect(S,@A,sizeof(A))=0 then
writeln(IntToStr(ports)+' '+ PName +' open')
else
writeln(IntToStr(ports)+' '+ PName +' close');
end;
WSACleanup;
closesocket(S);
writeln;
writeln('Scan complete');
end.

Мне кажется тут долно все работать.

Объсните кто знает что тут произходит в некоторых строках, или можно ли это как то по проще написать, просто не хочу тупо код копировать) хочу понять как это работает

[Пепел Феникса]

что не понятно?