Indetectables

este escaner usa netcat para comprobar los puertos , nesecitaran descargar el componente DosCommand para que compile
lo que me gusta de este escaner es que si el puerto esta cerrado tarda 1 segundo en detectarlo (y no los 15 o 20 segundos que tardarian otros programas echos en delphi, esto es gracias al thread que ejecuta doscommand
que cierra el netcat en caso de que no este el puerto abierto
pueden usar strings en vez de los edit.text para mejorarlo y otras cosas mas

[Enlace externo eliminado para invitados]
dentro del zip inclui netcat (detectado por todos los av , aclaro por si preguntan)

15-20 segundos?



Con Indy lo haces al momento:

procedure TForm1.Button1Click(Sender: TObject);
var
  Cliente: TIdTcpClient;
begin
  Cliente:= TidTcpClient.Create(nil);
  try
    try
      Cliente.Host:= edit1.Text;
      Cliente.Port:= strtoint(edit2.Text);
      Cliente.Connect(100);
      label3.Caption:= 'Estado: Abierto';
    except
      label3.Caption:= 'Estado: Cerrado';
    end;
  finally
    freeAndNil(Cliente);
  end;
end;

Te quedó bueno, gracias!

con indy ni se me ocurrio buscar codigos yo probaba con socket
(que a mi nivel es mas facil)
y me pasaba esto de que no cerraba hasta 15 segundos
pero esta mortal el codigo que pusiste lo compile y funciona mejor que el enjendro que programe , fue muy rebuscado al no encontrar ejemplos en socket
gracias por el ejemplo!