[讨论]：如何最大限度的加密VB 及VBA？

fjw_ok

如题！
大家讨论！

秋枫

因为vba本身是源代码解释执行的，所以除了把密码设长一点我认为我们可以做的事很少。

fjw_ok

斑竹那VB 呢？我在VB6下编译成EXE，还被别人反编译成原代码了！
以前在001是有人讲过破VBA的密码，给忘了！

efan2000

请看如下的介绍：

    如果拥有 Visual Basic 的专业版或企业版，既可以将代码编译成标准的 Visual Basic 伪代码格式，也可以编译成本机代码格式。
    P-code 或伪代码，是介于 Basic 程序中的高级指令和计算机处理器执行的低级本机代码之间的一种中间步骤。

    在6.0版本之前的VB只能编译成伪代码，故它容易被反编译，但在6.0版本上，则直接编译成本机代码，所以安全性就高了。

fjw_ok

我就是编译为本机代码,被我们设计院的一个给反了
说是用smart check!

efan2000

窗体文件可以反编译，但源代码一般比较难做到吧。

eachy

这个软件是干什么的？

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="650" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://www.satoripublishing.com/VBSCP/index.html">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

fjw_ok

这个是有原文件才打印吧？

efan2000

这是我用它对一个VB的EXE文件反编译的结果。它的功能只是用来调试，比如一些执行错误、事件触发所用到的DLL函数调用，其它反编译出源程序的功能则没看到。

2. 
   
3.   [FONT=courier new]
   
4. Function Usage Details
   
5. 
   
6.         All functions are supported by Windows NT 5.0
   
7.        
   
8.         All functions are supported by Windows NT 4.0
   
9.        
   
10.         All functions are supported by Windows NT 3.51
    
11.        
    
12.         All functions are supported by Windows 98
    
13.        
    
14.         All functions are supported by Windows 95
    
15.        
    
16.         All functions are supported by Windows CE 2.0
    
17.        
    
18.         Visual Basic Intrinsics
    
19.                   Chr
    
20.                   Erase
    
21.                   Instr
    
22.                   Is
    
23.                   IsEmpty
    
24.                   LBound
    
25.                   LCase
    
26.                   Left
    
27.                   Len
    
28.                   LSet
    
29.                   Mid
    
30.                   MsgBox
    
31.                   OnError
    
32.                   ReDim
    
33.                   Right
    
34.                   Shell
    
35.                   Split
    
36.                   String
    
37.                   UBound
    
38. 
    
39.         VB Support Routines
    
40.                   __vbaAryDestruct
    
41.                   __vbaAryUnlock
    
42.                   __vbaBoolVarNull
    
43.                   __vbaCastObj
    
44.                   __vbaCheckType
    
45.                   __vbaChkstk
    
46.                   __vbaErrorOverflow
    
47.                   __vbaExceptHandler
    
48.                   __vbaExitEachColl
    
49.                   __vbaExitProc
    
50.                   __vbaForEachCollObj
    
51.                   __vbaFPException
    
52.                   __vbaFpI4
    
53.                   __vbaFreeObj
    
54.                   __vbaFreeObjList
    
55.                   __vbaFreeStr
    
56.                   __vbaFreeStrList
    
57.                   __vbaFreeVar
    
58.                   __vbaGenerateBoundsError
    
59.                   __vbaHresultCheckObj
    
60.                   __vbaI2I4
    
61.                   __vbaI2Str
    
62.                   __vbaI2Var
    
63.                   __vbaI4Var
    
64.                   __vbaLateIdCallLd
    
65.                   __vbaLateMemCallLd
    
66.                   __vbaLateMemSt
    
67.                   __vbaNew2
    
68.                   __vbaNextEachCollObj
    
69.                   __vbaObjIs
    
70.                   __vbaObjSet
    
71.                   __vbaObjSetAddref
    
72.                   __vbaRecAnsiToUni
    
73.                   __vbaRecUniToAnsi
    
74.                   __vbaRefVarAry
    
75.                   __vbaSetSystemError
    
76.                   __vbaStrCat
    
77.                   __vbaStrCmp
    
78.                   __vbaStrCopy
    
79.                   __vbaStrI2
    
80.                   __vbaStrMove
    
81.                   __vbaStrToAnsi
    
82.                   __vbaStrToUnicode
    
83.                   __vbaStrVarMove
    
84.                   __vbaStrVarVal
    
85.                   __vbaVarAdd
    
86.                   __vbaVarAnd
    
87.                   __vbaVarCat
    
88.                   __vbaVarCmpEq
    
89.                   __vbaVarCopy
    
90.                   __vbaVarDup
    
91.                   __vbaVarIndexLoad
    
92.                   __vbaVarIndexLoadRefLock
    
93.                   __vbaVarIndexStore
    
94.                   __vbaVarMove
    
95.                   __vbaVarSub
    
96.                   __vbaVarTstEq
    
97.                   __vbaVarTstNe
    
98.                   _adj_fdiv_m16i
    
99.                   _adj_fdiv_m32
    
100.                   _adj_fdiv_m32i
     
101.                   _adj_fdiv_m64
     
102.                   _adj_fdiv_r
     
103.                   _adj_fdivr_m16i
     
104.                   _adj_fdivr_m32
     
105.                   _adj_fdivr_m32i
     
