Скачать: CL | DM;

Сканирование портов   Найти похожие ветки 

← →
Rezya   (2004-03-09 20:42) [0]

Люди добрые подскажите PLZZZZ....
Написал сканер портов на основе winsock. Он работает но крайне медленно в отличии тех сканеров что я скачал с I-Net. Чем это обусловлено и как ускорить скорость работы.
Приведу код чтобы было понятно

procedure WWW.Execute;
Var
Data:WsaData;
Sock:TSocket;
Addr:sockaddr_in;
begin
if (WSAStartup($202,Data) <> 0)then  Synchronize(WSAStartup1);

Sock:=Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);

if (Sock=INVALID_SOCKET) then   Synchronize(INVALID_SOCKET1);

Addr.sin_family:=AF_INET;
Addr.sin_addr.S_addr:=inet_Addr(PChar(IpAdress));

For K:=StartPort to EndPort do
begin
Addr.sin_port:=htons(k);
Synchronize(Count);
if Connect(Sock,Addr,Sizeof(Addr))<>0 then
begin
//Synchronize(Error);
end
else
begin
Synchronize(Good);
end;
end;
end;



Делал Отдельным процессом дабы не загружать прогу.
Если кто чем поможет заранее Благодарен.

---

← →
Verg ©   (2004-03-09 20:58) [1]

Дело в том, что ты не используешь не только возможностей многопоточности, но и мощности самого WinSock. Ты применяешь последовательную схему, т.е. пока попытка соединения с одним портом не закончится, к следующему ты не приступаешь.
Хотя можно было бы использовать неблокирующие сокеты с мультиплексированием, например.

Вот почитай пока.

http://delphimaster.net/view/6-1078117651/

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c