|
Questions:=$0100;
AnswerRRs:=$0000;
AuthorityRRs:=$0000;
AdditionalRRs:=$0000;
Name[1]:=$20;
Name[2]:=$43;
Name[3]:=$4b;
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;
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;
end;
end;
4结束语
这种方法的优点是：获取（扫描）MAC地址的效率较高。
一般针对某远程主机一次发送一个“UDP－NetBIOS－NS”询问包（当然具体发送几个，可以在程序中自己设定）即可，而不像其他也可获取MAC地址的方法，例如WinsockAPI函数Gethostbyaddr或者Netbios函数，执行的时候会发送多个“UDP－NetBIOS－NS”询问包，这样不但影响了获取速度，而且重复发送没必要。
当然，该方法除了可以获取MAC地址外，还可以很容易地获取远程主机的NetBIOSName信息（即主机名、所在工作组等）。而且在本程序的基础上，也很容易地实现对指定IP地址段的MAC地址扫描，即批量获取MAC地址，不再赘述。
参考文献：
[1].《Window网络编程技术》AnthoryJones,JimOhlund
|
|
核心期刊网（www.hexinqk.com）秉承“诚以为基，信以为本”的宗旨，为广大学者老师提供投稿辅导、写作指导、核心期刊推荐等服务。 核心期刊网专业期刊发表机构，为学术研究工作者解决北大核心、CSSCI核心、统计源核心、EI核心等投稿辅导咨询与写作指导的问题。 投稿辅导咨询电话：18915033935 投稿辅导客服QQ： 投稿辅导投稿邮箱：1003158336@qq.com |
| 你好，欢迎来到！ 设为首页 ｜收藏本站 | ||
|
