Re: [delphi-br] Sniffer!

[Thiago Teixeira]

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]>:
>
> > 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]

Re: [delphi-br] Sniffer!

[Pedro Vagner Rossi]

Só adicionando meu parecer.

Esta função pode funcionar, desde que o servidor pemita o acesso ao ping. Aqui 
onde trabalho, meus servidores são Linux, e em TODOS eles eu bloqueio acesso ao 
ping. Conclusão. Neste caso. Você vair ter que procurar outra saída.

Pedro V Rossi

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Sniffer!

[Andre Mesquita]

  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]>:
> 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
>
>
>