sniffer no delphi

Question

alguem tem algum fonte de snifer em delphi??????...

Carnette · Answer

Bah..o uni SNIFFER que conhe�o � aquele personagem do THINDERCAT�s...sorry......

Marcelo · Answer

� isso ai caro amigo �carnette�, ate eu,,,, nao conheco nenhum outro nao cara!!!!!!rs... se vc puder dizer mais detalhadamente o que essa coisa, talves........

Aroldo Zanela · Answer

[quote:bc224f6687=�marcelo�]� isso ai caro amigo �carnette�, ate eu,,,, nao conheco nenhum outro nao cara!!!!!!rs... se vc puder dizer mais detalhadamente o que essa coisa, talves.....[/quote:bc224f6687]Veja o artigo...//www.remote-access.org/artigos/sniffer.asp...

Carnette · Answer

[quote:10f319a027=�Aroldo Zanela�][quote:10f319a027=�marcelo�]� isso ai caro amigo �carnette�, ate eu,,,, nao conheco nenhum outro nao cara!!!!!!rs... se vc puder dizer mais detalhadamente o que essa coisa, talves.....[/quote:10f319a027]Veja o artigo...//www.remote-access.org/artigos/sniffer.asp[/quote:10f319a027]Bom �AINDA BEM QUE EU N�O SEI O QUE � ISSO�.....pois, a materia que vc disse para ler, me esclareceu...e, � bom que n�o exista tal componente....pois, certamente quem quer este tipo de componente....fatalmente n�o � para fazer bom uso.......

Anonymous · Answer

Legal o artigo,,, mas pra que vc quer saber sobre essa coisa?....h���,,, certamente boa coisa nao �!!! n�?...

Marcelo · Answer

Legal o artigo,,, mas pra que vc quer saber sobre essa coisa? ....h���,,, certamente boa coisa nao �!!! n�?...

Aroldo Zanela · Answer

[quote:06c27982a6=�marcelo�]Legal o artigo,,, mas pra que vc quer saber sobre essa coisa? ....h���,,, certamente boa coisa nao �!!! n�?[/quote:06c27982a6]H� alguns anos me interessei pelo desenvolvimento de ANTI-V�RUS e o caminho que segui foi procurar por fontes de v�rus e realmente foi �til. Com certeza, nosso colega merece o benef�cio da d�vida.Acredito que um bom entendimento de sockts ser� imprescind�vel para quer seja qual a finalidade. (Procure por Winsock)....

Iskatrek · Answer

eu tenho, me procura no icq[b:149e2c6a85]89160524 iskaTreK[/b:149e2c6a85]...

Dicipulofer · Answer

Por favor algu�m sabe de algum componente no delphi que captura pacote ? ( snifer ) ?...

Nildo · Answer

Sniffer � um programa que captura todos os dados que passam pela rede em que seu computador est�. Eu j� tive minha �poca nessa �rea de programa��o. Eu tenho um exemplo aqui funcionando. Me passa seu email que eu te mando. Voc� precisa de um tal de WinPCap

Nildo · Answer

Primeiro baixa esse arquivo, que � a instala��o do WinPCap.
http://winpcap.polito.it/install/bin/WinPcap_3_01_a.exe

Aqui os .PAS que deve usar:
http://home1.stofanet.dk/nitezhifter/files/Delphi�20Pcap.zip

Agora um exemplo:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,Zniffer, ExtCtrls;

type
TForm1 = class(TForm)
  Panel1: TPanel;
  Button1: TButton;
  ComboBox1: TComboBox;
  Memo1: TMemo;
  procedure FormCreate(Sender: TObject);
  procedure ComboBox1Change(Sender: TObject);
private
  { Private declarations }
  FZniffer : TZniffer;
  procedure ReadPacket(Data:pointer;recvbytes:Word);
public
  { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Fzniffer := TZniffer.create;
Fzniffer.OnPacket := ReadPacket;
Combobox1.Items.assign(Fzniffer.Adapters);
Combobox1.text:=�< SELECT ADAPTER >�;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var E:string;
begin
if Fzniffer.Snooping then
  if not Fzniffer.Deactivate(E) then  raise Exception.create(e);
Fzniffer.AdapterIndex := COmbobox1.ItemIndex;
if not Fzniffer.Activate(e) then raise Exception.create(e);
end;

procedure TForm1.ReadPacket(Data: pointer; recvbytes: Word);
begin
memo1.Lines.add(�Packet snooped. Bytes: �+inttostr(recvbytes) );
end;

end.

Dicipulofer · Answer

Muito obrigado mesmo....

F�rum sniffer no delphi #142156