主题：请教，能不能使用U盘做加密狗

如果只是做一个加密的文件，存于U盘中，启动时要调用U盘的加密文件进行认证，该怎么做，另外存于U盘的加密文件的能不能套用加密狗的加密生成思路

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

能否获取U盘的序列号，如果可以就能解决

如果是想给软件加密，建议用官方 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