這一帖真的是考驗你的VBA破解技巧

joforn

1. 
   
2. Attribute VB_Name = "M123456789"
   
3. Option Explicit
   
4. Public Const APPNAME As String = "??:Hung-Chi Lin"
   
5. Private Sub VBProjectProtection()
   
6. On Error Resume Next
   
7. Application.ScreenUpdating = False
   
8. Application.DisplayAlerts = False
   
9. If ActiveWorkbook.VBProject.Protection = vbext_pp_none Then
   
10. Sheets("sheet0").Range("D4") = "UNLOCKVBProject"
    
11. Else
    
12. Sheets("sheet0").Range("D4") = "VBPLOCK"
    
13. End If
    
14. End Sub
    
15. Private Sub ALLA()
    
16. Attribute ALLA.VB_Description = "ALLA"
    
17. Attribute ALLA.VB_ProcData.VB_Invoke_Func = "A\n14"
    
18. Call Aw
    
19. Call Excel4A1
    
20. End Sub
    
21. Private Sub ALLB()
    
22. Attribute ALLB.VB_Description = "ALLB"
    
23. Attribute ALLB.VB_ProcData.VB_Invoke_Func = "B\n14"
    
24. Call Bw
    
25. Call Excel4B1
    
26. End Sub
    
27. Private Sub Aw()
    
28. On Error Resume Next
    
29. 'ActiveWorkbook.Names.Add Name:="CARD!Auto_Open", RefersToR1C1:="=Sheet0!R1C1", Visible:=False
    
30. ActiveWorkbook.Names.Add Name:="CARD!Auto_Activate", RefersToR1C1:="=Sheet0!R1C1", Visible:=False
    
31. MsgBox "币ノ舧?粂"
    
32. End Sub
    
33. Private Sub Bw()
    
34. On Error Resume Next
    
35. 'ThisWorkbook.Names("CARD!Auto_Open").Delete
    
36. ThisWorkbook.Names("CARD!Auto_Activate").Delete
    
37. MsgBox "闽超舧?粂"
    
38. End Sub
    
39. Private Sub Excel4A1()
    
40. On Error Resume Next
    
41. Worksheets(1).Activate
    
42. ActiveWorkbook.Names.Add Name:="sheet0!Auto_Activate", RefersToR1C1:="=Sheet0!R1C2", Visible:=False
    
43. MsgBox "币ノExcel4.0エ栋?"
    
44. SheetI.Select
    
45. End Sub
    
46. Private Sub Excel4B1()
    
47. On Error Resume Next
    
48. ThisWorkbook.Names("Sheet0!Auto_Activate").Delete
    
49. MsgBox "闽超Excel4.0エ栋?"
    
50. Sheets("sheet0").Select
    
51. End Sub
    
52. Private Sub WorkbookVBELOCK()
    
53. Attribute WorkbookVBELOCK.VB_Description = "VBEL"
    
54. Attribute WorkbookVBELOCK.VB_ProcData.VB_Invoke_Func = "L\n14"
    
55. Application.Visible = False
    
56. Application.ScreenUpdating = False
    
57. On Error GoTo error1
    
58.   With Application
    
59.        .SendKeys "%{f11}"
    
60.   DoEvents
    
61.        .SendKeys "%q"
    
62.        .OnKey "%{F11}", "ShowErr"
    
63.   End With
    
64.   ToVbe.OnAction = "ShowErr"
    
65.   Ply.OnAction = "ShowErr"
    
66.   VBE_MW
    
67.   Application.ScreenUpdating = True
    
68.   Application.Visible = True
    
69. error1: End Sub
    
70. Private Sub WorkbookVBEUNLOCK()
    
71. Attribute WorkbookVBEUNLOCK.VB_Description = "VBEU"
    
72. Attribute WorkbookVBEUNLOCK.VB_ProcData.VB_Invoke_Func = "U\n14"
    
73.   Application.ScreenUpdating = False
    
74.   ToVbe.OnAction = ""
    
75.   Ply.OnAction = ""
    
76.   Application.OnKey "%{F11}"
    
77.   VBE_MA
    
78. End Sub
    
79. Function ToVbe() As CommandBarControl
    
80.   Dim ctl As CommandBarControl
    
81.   Set ctl = Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=1695, recursive:=True)
    
82.   Set ToVbe = ctl
    
83. End Function
    
84. Function Ply() As CommandBarControl
    
85.   Dim ctl As CommandBarControl
    
86.   Set ctl = Application.CommandBars("PLY").FindControl(ID:=1561, recursive:=True)
    
87.   Set Ply = ctl
    
88. End Function
    
89. Public Function VBE_MW()
    
90.   Application.ScreenUpdating = False
    
91.   Dim i As CommandBar
    
92.   Dim W As Object
    
93.   For Each i In ThisWorkbook.VBProject.VBE.CommandBars
    
94.   i.Enabled = False
    
95.   Next
    
96.   On Error Resume Next
    
97.   For Each W In ThisWorkbook.VBProject.VBE.Windows
    
98.   W.Close
    
99.   Next
    
100. End Function
     
