Artigo Clube Delphi Edição 42 - Conexões Multithreaded

Conexões Multithreaded

IP/Port Scan e técnicas de otimização

Você já deve ter ouvido falar em um IP scan ou um Port scan. Basicamente eles têm a função de encontrar em uma rede IPs que estejam com uma determinada porta aberta, e encontrar todas as portas abertas em um determinado IP, respectivamente. Ao longo deste artigo, demonstraremos a implementação de um utilitário com esse propósito.

Visão geral

Desenvolveremos nosso aplicativo dividindo-o em três partes bem definidas, são elas: o "kernel", um componente e a interface gráfica. No kernel, residirá a parte mais interessante de nosso código – ele encapsula uma thread responsável por realizar a conexão. O componente fica encarregado de gerenciar as threads, de acordo com as configurações especificadas, além de notificar a interface gráfica o estado atual de seu trabalho. A interface, por sua vez, exemplificará o uso do componente criado apresentando informações sobre o andamento do processo.

Nosso aplicativo poderá ser utilizado para os mais variados fins. Poderemos usá-lo, por exemplo, para descobrir quais máquinas numa rede são servidores FTP. Para isso, basta que façamos uma pesquisa pelos hosts que estão com a porta 21 aberta, por exemplo. Ainda podemos verificar o comportamento de algum aplicativo suspeito, colocá-lo em execução e verificar se ele abriu alguma nova porta. Poderíamos listar muitas outras possibilidades...

Metodologia

Para verificar se uma determinada porta está aberta, apenas tentaremos nos conectar a ela. Caso a conexão seja estabelecida, contabilizaremos um sucesso; caso contrário, uma exceção será levantada e tratada.

Muitas vezes existe uma dificuldade em identificar se uma aplicação deve ou não utilizar múltiplas threads. Nesse exemplo, veremos a vantagem da dividir o processamento em várias threads – o uso de apenas uma imporia uma grande perda de tempo, pois as tentativas de conexão teriam de esperar "em fila". Essa é a chave do processo: como não há dependências entre as conexões, podemos fazê-las em paralelo, aumentando o desempenho da aplicação.

O kernel

O "kernel", a parte principal da aplicação, é a classe TScan. Para iniciar o exemplo, faça o seguinte: caso o Delphi esteja aberto clique em File | Close All. Crie um novo pacote no Delphi, clicando em File|New|Other>Package (salve-o como “pkScan.dpk”), crie uma unit e salve-a como “untScan.pas”. Veja o conteúdo da unit na Listagem 1.

Listagem 1. untScan.pas

unit untScan;

interface

uses

  Classes, SysUtils, SyncObjs, StdCtrls,

  IdBaseComponent, IdComponent, IdTCPConnection,

  IdTCPClient;

type

  TFoundEvent = procedure (Source : TObject; const IP : String;

      const Porta : Integer) of object;

  TThreadTerminate = TNotifyEvent;

  TScan = class(TThread)

  private

    FSkt : TIdTCPClient;

    FTimeOut : Integer;

    FFoundEvent : TFoundEvent;

    FFimEvent : TThreadTerminate;

    procedure DoFim;

    procedure Fim(Sender : TObject);

    procedure DoConnect(Sender: TObject);

  protected

    procedure Execute; override;

  public

    constructor CreateSetting

      (FoundEvent : TFoundEvent; FimEvent : TThreadTerminate;

        const IP : String; const Porta, TimeOut : Longint);

    property TimeOut : Integer read FTimeOut write FTimeOut;

  end;

implementation

constructor TScan.CreateSetting

  (FoundEvent : TFoundEvent; FimEvent : TThreadTerminate;

  const IP: String; const Porta, TimeOut: Integer);

...