以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教，能不能使用U盘做加密狗  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=24733)
--  作者：小狐
--  发布时间：2012/10/22 11:00:00
--  请教，能不能使用U盘做加密狗
即将加密狗的文件，复制到U盘中，将U盘当成加密狗使用
--  作者：hanxuntx
--  发布时间：2012/10/22 12:29:00
--  
今天可以了
--  作者：lihe60
--  发布时间：2012/10/22 12:58:00
--  
如何获取U盘的序列号？
--  作者：小狐
--  发布时间：2012/10/23 8:48:00
--  

如果只是做一个加密的文件，存于U盘中，启动时要调用U盘的加密文件进行认证，该怎么做，另外存于U盘的加密文件的能不能套用加密狗的加密生成思路
--  作者：Fotable
--  发布时间：2012/10/23 9:01:00
--  
以下是引用小狐在2012-10-22 11:00:00的发言：
即将加密狗的文件，复制到U盘中，将U盘当成加密狗使用

你的这个设计思路的问题就在于 别人可以任意复制你的“加密狗”这样也就失去了加密狗的意义
--  作者：小狐
--  发布时间：2012/10/23 10:55:00
--  
以下是引用Fotable在2012-10-23 9:01:00的发言：

你的这个设计思路的问题就在于 别人可以任意复制你的“加密狗”这样也就失去了加密狗的意义

能否获取U盘的序列号，如果可以就能解决
--  作者：hanxuntx
--  发布时间：2012/10/23 12:32:00
--  

如果是想给软件加密，建议用官方 Ukey

如果是想作为用户权限的密匙，可以考虑

1.用U盘序列号识别

2.U盘中放置文件，身份识别文件


Dim objWMIService As Object
Dim colItems As Object
Dim objitem As Object
Dim a, b, c, d, e, U_Dist
objWMIService = GetObject("winmgmts:\\\\.\\root\\cimv2")
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))
        MessageBox.Show(U_Dist)
    End If
    Output.Show(a)
Next