制作U盘密钥盘

kxpc · 发表于 2008-9-18 22:30

本帖最后由爱疯于 2011-10-14 21:34 编辑 因为U盘的物理序列号是唯一的,利用U盘做密钥盘,经常应用在一些商用应用程序中,达到保密和保护知识产权的目的. 在Excel平台上开发的系统也可以利用U盘的序列号进行加密.
以下附件中的代码,在VBE中的视图中打开本地窗口,按F8单步执行,通过窗口变量可看到你的U盘的物理序列号,修改代码中的序列号后,再去掉代码 ‘ ThisWorkbook.Close False前面的注释符 ‘  
[hide] 
以下附件中的代码,在VBE中的视图中打开本地窗口,按F8单步执行,通过窗口变量可看到你的U盘的物理序列号,修改代码中的序列号后,再去掉代码 ‘ ThisWorkbook.Close False前面的注释符 ‘  
Private Sub Workbook_Open()   Dim objWMIService As Object   Dim colItems As Object   Dim objitem As Object   Dim a, b, c, d, e, U_Dist   Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")   Set colItems = objWMIService.ExecQuery("Select * From Win32_USBHub")   For Each objitem In colItems     a = objitem.DeviceID     If a Like "*VID*" Then       b = Split(a, "\")       c = Split(b(UBound(b) - 1), "&")       d = Split(c(UBound(c) - 1), "_")       e = Split(c(UBound(c)), "_")       U_Dist = d(UBound(d)) + e(UBound(e)) + b(UBound(b))       If U_Dist = "1307016300000000000027" Then Exit Sub  'U盘物理序列号     End If   Next   MsgBox "找不到正确U盘，系统将退出！"   ' ThisWorkbook.Close False End Sub

czljh · 发表于 2008-9-18 22:33

[em03]

花木兰 · 发表于 2008-9-18 22:50

看看[em04]

asril · 发表于 2008-9-18 23:12

值得一看！

lxgyt · 发表于 2008-9-18 23:14

赞你一下

asril · 发表于 2008-9-18 23:15

还得研究研究，不太懂！

7dong502 · 发表于 2008-9-18 23:18

hai · 发表于 2008-9-18 23:35

[em01]

bisz_wack · 发表于 2008-9-18 23:37

值得一看！

rujunming · 发表于 2008-9-18 23:39

什么东西

		自动登录	找回密码
密码			注册

制作U盘密钥盘

本帖子中包含更多资源