Hola, estoy intentando hacer una aplicación que dado un rango de direcciones ip, y una lista de puertos nos diga los puertos abiertos de cada ip.
Para ello primero hago un ping (esta parte del programa me funciona bien) y si la la maquina de esa ip responde paso a escanear los puertos de la lista. Para escanear los puertos he utilizado una función posteada por seoane que es la siguiente:
Código Delphi
[-]
function EstaAbierto(Host: string; Puerto: Integer): Boolean;
var
WSAData: TWSADATA;
Address: u_long;
HostEnt: phostent;
Addr: sockaddr_in;
CSocket: Tsocket;
begin
Result:= FALSE;
if WSAStartup(MAKEWORD(1, 1), WSADATA) = 0 then
begin
Address:= inet_addr(Pchar(Host));
if Address = INADDR_NONE then
begin
HostEnt:= gethostbyname(PChar(Host));
if HostEnt <> nil then
Address:= PInteger(HostEnt.h_addr_list^)^;
end;
if Address <> INADDR_NONE then
begin
CSocket:= socket(AF_INET, SOCK_STREAM, 0);
if CSocket <> INVALID_SOCKET then
begin
Addr.sin_family:= AF_INET;
Addr.sin_addr.S_addr:= Address;
Addr.sin_port:= htons(Puerto);
Result:= connect(CSocket, Addr, Sizeof(Addr)) <> SOCKET_ERROR;
Closesocket(CSocket);
end;
end;
WSACleanup;
end;
end;
Cuando los puertos estan abiertos la función responde rapidamente pero cuando estan cerrados tarda al rededor de 21 segundos lo cual hace la función inutilizable para mis propositos.
Tambien lo he intentado mediante TidTcpClient, que se les puede fijar un timeOut, y me funciona bien con un solo Thread pero a medida que aumentamos el numero de threads, aumenta el numero de puertos que nos da como cerrados cuando en realidad estan abiertos.
¿Alguna idea?
Gracias.