106.                   _adj_fdivr_m64
     
107.                   _adj_fpatan
     
108.                   _adj_fprem
     
109.                   _adj_fprem1
     
110.                   _adj_fptan
     
111.                   _allmul
     
112.                   _CIatan
     
113.                   _CIcos
     
114.                   _CIexp
     
115.                   _CIlog
     
116.                   _CIsin
     
117.                   _CIsqrt
     
118.                   _CItan
     
119.                   DllFunctionCall
     
120.                   EVENT_SINK_AddRef
     
121.                   EVENT_SINK_QueryInterface
     
122.                   EVENT_SINK_Release
     
123.                   rtcErrObj
     
124.                   ThunRTMain
     
125. 
     
126.         ANSI C
     
127.                   <none used>
     
128.        
     
129.         ANSI C Extension
     
130.                   <none used>
     
131. 
     
132.   [/FONT]
     

<br />   [FONT=courier new]<br /> Function Usage Details<br /> <br />         All functions are supported by Windows NT 5.0<br />         <br />         All functions are supported by Windows NT 4.0<br />         <br />         All functions are supported by Windows NT 3.51<br />         <br />         All functions are supported by Windows 98<br />         <br />         All functions are supported by Windows 95<br />         <br />         All functions are supported by Windows CE 2.0<br />         <br />         Visual Basic Intrinsics<br />                   Chr<br />                   Erase<br />                   Instr<br />                   Is<br />                   IsEmpty<br />                   LBound<br />                   LCase<br />                   Left<br />                   Len<br />                   LSet<br />                   Mid<br />                   MsgBox<br />                   OnError<br />                   ReDim<br />                   Right<br />                   Shell<br />                   Split<br />                   String<br />                   UBound<br /> <br />         VB Support Routines<br />                   __vbaAryDestruct<br />                   __vbaAryUnlock<br />                   __vbaBoolVarNull<br />                   __vbaCastObj<br />                   __vbaCheckType<br />                   __vbaChkstk<br />                   __vbaErrorOverflow<br />                   __vbaExceptHandler<br />                   __vbaExitEachColl<br />                   __vbaExitProc<br />                   __vbaForEachCollObj<br />                   __vbaFPException<br />                   __vbaFpI4<br />                   __vbaFreeObj<br />                   __vbaFreeObjList<br />                   __vbaFreeStr<br />                   __vbaFreeStrList<br />                   __vbaFreeVar<br />                   __vbaGenerateBoundsError<br />                   __vbaHresultCheckObj<br />                   __vbaI2I4<br />                   __vbaI2Str<br />                   __vbaI2Var<br />                   __vbaI4Var<br />                   __vbaLateIdCallLd<br />                   __vbaLateMemCallLd<br />                   __vbaLateMemSt<br />                   __vbaNew2<br />                   __vbaNextEachCollObj<br />                   __vbaObjIs<br />                   __vbaObjSet<br />                   __vbaObjSetAddref<br />                   __vbaRecAnsiToUni<br />                   __vbaRecUniToAnsi<br />                   __vbaRefVarAry<br />                   __vbaSetSystemError<br />                   __vbaStrCat<br />                   __vbaStrCmp<br />                   __vbaStrCopy<br />                   __vbaStrI2<br />                   __vbaStrMove<br />                   __vbaStrToAnsi<br />                   __vbaStrToUnicode<br />                   __vbaStrVarMove<br />                   __vbaStrVarVal<br />                   __vbaVarAdd<br />                   __vbaVarAnd<br />                   __vbaVarCat<br />                   __vbaVarCmpEq<br />                   __vbaVarCopy<br />                   __vbaVarDup<br />                   __vbaVarIndexLoad<br />                   __vbaVarIndexLoadRefLock<br />                   __vbaVarIndexStore<br />                   __vbaVarMove<br />                   __vbaVarSub<br />                   __vbaVarTstEq<br />                   __vbaVarTstNe<br />                   _adj_fdiv_m16i<br />                   _adj_fdiv_m32<br />                   _adj_fdiv_m32i<br />                   _adj_fdiv_m64<br />                   _adj_fdiv_r<br />                   _adj_fdivr_m16i<br />                   _adj_fdivr_m32<br />                   _adj_fdivr_m32i<br />                   _adj_fdivr_m64<br />                   _adj_fpatan<br />                   _adj_fprem<br />                   _adj_fprem1<br />                   _adj_fptan<br />                   _allmul<br />                   _CIatan<br />                   _CIcos<br />                   _CIexp<br />                   _CIlog<br />                   _CIsin<br />                   _CIsqrt<br />                   _CItan<br />                   DllFunctionCall<br />                   EVENT_SINK_AddRef<br />                   EVENT_SINK_QueryInterface<br />                   EVENT_SINK_Release<br />                   rtcErrObj<br />                   ThunRTMain<br /> <br />         ANSI C<br />                   <none used><br />         <br />         ANSI C Extension<br />                   <none used><br /> <br />   [/FONT]<br />

god

不知有没有能反编译源代码的软件？

efan2000

目前还没有能够完全反编译出源代码的工具，最多就是窗体的源程序，其它的就是一些调用了哪些函数及入口、使用了哪些字符串、位图和光标资源，剩下的就是二进制代码了。即使对汇编语言很精通的人也没办法对那些代码进行还原。