delphi2007 教程

谁有用DELPHI发ARP包的源代码 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiNetwork/html/delphi_20061216102243111.html
我知道PACKET.dll里有个packetsendpacket,不知道参数如何填,请大侠指教,加分多多!  
 

来混分  
   
  __published:  
                  TButton   *Button1;  
                  void   __fastcall   Button1Click(TObject   *Sender);  
              private:  
                  typedef   unsigned   long(__import   __stdcall   Fun_2ul2ulPtrTOul)(unsigned   long,unsigned   long,unsigned   long*,unsigned   long*);  
                  Fun_2ul2ulPtrTOul   *Func1;  
                  bool   fromIPtoMAC(String&);  
              public:  
                  __fastcall   Tmain_(TComponent*   Owner);  
  ###################################################################  
    bool   Tmain_::fromIPtoMAC(String&   S)  
  {             HINSTANCE   hIphlpapiDll;  
              hIphlpapiDll=LoadLibrary("iphlpapi.dll");  
              if(hIphlpapiDll==NULL)  
              {  
                  FreeLibrary(hIphlpapiDll);  
                  S="好像没有找到iphlpapi.dll";  
                  return   false;  
              }  
   
              unsigned   long   Rt,L_id,*L_MAC,L_phyAddrLen;  
              Rt=-1;  
              L_id=inet_addr(S.c_str());//   inet_appr   #include       <winsock2.h>  
              if(L_id==INADDR_NONE)  
              {  
                  FreeLibrary(hIphlpapiDll);  
                  S="无效IP地址--"+S;  
                  return   false;  
              }  
              __int64   x=0;  
              L_MAC=reinterpret_cast<unsigned   long*>(&x);  
              L_phyAddrLen=6;  
   
              (FARPROC   &)Func1=GetProcAddress     (hIphlpapiDll,"SendARP");                                    
  Rt=Func1(L_id,0,L_MAC,&L_phyAddrLen);  
              if(Rt!=0)  
              {  
                  FreeLibrary(hIphlpapiDll);  
                  S="没找到机器--"+S;  
                  return   false;  
              }  
   
              String   Str_MAC;  
              Str_MAC=IntToHex(x,8).SubString(1,12);  
              Str_MAC=Str_MAC.Length()<12?"0"+Str_MAC:Str_MAC;  
              S=S+"     "+Str_MAC;  
   
              FreeLibrary(hIphlpapiDll);  
              return   true;  
          }  
 

关中刀客的这段代码,我没看明白,好像不完整,是否下面还有.要是能翻译成DELPHI就好了.

Windows   中可以直接发二层的包吗？（学习中...）

const   INADDR_NONE   =   $FFFFFFFF;  
   
  function   SendARP(const   DestIP:   DWord;  
      const   SrcIP:   DWord;  
      const   pMacAddr:   Pointer;  
      const   PhyAddrLen:   PULONG):   DWord;   stdcall;   external   'IPHLPAPI.DLL'   name   'SendARP';  
   
  function   inet_addr(const   cp:   PChar):   DWord;   stdcall;   external   'WS2_32.DLL'   name   'inet_addr';  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      dwResult:   DWord;  
      ulIPAddr:   DWord;  
      ulMACAddr:   array[0..5]   of   Byte;  
      ulAddrLen:   ULONG;  
  begin  
      ulIPAddr   :=   inet_addr(PChar(Edit1.Text));  
  //     ShowMessage(IntToHex(ulIPAddr,   8));  
      if   ulIPAddr   =   INADDR_NONE   then  
            begin  
                MessageDlg('Invalid   IP   address',   mtError,   [mbOK],   0);  
                Exit;  
            end;  
      ulAddrLen   :=   6;  
      dwResult   :=   SendARP(ulIPAddr,   0,   @ulMACAddr,   @ulAddrLen);  
      if   dwResult   <>   0   then  
            begin  
                MessageDlg('Error   in   send   ARP   request',   mtError,   [mbOK],   0);  
                Exit;  
            end;  
      ShowMessage('MAC   address   :   '   +  
          IntToHex(ulMACAddr[0],   2)   +   ':'   +  
          IntToHex(ulMACAddr[1],   2)   +   ':'   +  
          IntToHex(ulMACAddr[2],   2)   +   ':'   +  
          IntToHex(ulMACAddr[3],   2)   +   ':'   +  
          IntToHex(ulMACAddr[4],   2)   +   ':'   +  
          IntToHex(ulMACAddr[5],   2));  
  end;

我来混分

谢谢ly_liuyang兄,这段代码是获取指定IP的MAC,这个我会,我要的是向指定IP发送ARP欺骗包,不知哪会大仙做过,望不吝赐教,或直接发至我的邮箱:mail@net9999.com,加分无数

俺用Delphi和wincap包写过一个,只是不知道放哪了。哪天找到了，就给你。不过，你自己也可以看看Wincap包，其实挺简单的。

用Delphi和wincap包中PacketReceivePacket函数接包时出现内存泄漏。  
  这是扫描什么原因？

ly_liuyang:  
   
  我测试过你的代码，在同一网段没有问题，隔网段就有ARP错误！得不到MAC  
   
  还请指教阿！

fengxue291080(为分而来。。。。。。)，你说的“在同一网段没有问题，隔网段就有ARP错误！得不到MAC”，你补补网络基础方面的课吧。  
   
 

arp协议是广播型的，是不能跨网段的

SendARP,   获取指定IP对应的MAC

不是楼主需要的