五一大礼！！！！ Unviewable+ VBA excel vba代码加密！！！

liucqa

任何基于vba层面的加密，都是纸老虎。

liucqa

code.rar (18.97 KB, 下载次数: 816)

2019-5-2 22:33 上传

点击文件名下载附件

cj9687451

liucqa 发表于 2019-5-2 22:29
任何基于vba层面的加密，都是纸老虎。

学导，能否介绍一些这方面的学习链接或心得

苏阳湖wzy

能否发我一份，956206494@qq.com，谢谢

wudiweiwei2008

liucqa 发表于 2019-5-2 22:29
任何基于vba层面的加密，都是纸老虎。

能否在发一下，已经和谐了

dancefly09

咦？这个软件在某微信公众号上，外2017年就发出来了

feng-aa

链接失效了，能否发一份。邮箱
feng-aa@qq.com

feng-aa

dancefly09 发表于 2019-5-5 15:48
咦？这个软件在某微信公众号上，外2017年就发出来了

feng-aa@qq.com能发我一份吗

vbee

1. Option Explicit
   
2. 
   
3. '--------------------------------------------------------------
   
4. ' This VBA Project has been protected with a proprietary scheme
   
5. ' Do NOT tamper with this file, as Excel may crash!
   
6. '--------------------------------------------------------------
   
7. 
   
8. Private Const OPTION_BASE                  As Long = 0
   
9. Private Const OPTION_FLAGS                 As Long = 2
   
10. Private Const OPTION_INCLUDE_REFERENCEDOCS As Long = 0
    
11. Private Const OPTION_DISABLEDCLASSES       As String = ""
    
12. Private Const PAGE_EXECUTE_RW              As Long = &H40
    
13. Private Const MEM_RESERVE_AND_COMMIT       As Long = &H3000
    
14. Private Const MEM_RELEASE                  As Long = &H8000
    
15. Private Const ERR_OUT_OF_MEMORY            As Long = &H7
    
16. Private Const ROOTOBJECT_SIZE              As Long = &H4D948
    
17. 
    
18. Private m_Loader As VCOMInitializerStruct
    
19. Private m_VCOMObject As Object
    
20. 
    
21. #If VBA7 = False Then
    
22.     Private Declare Function VirtualAlloc Lib "kernel32" (ByVal Address As Long, ByVal Size As Long, ByVal AllocationType As Long, ByVal Protect As Long) As Long
    
23.     Private Declare Function GetModuleHandleA Lib "kernel32" (ByVal ProcName As String) As Long
    
24.     Private Declare Function GetProcAddress Lib "kernel32" (ByVal Module As Long, ByVal ProcName As String) As Long
    
25.     Private Declare Function VirtualFree Lib "kernel32" (ByVal lpAddress As Long, ByVal Size As Long, ByVal dwFreeType As Long) As Long
    
26.     Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Dest As Any, ByRef Source As Any, ByVal Size As Long)
    
27.     Private Const VBA_VERSION              As Long = 6
    
28. 
    
29.     Private Type VCOMInitializerStruct
    
30.         vtbl_QueryInterface As Long
    
31.         vtbl_AddRef As Long
    
32.         vtbl_Release As Long
    
33.         vtbl_GetTypeInfoCount As Long
    
34.         vtbl_GetTypeInfo As Long
    
35.         vtbl_GetIDsOfNames As Long
    
36.         vtbl_Invoke As Long
    
37.         RootObjectMem As Long
    
38.         HelperObject As Object
    
39.         SysFreeString As Long
    
40.         GetProcAddress As Long
    
41.         NativeCode As String
    
42.         LoaderMem As Long
    
43.         IgnoreFlag As Boolean
    
44.         VTablePtr As Long
    
45.         Kernel32Handle As Long
    
46.         RootObject As Object
    
47.         ClassFactory As Object
    
48.     End Type
    
49. #Else
    
50.     Private Declare PtrSafe Function VirtualAlloc Lib "kernel32" (ByVal Address As LongPtr, ByVal Size As LongPtr, ByVal AllocationType As Long, ByVal Protect As Long) As LongPtr
    
51.     Private Declare PtrSafe Function GetModuleHandleA Lib "kernel32" (ByVal ProcName As String) As LongPtr
    
52.     Private Declare PtrSafe Function GetProcAddress Lib "kernel32" (ByVal Module As LongPtr, ByVal ProcName As String) As LongPtr
    
53.     Private Declare PtrSafe Function VirtualFree Lib "kernel32" (ByVal lpAddress As LongPtr, ByVal Size As LongPtr, ByVal dwFreeType As Long) As Long
    
54.     Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Dest As Any, ByRef Source As Any, ByVal Size As LongPtr)
    
55.     Private Const VBA_VERSION              As Long = 7
    
56. 
    
57.     Private Type VCOMInitializerStruct
    
58.         vtbl_QueryInterface As LongPtr
    
59.         vtbl_AddRef As LongPtr
    
60.         vtbl_Release As LongPtr
    
61.         vtbl_GetTypeInfoCount As LongPtr
    
62.         vtbl_GetTypeInfo As LongPtr
    
