ip scanner

[webaytek]

bu konu beni aşıyor ama Bir ip scanner yapmak istesek
2 tane edit içine yazılan xxx.xxx.xx.xx gibi bir rakam ile yyy.yyy.yy.yy gibi bir rakam arasındaki geçerli ip adreslerini listelemek ve bir tabloya aktarmak için hangi komutlar kullanılmalıyız (sadece işin mantığını kavramak açısından - kod istemiyorum - isterseniz ayrı )

[webaytek]

hadi hadi neyse başliim bari bi ip scanner olayına başladım da hala 1.sorumun cevabını da beklemekteyim bu da ikincisi

Kod: Tümünü seç

uses 
  NB30; 

{$R *.dfm} 

function GetAdapterInfo(Lana: Char): String; 
var 
  Adapter: TAdapterStatus; 
  NCB: TNCB; 
begin 
  FillChar(NCB, SizeOf(NCB), 0); 
  NCB.ncb_command := Char(NCBRESET); 
  NCB.ncb_lana_num := Lana; 
  if Netbios(@NCB) <> Char(NRC_GOODRET) then 
  begin 
    Result := 'mac adresi bulunamadı'; 
    Exit; 
  end; 

  FillChar(NCB, SizeOf(NCB), 0); 
  NCB.ncb_command := Char(NCBASTAT); 
  NCB.ncb_lana_num := Lana; 
  NCB.ncb_callname := '*'; 

  FillChar(Adapter, SizeOf(Adapter), 0); 
  NCB.ncb_buffer := @Adapter; 
  NCB.ncb_length := SizeOf(Adapter); 
  if Netbios(@NCB) <> Char(NRC_GOODRET) then 
  begin 
    Result := 'mac adresi bulunamadı'; 
    Exit; 
  end; 
  Result := 
    IntToHex(Byte(Adapter.adapter_address[0]), 2) + '-' + 
    IntToHex(Byte(Adapter.adapter_address[1]), 2) + '-' + 
    IntToHex(Byte(Adapter.adapter_address[2]), 2) + '-' + 
    IntToHex(Byte(Adapter.adapter_address[3]), 2) + '-' + 
    IntToHex(Byte(Adapter.adapter_address[4]), 2) + '-' + 
    IntToHex(Byte(Adapter.adapter_address[5]), 2); 
end; 

function GetMACAddress: string; 
var 
  AdapterList: TLanaEnum; 
  NCB: TNCB; 
begin 
  FillChar(NCB, SizeOf(NCB), 0); 
  NCB.ncb_command := Char(NCBENUM); 
  NCB.ncb_buffer := @AdapterList; 
  NCB.ncb_length := SizeOf(AdapterList); 
  Netbios(@NCB); 
  if Byte(AdapterList.length) > 0 then 
    Result := GetAdapterInfo(AdapterList.lana[0]) 
  else 
    Result := 'mac adresi bulunamadı'; 
end; 

bu kod makinanın mac adresini alıyor anladık da karşı makinanın mac adresini nasıl alcezz?

[gkimirti]

mantık olarak neyi scan edeceksin o onemli
ipleri tarayıp cevap verenleri bulmaksa amacın
sırayla iplere ping at cevabı gelenleri listeye ekle.
ping atma konusunda indy and ping diye forumda aratabilirsin
gelen sonucları okuyabilirsin
ayrıca google groups ta
http://groups.google.com/groups?hl=en&l ... lic.delphi
aratarak 100binlerce mesaj arasından istedigini secebilirsin.