7,789
社区成员
发帖
与我相关
我的任务
分享关于如何利用客户端的MAC地址生成唯一的序列号的问题？请高手指点！ 急！急！急！急！
关于如何利用客户端的MAC地址生成唯一的序列号的问题？请高手指点！
拜托！急！急！急！急！
EMAIL:GULONG_DL@126.COM
拜托！急！急！急！急！
EMAIL:GULONG_DL@126.COM
...全文
请发表友善的回复…
发表回复
liuxyz1976 2005-12-21
- 打赏
- 举报
MAC 地址就是唯一的呀，可以直接拿来用。
fxy_2002 2005-12-21
- 打赏
- 举报
好象已经很具体了...
想要现成的代码？在网上搜吧，“生成序列号+vb”
想要现成的代码？在网上搜吧，“生成序列号+vb”
HEIGEMENG 2005-12-21
- 打赏
- 举报
能具体一些吗
fxy_2002 2005-12-21
- 打赏
- 举报
自己定一个算法，比如将mac 串做 ascii 变换，再做 xor 运算等等，你想怎么变就怎么变。
简单示例：
Dim mac As String, serial As String
Dim t As Integer, i As Integer
mac = "00 E0 4C DD 8A 69"
serial = ""
For i = 1 To Len(mac)
t = Asc(Mid(mac, i, 1)) '取得 ascii 码
t = t Xor 9 '以9来异或
.... '可加入更多数学运算
If t < 32 Then t = t + 32 '防止不可见字符出现
If t > 122 Then t = t - 122
serial = serial & Chr(t)
Next
简单示例：
Dim mac As String, serial As String
Dim t As Integer, i As Integer
mac = "00 E0 4C DD 8A 69"
serial = ""
For i = 1 To Len(mac)
t = Asc(Mid(mac, i, 1)) '取得 ascii 码
t = t Xor 9 '以9来异或
.... '可加入更多数学运算
If t < 32 Then t = t + 32 '防止不可见字符出现
If t > 122 Then t = t - 122
serial = serial & Chr(t)
Next
HEIGEMENG 2005-12-21
- 打赏
- 举报
获取MAC好获得可应该怎样算呢？
fxy_2002 2005-12-21
- 打赏
- 举报
首先获取MAC，然后自己定义一个算法变换一下。