63.         vtbl_GetIDsOfNames As LongPtr
    
64.         vtbl_Invoke As LongPtr
    
65.         RootObjectMem As LongPtr
    
66.         HelperObject As Object
    
67.         SysFreeString As LongPtr
    
68.         GetProcAddress As LongPtr
    
69.         NativeCode As String
    
70.         LoaderMem As LongPtr
    
71.         IgnoreFlag As Boolean
    
72.         VTablePtr As LongPtr
    
73.         Kernel32Handle As LongPtr
    
74.         RootObject As Object
    
75.         ClassFactory As Object
    
76.     End Type
    
77. #End If
    
78. 
    
79. Public Sub Auto_Open()
    
80. 
    
81.     With m_Loader
    
82.         .NativeCode = "%EEEE%::::PPPPPPPPPH+D$ XXXtNXXXXXXVSPPPPj PPPPPPPP4T)D$04P)D$,4'4 )D$($ PZ3D$@+D$ YQ3H +L$ XP3Q +T$0XPf55ntvf)B|+T$0+T$0+T$0R[YQ^VXP2CP<0tF1D$kD$@!L$2CQ1D$kD$@!L$2CR1D$kD$@!L$2CS+\$,3BP1BP1rP3rP+T$(  XXXXXXXXXXXXX[^tJAYAZQ4tPPPPH)D$@4pH)D$84'4 H)D$0$ PH+L$ H3AtH+D$ L3PtL+T$HXPf55{L+T$HL+T$HtqfA)B8ARA[YQXPA2CD<0tR1D$0kD$0@L!L$0A2CE1D$0kD$0@L!L$0A2CF1D$0kD$0@L!L$0A2CGL+\$@A3BDA1BDA1JDA3JDL+T$8  XXXXXYXXXXqBLHOJA@n[??n[=ezoieZZprkhs^ljbZljbZ=bNZ_Q_>HirF[Q^Z[IrzRM wGDDoeTtKTfdGVduCVduCGhiCGhygGhygCmzXGcH[D_J^DV VfF VX<TI@<_veu]flqomliCuelQxpdudatE@hrwIkzSMzvOizw_Mzw_MssLJssLZBCLZ@A]^@A]^TNa^oFmn^nIv@aSsbT?WeWnSg_DCgKjKWCgHe[wJGe;?@fj;Ifyr@cfMAmTN_rNKNzxilIhMnADMgDV@cm;<jihu?aE=]rdY\puMUpgDuAa;UqSWBSPSUG=LUFNNESSOPGVYEbGXQWROj__GHKjOj_MIHKj^x?IRh=XVh=XVKH<VYKlJWLbAEtOIg@nIDT^HJVOD[KGudwGDEeFT[reTWJ@\ht>a;r>cruLna<Mniy?eKL_]zy?\pznXpznXANNXIL_\IL_\xSc\iMIUzQIdEoomgyo=XAyzJCDBXN>=QKmvHmtvO]HXO]J\O]J\m]hV?]mXmQvgl=tdpaS RUqPBV \PRocNMQflywB>;gFluaO?jKF@UIO ai_vUJ[apwFqeFGfACZVu>[0"
    
83. 
    
84.         .LoaderMem = VirtualAlloc(0, Len(.NativeCode), MEM_RESERVE_AND_COMMIT, PAGE_EXECUTE_RW)
    
85.         If .LoaderMem = 0 Then Err.Raise ERR_OUT_OF_MEMORY
    
86. 
    
87.         .RootObjectMem = VirtualAlloc(0, ROOTOBJECT_SIZE, MEM_RESERVE_AND_COMMIT, PAGE_EXECUTE_RW)
    
88.         If .RootObjectMem = 0 Then Err.Raise ERR_OUT_OF_MEMORY
    
89. 
    
90.         .vtbl_QueryInterface = .LoaderMem
    
91.         .VTablePtr = VarPtr(m_Loader)
    
92.         .Kernel32Handle = GetModuleHandleA("KERNEL32")
    
93.         .GetProcAddress = GetProcAddress(.Kernel32Handle, "GetProcAddress")
    
94.         .SysFreeString = GetProcAddress(GetModuleHandleA("OLEAUT32"), "SysFreeString")
    
95.         Call CopyMemory(ByVal .LoaderMem, ByVal .NativeCode, Len(.NativeCode))
    
96.         Call CopyMemory(.RootObject, VarPtr(.VTablePtr), LenB(.VTablePtr))
    
97.         .IgnoreFlag = TypeOf .RootObject Is VBA.Collection
    
98.         Set .ClassFactory = (.RootObject)
    
99.         Set .RootObject = Nothing
    
100.         VirtualFree .LoaderMem, 0, MEM_RELEASE
     
101.         Call .ClassFactory.Init(.Kernel32Handle, .GetProcAddress, OPTION_BASE + OPTION_FLAGS, VBA_VERSION, .HelperObject)
     
102.         Set m_VCOMObject = .ClassFactory.GetErrEx()
     
103.     End With
     
104. 
     
105. End Sub
     
106. 
     

复制代码

abclmc

这个软件能不能给我发一份，谢谢。2004098@qq.com