2022年EXCELvba工程密码破 .pdf

《2022年EXCELvba工程密码破 .pdf》由会员分享，可在线阅读，更多相关《2022年EXCELvba工程密码破 .pdf（5页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、EXCEL vba 工程密码破解这种方法实际是避开VBA 工程密码验证，即，骗vba 编辑器，该密码输入成功，请求放行。原理不多说了，先将方法公布：= 1.新建一个工作簿，打开，按ALT+F11 ，进入 vba 代码编辑器窗口：2.新建一个模块， “ 插入 ” -“ 模块 ” 把以下代码复制进模块并保存- Option Explicit Private Declare Sub MoveMemory Lib kernel32 Alias RtlMoveMemory _ (Destination As Long, Source As Long, ByVal Length As Long) Priv

2、ate Declare Function VirtualProtect Lib kernel32 (lpAddress As Long, _ ByVal dwSize As Long, ByVal flNewProtect As Long, lpflOldProtect As Long) As Long Private Declare Function GetModuleHandleA Lib kernel32 (ByVal lpModuleName As String) As Long Private Declare Function GetProcAddress Lib kernel32

3、(ByVal hModule As Long, _ ByVal lpProcName As String) As Long Private Declare Function DialogBoxParam Lib user32 Alias DialogBoxParamA (ByVal hInstance As Long, _ ByVal pTemplateName As Long, ByVal hWndParent As Long, _ ByVal lpDialogFunc As Long, ByVal dwInitParam As Long) As Integer Dim HookBytes(

4、0 To 5) As Byte Dim OriginBytes(0 To 5) As Byte Dim pFunc As Long Dim Flag As Boolean 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 5 页 - - - - - - - - - Private Function GetPtr(ByVal Value As Long) As Long 获得函数的地址GetPtr = Value End Function Public Sub Recover

5、Bytes() 若已经 hook,则恢复原 API 开头的 6 字节 ,也就是恢复原来函数的功能If Flag Then MoveMemory ByVal pFunc, ByVal VarPtr(OriginBytes(0), 6 End Sub Public Function Hook() As Boolean Dim TmpBytes(0 To 5) As Byte Dim p As Long Dim OriginProtect As Long Hook = False VBE6.dll 调用 DialogBoxParamA显示 VB6INTL.dll资源中的第 4070 号对话框 (就是

6、输入密码的窗口) 若 DialogBoxParamA返回值非 0,则 VBE 会认为密码正确 ,所以我们要 hook DialogBoxParamA函数pFunc = GetProcAddress(GetModuleHandleA(user32.dll), DialogBoxParamA) 标准 api hook 过程之一 : 修改内存属性 ,使其可写If VirtualProtect(ByVal pFunc, 6, &H40, OriginProtect) 0 Then 标准 api hook 过程之二 : 判断是否已经hook,看看 API 的第一个字节是否为&H68, 若是则说明已经Ho

7、ok MoveMemory ByVal VarPtr(TmpBytes(0), ByVal pFunc, 6 If TmpBytes(0) &H68 Then 标准 api hook 过程之三 : 保存原函数开头字节,这里是 6 个字节 ,以备后面恢复MoveMemory ByVal VarPtr(OriginBytes(0), ByVal pFunc, 6 用 AddressOf 获取 MyDialogBoxParam的地址因为语法不允许写成p = AddressOf MyDialogBoxParam,这里我们写一个函数GetPtr, 作用仅仅是返回AddressOf MyDialogBox

8、Param的值 ,从而实现将MyDialogBoxParam的地址付给 p 的目的p = GetPtr(AddressOf MyDialogBoxParam) 标准 api hook 过程之四 : 组装 API 入口的新代码HookBytes 组成如下汇编push MyDialogBoxParam的地址ret 作用是跳转到MyDialogBoxParam函数名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 5 页 - - - - - - - - - HookBytes(0)

9、 = &H68 MoveMemory ByVal VarPtr(HookBytes(1), ByVal VarPtr(p), 4 HookBytes(5) = &HC3 标准 api hook 过程之五 : 用 HookBytes的内容改写 API 前 6 个字节MoveMemory ByVal pFunc, ByVal VarPtr(HookBytes(0), 6 设置 hook 成功标志Flag = True Hook = True End If End If End Function Private Function MyDialogBoxParam(ByVal hInstance As

10、 Long, _ ByVal pTemplateName As Long, ByVal hWndParent As Long, _ ByVal lpDialogFunc As Long, ByVal dwInitParam As Long) As Integer If pTemplateName = 4070 Then 有程序调用 DialogBoxParamA装入 4070 号对话框 ,这里我们直接返回1,让VBE 以为密码正确了MyDialogBoxParam = 1 Else 有程序调用 DialogBoxParamA,但装入的不是4070 号对话框 ,这里我们调用RecoverByte

11、s函数恢复原来函数的功能,在进行原来的函数RecoverBytes MyDialogBoxParam = DialogBoxParam(hInstance, pTemplateName, _ hWndParent, lpDialogFunc, dwInitParam) 原来的函数执行完毕,再次 hook Hook End If End Function - 3.右击 sheet1 工作表， “ 查看代码 ” 复制以下代码进去并保存：- 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第

12、3 页，共 5 页 - - - - - - - - - sub 破解 () if hook then msgbox 破解成功 end if end sub sub 恢复 () RecoverBytes msgbox 恢复成功 end sub - 4.到此,一个 vba 破解程序完成了 ,回到该工作簿窗口,文件 -打开 打开需要破解 vba 工程密码的工作簿. 5.运行call 破解 稍后你再双击刚才要解密的VBA 工程窗体 .是不是如入无人之境啊,工程保护密码形同虚设啊 ? 6.破解完成后 ,请右键刚破解的VBA 工程 ,在查看工程时需要密码的地方复选框取消选择,OK. 完成 . 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 5 页 - - - - - - - - - 7.完成后别忘了执行 call 恢复,恢复密码保护 (恢复程序的密码保护,已被破解的文件不收影响. (请勿用于非法途径 ) 已验证，破解成功名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 5 页 - - - - - - - - -