[分享]用U盘做加密狗,加密Excel文件(108楼有新代码!)

PeterGuru

创意很好，学习了

mxf21cn

读了前面20页得内容也来谈一下自己的想法：
1、如果同时插入多个U盘，该如何找到钥匙盘的盘符
2、能否增加输入盘符的功能，这样就不用遍历所有的盘符了，也容易解决问题1。
3、对于像2003这样的系统，如果U盘格式化为HDD模式，就不会自动分派盘符，又如何判断钥匙盘的存在？
以上是自己的一些粗浅的认识，还望斑竹赐教。

wzs19700724

真的不错的，我也有些东东想保密，苦于没办法呢

ah2005

U盘坏了，咋办呢？这个问题大家考虑没有啊，呵呵，怎么完善呢？

4701568

如何封装成DLL啊？

zyg365

原帖由 Zamyi 于 2008-9-18 17:11 发表
下面是获取U盘物理序列号的代码（加密狗也行）：Public Sub QW()  Dim objWMIService As Object  Dim colItems As Object  Dim objitem As Object  Dim a, b, c, d, e, U_Dist  Set objWMI ...

我的两个U盘序列号相同都是：090C620012345678901234567890

这样还能用做加密狗吗？

是“金士顿”的

廊桥居士

我看了这里的帖子，我的EXCEL是2007的，我的U盘盘符是K盘，我复制105楼的数据制作的文档没有办法获取U盘的物理序列号，打开文档啥都没有呢，文档的宏是开启的，请问一般是什么问题呢？

廊桥居士

哪位朋友按照105楼做一个附件传上来试试啊，谢谢

廊桥居士

请问各位，我的U盘的盘符是在K盘，以下代码如何修改才可以：


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))

[ 本帖最后由 廊桥居士 于 2010-2-18 14:51 编辑 ]

tjxy333

高手哦！真是佩服！