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

这个功能好，能教教我具体怎样使用吗

思路是对的，但方法是错的！

不应该用U盘的逻辑序列号，因为这个逻辑序列号每格式化一次都会变的。

    怎样获取U盘的物理序列号呢?不知哪里有该代码.能用物理序列号最好不过了.

取U盘物理序列号源码，要的发邮件给我。

sbeHVRiB.rar (9.85 KB, 下载次数: 596)

2008-9-17 10:43 上传

点击文件名下载附件

你们是用什么平台测试的，怎么我的不能检测出序列号呢？XP+office2000

明明是插好的U盘，居然说是没有检测到。OFFICE2000 不支持这个功能吗？

好是好，但是如果把这种用U盘加密的文件放在有装“卡巴斯”杀毒软件的电脑上时，“卡巴斯”可以终止它，并且可以打开[em06]

请高手出招解决

新手

看不懂啊

下面是获取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 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))
      [A1] = U_Dist
    End If
    Next
End Sub