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

jiejjjjjj

QUOTE:

以下是引用lhm667788在2008-9-21 1:26:00的发言：

关于禁用宏的问题,请参考BobPan的:

我说“启用宏”，就得启用宏，管你什么安全级

http://club.excelhome.net/viewthread.php?tid=283306&px=0

高啊，学习中

gyzzf

一直困扰的禁用宏失密问题解决了

 

 

一直困扰的禁用宏失密问题解决了，用U盘物理序列号加密，禁用宏则退出，好象破解难度相当大。

第一步，用105楼的方法获取U盘的物理序列号（感谢105楼）

第二步，用108楼的加密代码，将其中的序列号改为自己U盘的物理序列号（感谢108楼）

第三步，用“excel取数助手”工具――工具集锦――开发――禁用宏就关闭文档，完成。

说明：“excel取数助手”工具在本论坛所得，开发者是张立良，挺不错的工具，使excel新增多项功能，安装后通过com加载项加载，应用后对其它功能不会产生任何不良影响。由于文件大小600多k，不便上传，给出下载地址：http://blog.sina.com.cn/ahzll。(在此感谢张立良)

 

 

附件只用保密效果演示之用，大家可以通过以上三步自己制作加密文档模板。

 

RmDqTBR5.rar (8.71 KB, 下载次数: 527)

2008-9-21 22:42 上传

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

[此贴子已经被作者于2008-9-21 22:45:24编辑过]

c3358

非常容易被破解的啊！

1.可以复制钥匙盘，U盘序列号是格式化时生成的，也可以改！！！！

2.如果没有钥匙盘也直接破解，因为你只是判断存不存在钥匙盘，破解起来相当的容易哦

liangyuhong

唉，VBA 呀 VBA，你的加密效果实在是次的不行，再怎么加密，只要是 excel 文件，除了打开密码难解外，其它的表格密码、VBA加密根本不起作用，懒得研究呀。

大伙还是想想怎么用 dll 外部链接操作表格加密吧。

lhm667788

QUOTE:

以下是引用gyzzf在2008-9-21 22:43:00的发言：

一直困扰的禁用宏失密问题解决了

一直困扰的禁用宏失密问题解决了，用U盘物理序列号加密，禁用宏则退出，好象破解难度相当大。

第一步，用105楼的方法获取U盘的物理序列号（感谢105楼）

第二步，用108楼的加密代码，将其中的序列号改为自己U盘的物理序列号（感谢108楼）

第三步，用“excel取数助手”工具――工具集锦――开发――禁用宏就关闭文档，完成。

说明：“excel取数助手”工具在本论坛所得，开发者是张立良，挺不错的工具，使excel新增多项功能，安装后通过com加载项加载，应用后对其它功能不会产生任何不良影响。由于文件大小600多k，不便上传，给出下载地址：http://blog.sina.com.cn/ahzll。(在此感谢张立良)

附件只用保密效果演示之用，大家可以通过以上三步自己制作加密文档模板。

    

    学习了!

YEST8

谢谢分享!

国际华城

世界太大了！强人太多了！

[em05]

jimmy_my

奇怪啊,用了108楼的加密代码,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 = "078154060000184749601ED8" Then Exit Sub
    End If
  Next
  MsgBox "找不到正确U盘，系统将退出！"
  ThisWorkbook.Close False
End Sub
红色部分是我U盘的物理序列号,但是保存好文件，不插U盘,重新打开文件,文件不会跳出"找不到正确U盘，系统将退出"是怎么回事啊。请各位帮忙告诉一下.但我在VB里运行的时候会出现.

hsq589

垃圾密码，没有用的，我用卡巴阻止宏运行，就可以直接打开文件了，你们都白费劲了

qq533520

学习，很有意思