当前位置： > 免费论文 > 计算机论文 >

获取远程主机MAC地址的新思路及实现(2)

时间:2015-08-31 09:52 来源:发表吧作者:发表吧编辑点击: 次

　　fori:=4to33do

　　Name:=$41;

　　Name[34]:=$00;

　　tType:=$2100;

　　tClass:=$0100;

　　end;

　　nmudp1.LocalPort:=3000;//UDP绑定的本地主机的端口

　　nmudp1.RemoteHost:=edit1.Text;

　　nmudp1.RemotePort:=137;//NetBIOS－NS,137端口

　　MyStream:=TmemoryStream.Create;

　　try

　　MyStream.Write(t_ns,sizeof(t_ns));

　　NMUDP1.SendStream(MyStream);

　　finally

　　MyStream.Free;

　　end;

　　下面是接收发送“UDP－NetBIOS－NS”应答包并分析和显示处理结果的代码。

　　procedureTForm1.NMUDP1DataReceived(Sender:TComponent;

　　NumberBytes:Integer;FromIP:String;Port:Integer);

　　var

　　MyStream:TMemoryStream;

　　mac_str:array[1..6]ofbyte;

　　NumOfNames:byte;

　　begin

　　ifnumberbytes>0then//如果接收的数据包字节数>0,则处理数据包

　　begin

　　MyStream:=TmemoryStream.Create;

　　try

　　NMUDP1.readstream(MyStream);//把接收到的数据包，读到内存中

　　MyStream.Seek(56,SoFromBeginning);//定位至NumberOfNames字段

　　MyStream.Read(NumOfNames,1);//获取NumberOfNames字段的值

　　MyStream.Seek(NumOfNames*18,soFromCurrent);//定位至UnitID字段

　　MyStream.Read(mac_str[1],6);//获取UnitID字段的值

　　edit4.Text:=inttohex(mac_str[1],2)+'-'+//将目的主机的MAC地址格式化输出

　　inttohex(mac_str[2],2)+'-'+

　　inttohex(mac_str[3],2)+'-'+

　　inttohex(mac_str[4],2)+'-'+

　　inttohex(mac_str[5],2)+'-'+

　　inttohex(mac_str[6],2);

　　finally

　　MyStream.Free;

　　end;

　　4结束语

　　这种方法的优点是：获取（扫描）MAC地址的效率较高。

　　一般针对某远程主机一次发送一个“UDP－NetBIOS－NS”询问包（当然具体发送几个，可以在程序中自己设定）即可，而不像其他也可获取MAC地址的方法，例如WinsockAPI函数Gethostbyaddr或者Netbios函数，执行的时候会发送多个“UDP－NetBIOS－NS”询问包，这样不但影响了获取速度，而且重复发送没必要。

　　当然，该方法除了可以获取MAC地址外，还可以很容易地获取远程主机的NetBIOSName信息（即主机名、所在工作组等）。而且在本程序的基础上，也很容易地实现对指定IP地址段的MAC地址扫描，即批量获取MAC地址，不再赘述。

　　参考文献：

　　[1].《Window网络编程技术》AnthoryJones,JimOhlund

（www.fabiaoba.com），是一个专门从事期刊推广期刊发表、投稿辅导、发表期刊的网站。
　　本站提供如何投稿辅导、发表期刊，寻求论文刊登合作，快速投稿辅导，投稿辅导格式指导等解决方案：省级论文刊登/国家级论文刊登/ CSSCI核心/医学投稿辅导/职称投稿辅导。

投稿邮箱：fabiaoba365@126.com
　在线咨询： 275774677、 1003180928
　在线咨询： 610071587、 1003160816
　联系电话：18796993035