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

deepboy

思路确实不错，配合“禁用宏就关闭”能达到一定的隐藏VBA代码及保护工作薄的目的

但是有一个致命的破解方法，当然是想对于“禁用宏就关闭”：

宏工作表是隐藏了，但是可以轻意的用右键工菜单工具就可以做到显示，只要把宏工作表删除了，那么离破解就走了一半的路了。不知各位大侠能否有好的“隐藏宏工作表”的方案。

谢谢！！

jdqsx

    这个表面上看起来很完美，可是fs.GetDrive.serialnumber读取的序列号，在U盘格式化之后，就会改变，而且还可以人为的改变它。这样一来，第一：如果绑定的U盘格式化后，程序就无法运行；第二，如果读出绑定U盘的序列号，将别的盘的序列号改成绑定U盘的序列号，就失去了将U盘物理序列号作为密钥的初始效果

jdqsx

    刚没看到105楼和108楼，确实太强了

    “禁用宏”和安全性设置为“很高”的问题，可以用vb做个头文件，跳过宏提示参见：

     http://www.officefans.net/cdb/viewthread.php?tid=16403&extra=&page=1

czljh

125楼说的没错，电脑如果有装卡巴杀毒软件，所有的加密都等于0[em06]

to017

Set colItems = objWMIService.ExecQuery("Select * From Win32_USBHub where DeviceID like '%VID%'")

这段改成这样就可以简练一些，还有这个只判断单个U盘，如果是插了两个U盘呢？ 是不是还得加个对U盘 名称如“我的幽盘_key”的过滤。。。

poilkjmnb123

学习了 ，谢谢！！！

xq1234

[em06][em06][em06]

1。  U盘有物理序列号?

纯粹是骗人的,不信?

首先，将你的U盘在某一台特定的机子上多次格式化，读读那个“物理序列号”，不会变化哈。

现在，将你这个U盘，拿到另一台机子再读读“物理序列号”，看还是不是原来机子上的那个物理序列号？

2。    Set d = fs.GetDrive(Chr(66 + DrivesCount))？你认为你的U盘就一定是最后一个盘符吗？

所以，只能从C盘开始启遍历，如果是“可移动磁盘”，则比较序列号。

3。    不封装为DLL，一切努力都是白搭！

4。    如封装为DLL，建议将授权的多个U盘逻辑序列号存入数组，进行比对，以适应多个授权的U盘运行。

 

 

[此贴子已经被作者于2008-10-6 17:21:49编辑过]

YeahJo

偶试了一下,发现以下代码被卡巴判断为危险代码,可以通过卡巴阻止程序运行.(如附件)

Set fs = CreateObject("Scripting.FileSystemObject")

djyang

如果那盘坏了如何破解

djyang

如何盘坏了如何破解