Mac Adresse mit IP herausfinden... Habe code, wie anpassen?

[Klaus01]

Hallo,

wenn die Zieladresse nicht in Deinem Netzwerksegment liegt,
ist die MAC-Adresse die Du im Wireshark siehst die Deines nächsten Hops.
In der Regel Dein Defaulrouter.

Grüße
Klaus

[mkinzler]

Du solltest dich wirklich mal mit den Grundlagen von Netzwerken beschäftigen.

[SirTwist]

ohne mich jetzt groß in die Doku der verwendeten System-Calls eingelesen zu haben, habe ich den Verdacht, dass hier Windows-eigene Funktionen genutzt werden... sowas wie NetTransportEnum finde ich schon recht verdächtig. Und das wird natürlich mit einem Eipfone nicht funktionieren.

Einfacher geht folgendes: erstmal die IP-Adresse anpingen, und dann die lokale ARP-Tabelle auslesen. An der Kommandozeile wäre das ein "ping 192.168.25.1" und danach ein "arp -a", da kommt dann sowas bei rum:

Code:

C:\Users\benutzer>arp -a

Schnittstelle: 192.168.25.10 --- 0xa
  Internetadresse       Physische Adresse     Typ
  192.168.25.1          00-0c-4d-35-82-d0     dynamisch
  192.168.25.5          00-0c-d6-13-7e-dd     dynamisch
  192.168.25.255        ff-ff-ff-ff-ff-ff     statisch

Ich weiß, dass ich das auch mal mit Indy-Komponenten programmiert habe, aber ich komm an den Quellcode nicht mehr ran.

[zeras]

Zitat von SirTwist:

ohne mich jetzt groß in die Doku der verwendeten System-Calls eingelesen zu haben, habe ich den Verdacht, dass hier Windows-eigene Funktionen genutzt werden... sowas wie NetTransportEnum finde ich schon recht verdächtig. Und das wird natürlich mit einem Eipfone nicht funktionieren.

Einfacher geht folgendes: erstmal die IP-Adresse anpingen, und dann die lokale ARP-Tabelle auslesen. An der Kommandozeile wäre das ein "ping 192.168.25.1" und danach ein "arp -a", da kommt dann sowas bei rum:

Code:

C:\Users\benutzer>arp -a

Schnittstelle: 192.168.25.10 --- 0xa
  Internetadresse       Physische Adresse     Typ
  192.168.25.1          00-0c-4d-35-82-d0     dynamisch
  192.168.25.5          00-0c-d6-13-7e-dd     dynamisch
  192.168.25.255        ff-ff-ff-ff-ff-ff     statisch

Ich weiß, dass ich das auch mal mit Indy-Komponenten programmiert habe, aber ich komm an den Quellcode nicht mehr ran.

Thema ist schon wieder lange her, aber ich komme auch nicht weiter, wie ich mit einer bekannten IP auf die MAC eines Rechners schliessen kann, wenn diese im selben Subnetz liegt. Der Code weiter oben bringt mir auch nur '00-00-00-00-00-00' und
ShowMessage('\\192.168.x.x') bring auch nur denselben String zurück.
Mit arp -a geht es im CMD, aber da müsste ich erst eine Routine rundrum bauen, im die Ergebnisse umzuleiten.

[zeras]

push

[Aviator]

Hi,

also ich mache das Ganze mit der folgenden Funktion:

Delphi-Quellcode:

function SendARP(const DestIP, SrcIP: in_addr; pMacAddr: PULONG;                                             
                 var PhyAddrLen: ULONG): DWORD; stdcall;                                                     
                 external 'IPHLPAPI.DLL' name 'SendARP';                                                     
                                                                                                             
function GetMacAddr(const IPv4: String): String;                                                             
  const                                                                                                      
    SrcIP: in_addr = (S_addr: 0);                                                                            
  var                                                                                                        
    DestIP: in_addr;                                                                                         
    MacAddr: array[0..5] of Byte;                                                                            
    MacAddrLen, RC: DWORD;                                                                                   
    i: Integer;                                                                                              
begin                                                                                                        
  Result := '';                                                                                              
  DestIP.S_addr := inet_addr(PAnsiChar(AnsiString(IPv4)));                                                   
  MacAddrLen := Length(MacAddr);                                                                             
  RC := SendARP(DestIP,SrcIP,@MacAddr,MacAddrLen);                                                           
  case RC of                                                                                                 
    NO_ERROR:                                                                                                
      begin                                                                                                  
        if (MacAddrLen = 6) then                                                                             
          for i := 0 to 5 do begin                                                                           
            if (i > 0) then                                                                                  
              Result := Result + ':';                                                                        
            Result := Result + IntToHex(MacAddr[i],2);                                                       
          end                                                                                                
        else                                                                                                 
          Result := 'Error: MacAddrLen='+IntToStr(MacAddrLen);                                               
      end;                                                                                                   
    ERROR_GEN_FAILURE:                                                                                       
      Result := 'MAC-Adresse konnte nicht ermittelt werden. Fehler:' + #13#10 + 'ERROR_GEN_FAILURE';         
    ERROR_INVALID_PARAMETER:                                                                                 
      Result := 'MAC-Adresse konnte nicht ermittelt werden. Fehler:' + #13#10 + 'ERROR_INVALID_PARAMETER';   
    ERROR_INVALID_USER_BUFFER:                                                                               
      Result := 'MAC-Adresse konnte nicht ermittelt werden. Fehler:' + #13#10 + 'ERROR_INVALID_USER_BUFFER'; 
    ERROR_BAD_NET_NAME:                                                                                      
      Result := 'MAC-Adresse konnte nicht ermittelt werden. Fehler:' + #13#10 + 'ERROR_BAD_NET_NAME';        
    ERROR_BUFFER_OVERFLOW:                                                                                   
      Result := 'MAC-Adresse konnte nicht ermittelt werden. Fehler:' + #13#10 + 'ERROR_BUFFER_OVERFLOW';     
    else                                                                                                     
      Result := 'Error: RC='+IntToStr(RC);                                                                   
  end;                                                                                                       
end;

Klappt bei mir hervorragend.

[mentaltec]

MS bevorzugt ab Vista / Server2008 diese Methode:

Iphlpapi.dll :: ResolveIpNetEntry2() aus Netioapi.h (bzw. Iphlpapi.h)

http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx