Thiago,
acho que vai te ajudar :
Delphi 7 -> paleta "Internet" -> TcpClient
TcpClientTeste.RemoteHost := Edit1.Text; // número IP ou hostname a
ser testado
TcpClientTeste.RemotePort := Edit2.Text; // número da porta a ser
testada
TcpClientTeste.Active := True; // "tenta" abrir a
conexão
if TcpClientTeste.Connect then
begin
ShowMessage('porta aberta');
TcpClientTeste.disconnect
end
else
ShowMessage('porta fechada');
Detalhe : demora uns 2 a 3 segundos quando está fechada.
Madsom.
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Thiago Teixeira
Enviada em: quinta-feira, 18 de janeiro de 2007 08:42
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Sniffer!
Vlw!!!!!
vou desenvolver essas func. aki!!!
[]'s
2007/1/17, Andre Mesquita <[EMAIL PROTECTED]>:
>
> Fiz uma função que pode resolver seu problema... é claro que do
> jeito que ela está vai demorar um bom tempo. Agora vc tem duas
> tarefas: a primeira é desenvolver um função que faça o ping e te
> retorne se o computador respondeu ou não, e a outra é otimizar esse
> código e depois disponibilizá-lo para os nobres colegas da lista.
>
> Como escrevi essa msg no cliente de e-mail, não testei.
>
> Ahh, a função te retorna quais são os computadores ativos. Você tem
> uma terceira tarefa: escutar a porta desejada.
>
> [ ]'s,
>
> Andre
>
> function listaComputadoresAtivos : TStringList;
> var
> i,j,k,l : Integer;
> sl : TStringList;
> begin
> sl := TStringList.Create;
> for i := 1 to 254 do
> for j := 1 to 254 do
> for k := 1 to 254 do
> for l := 1 to 254 do
> begin
> ip := IntToStr(i)+'.'+IntToStr(j)+'.'+IntToStr(k)+'.'+IntToStr(l);
> if ping(ip) then
> sl.add(ip);
> // end if
> end;
> Result := sl;
> end;
>
> 2007/1/17, Thiago Teixeira
<[EMAIL PROTECTED]<thiagoateixeira%40gmail.com>>:
>
> > Bom dia,
> >
> > Pessoa preciso fazer um sniffer em delphi, mas para a seguinte
> > funcionalidade, em uma rede, preciso encontrar o servidor, não sei o
ip
> > dele, mas sei a porta, então vou varrer a rede e procurar um servidor
> com
> > uma determinada porta.
> >
> > Alguém pode me dar alguma informação de como vou fazer isso?
> >
> > mto obriga!
> >
> > --
> > Atenciosamente
> >
> > Thiago Alves Teixeira
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> > Links do Yahoo! Grupos
> >
> >
> >
>
>
>
--
Atenciosamente
Thiago Alves Teixeira
[As partes desta mensagem que não continham texto foram removidas]
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.410 / Virus Database: 268.17.0/639 - Release Date: 18/01/2007
[As partes desta mensagem que não continham texto foram removidas]