101. Public Function VBE_MA()
     
102.   Application.ScreenUpdating = False
     
103.   Dim i As CommandBar
     
104.   Dim W As Object
     
105.   For Each i In ThisWorkbook.VBProject.VBE.CommandBars
     
106.   i.Enabled = True
     
107.   Next
     
108. End Function
     

复制代码

Moneky

joforn 发表于 2013-1-7 10:15

牛人啊！怎么弄出来的呢？

joforn

Excel2003文档是复合式文档（可以形象的认为是类似于分区中的FAT32系统）。
在Excel2007以后版本中，文档格式被改变，成了实质上的ZIP文档。但是在此文档系统中，VBA工程的所有文件仍被以复合式文档格式保存在"vbaProject.bin"中。
在复合式文档中，有一个名为"_VBA_PROJECT_CUR"的仓库（可以视为目录，2007文档中的复合文件中直接使用"Root Entry"仓库），其包含一个名为"VBA"的仓库,"PROJECTlk","PROJECTwm","PROJECT"三个流（可视为文件），另外还有两个仓库是关于窗体或控件引用资源的定义。
在上面的三个流中，最常被拿来用的就是"PROJECT"这个流了，当然这也是有原因的。首先，这个流是以ANSI编码明文方式保存在复合文档中。它的内容包括工程中所包含的引用、模块、密码等等相关的属性。一般的密码破解及“工程不见”相关的操作实际上只修改了这个文档的部分属性。而楼主的隐藏功能也是在这个文档中完成的——其实就是删除了这个文档中的某些模块的定义。比如Module=william就表示这个工程中包含了一个名为"william"的模块。而在测试文档中Module=M123456789这一行内容被删除。 但是，由于VBA所有模块的定义在这个文档中的作用并不大，实际上，Office在运行时并不是由这个文档中的定义来编译的，所以，当此文档中的Module属性被删除一个之后并不会影响VBA的运行，影响的仅仅是在VBE中这个模块名不可见。VBA运行时实际上是依靠"VBA"仓库下的另一个流，其名为"DIR"，在"DIR"流中，更详细的记录了工程的所有属性,如下图所示。从图中我们可以看到工程中实际上包含了四个模块(一个工作簿、一个工作表、两个标准模块)。说到这里，估计大家差不多都知道如果何破解这类文件了吧。补充说明：发现作者把"PROJECTwm"流中的模块名也删除了。"PROJECTwm"流内容就是所有模块名的集合，每个模块名都保存了ANSI编码和UTF-16编码两种字符串，每个字符串用一个相应编码的Null字符表示字符串结束，文件最后以两个Null表示文件结束。
不过我使用的方式是直接从Excel二进制文件中直接提取出来的代码（这种方式复杂一些，但是可以无视现有的所有的VBA工程加密方式，成功的从中把所有的代码取出来），当然，简单点的就是在"PROJECT"这个流的内容中添加上缺少的模块名就可以了。

Moneky

joforn 发表于 2013-1-7 10:53
Excel2003文档是复合式文档（可以形象的认为是类似于分区中的FAT32系统）。
在Excel2007以后版本中，文档格 ...

谢谢，南宫无私分享。
记得有位坛友分享了一个自己的关于Excel复合文档格式研究成果的文件，当时下载看了一下，简直是天书，在我能力之外也就没有钻研过了。原来南宫对这个也很在行，只有仰望高人了。

joforn

Moneky 发表于 2013-1-7 16:07
谢谢，南宫无私分享。
记得有位坛友分享了一个自己的关于Excel复合文档格式研究成果的文件，当时下载看了 ...

呵呵，我只是随便玩玩，瞎搞的。

liucqa

joforn 发表于 2013-1-7 16:22
呵呵，我只是随便玩玩，瞎搞的。

搞个查看工具吧

joforn

liucqa 发表于 2013-1-7 17:28
搞个查看工具吧

这个杀伤力太强，就目前来看，直接秒杀了VBA所有的加密方式(不包括XLSM的加密文档)。还是以后现说吧，工具已经有了，不过被我用到其它的程序中去了，暂时还不想直接把人家的代码展示在所有人面前。毕竟，谁也不想自己辛辛苦苦写出来的代码，被别人问也不问直接取出源码来。

joforn

liucqa 发表于 2013-1-7 17:28
搞个查看工具吧

再说，从你的回帖来看，你已经只差一步了。源码实际你已经取到了，差的只是源码还原。

liucqa

[quote]joforn 发表于 2013-1-7 17:41 http://download.csdn.net/detail/luopaisi/3272856

是呀，不知道怎么还原。网上有个查看器挺好玩


http://www.suno2.net/tag/excel
http://www.arstdesign.com/articles/office2007bin.html  资料这里有

joforn

liucqa 发表于 2013-1-7 17:44
http://download.csdn.net/detail/luopaisi/3272856

是呀，不知道怎么还原。网上有个查看器挺好玩

呵呵，我目前的目标是直接提取Excel中的单元格内容之类的，VBA工程的先放下。
不过那个源码，可以给你点提示，在二进制中，它是一个压缩的文档。