谁有用DELPHI发ARP包的源代码

Question

我知道PACKET.dll里有个packetsendpacket,不知道参数如何填,请大侠指教,加分多多!

Answer 1

来混分__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;
    }

Answer 2

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

Answer 3

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

Answer 4

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;

Answer 5

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

Answer 6

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

Answer 7

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

Answer 8

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

Answer 9

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

Answer 10

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

Answer 11

SendARP, 获取指定IP对应的MAC