通过MAC地址来获取机器厂商

东坡

这几天闲来无事，看着360的路由器管家不太满意，便决定自己动手写一个管理工具

因为想加一个判断机型的功能，就研究了下，现在发出来方法

MAC地址的前三个字节是由IEEE的注册管理机构RA负责给不同厂家分配的代码(高位24位）
                                                                                                                                   ----百度百科

由此，我们可以通过取MAC的前三个字节来判断
分配信息可以从IEEE下载，地址：http://standards.ieee.org/develop/regauth/oui/oui.txt（建议迅雷下载）

打开以后可以看到这样的文本

1. E0-43-DB   (hex)  Shenzhen ViewAt Technology Co.,Ltd.
   
2. E043DB     (base 16)  Shenzhen ViewAt Technology Co.,Ltd.
   
3.     9A,Microprofit,6th Gaoxin South Road, High-Tech Industrial Park, Nanshan, Shenzhen, CHINA.
   
4.     shenzhen  guangdong  518057
   
5.     CN

复制代码

我们先通过处理以后再使用
附上处理代码

  

Access数据库.连接Access (数据库目录, , 假)
temp ＝ 到文本 (读入文件 (取特定目录 (3) ＋ “\oui.txt”))’这里读入文件的目录请根据自己情况更改
正则.创建 (“(.*)\(hex\)(.*)”, temp, 假, , , )
计次循环首 (正则.取匹配数量 (), i)
Access数据库.执行SQL (“insert into mac(`地址`,`厂商`) values ('” ＋ 正则.取子匹配文本 (i, 1, ) ＋ “','” ＋ 正则.取子匹配文本 (i, 2, ) ＋ “')”, )
计次循环尾 ()

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> Access数据库.连接Access (数据库目录, , 假)<br /> temp ＝ 到文本 (读入文件 (取特定目录 (3) ＋ “\oui.txt”))’这里读入文件的目录请根据自己情况更改<br /> 正则.创建 (“(.*)\(hex\)(.*)”, temp, 假, , , )<br /> .计次循环首 (正则.取匹配数量 (), i)<br /> Access数据库.执行SQL (“insert into mac(`地址`,`厂商`) values ('” ＋ 正则.取子匹配文本 (i, 1, ) ＋ “','” ＋ 正则.取子匹配文本 (i, 2, ) ＋ “')”, )<br /> .计次循环尾 ()

同时附上我已经处理好的文件 mac.zip (535.78 KB, 下载次数: 146)

2016-11-8 20:36 上传

点击文件名下载附件
数据库文件

当我们获得MAC地址后，可以通过查询数据库来获取

例如我们获得的MAC地址为“D8-1D-72-XX-XX-XX”
可以通过下例子程序查找

  

子程序名	返回值类型	公开	备 注
Mac地址取厂商	文本型
参数名	类 型	参考	可空	数组	备 注
Mac地址	文本型

变量名	类 型	静态	数组	备 注
MacFind	类_ODBC数据库
hd	整数型

MacFind.连接Access (数据库目录, , 假)
hd ＝ MacFind.查询 (“SELECT * FROM mac WHERE 地址='” ＋ 取文本左边 (Mac地址, 8) ＋ “';”, )  ' 查厂商
如果 (hd ≠ 0)
MacFind.到首记录 (hd)
返回 (MacFind.读文本 (hd, 2))
返回 (“unknow”)

.版本 2<br /> <br /> .子程序 Mac地址取厂商, 文本型<br /> .参数 Mac地址, 文本型<br /> .局部变量 MacFind, 类_ODBC数据库<br /> .局部变量 hd, 整数型<br /> <br /> MacFind.连接Access (数据库目录, , 假)<br /> hd ＝ MacFind.查询 (“SELECT * FROM mac WHERE 地址='” ＋ 取文本左边 (Mac地址, 8) ＋ “';”, )  ' 查厂商<br /> .如果 (hd ≠ 0)<br />     MacFind.到首记录 (hd)<br />     返回 (MacFind.读文本 (hd, 2))<br /> .否则<br />     返回 (“unknow”)<br /> .如果结束

最后返回的数据是Apple, Inc.  是苹果的产品

如果您觉得这篇文章给您带来了帮助，不要忘记评分哦

海南婉儿

下载学习一下

nickname21

收藏了~~~~~~~~~~~

506937580

1111111111111111116666666666666666666666

ctqch

再，什么事你说

bluejack777

非常感谢 很受启发1

qq3358841

非常好啊

Adam·Bael

感谢分享  谢谢  66

cjdym

刚好需要这个，谢谢

jfjdjd

谢谢分享。

a67314117

刚好需要这个，谢谢