[excel] Excel VBA 프로젝트에서 암호를 해독하는 방법이 있습니까?

VBAHEX 편집이 필요없는 이 직접 접근 방식을 시도 할 수 있습니다 . 모든 파일 (* .xls, * .xlsm, * .xlam …)에서 작동합니다.

테스트 및 작동 :

Excel 2007
Excel 2010
Excel 2013-32 비트 버전
Excel 2016-32 비트 버전

64 비트 버전을 찾고 계십니까? 이 답변을 참조하십시오

작동 원리

나는 그것이 어떻게 작동하는지 설명하기 위해 최선을 다할 것입니다-영어 실례합니다.

1. VBE는 시스템 기능을 호출하여 암호 대화 상자를 만듭니다.
2. 사용자가 올바른 비밀번호를 입력하고 확인을 클릭하면이 함수는 1을 리턴합니다. 사용자가 잘못된 비밀번호를 입력하거나 취소를 클릭하면이 함수는 0을 리턴합니다.
3. 대화 상자가 닫히면 VBE는 시스템 기능의 반환 값을 확인합니다
4. 이 값이 1이면 VBE는 암호가 올바른 것으로 “생각”하므로 잠긴 VBA 프로젝트가 열립니다.
5. 아래 코드는 암호 대화 상자를 표시하는 데 사용 된 원래 함수의 메모리를 호출시 항상 1을 반환하는 사용자 정의 함수로 교체합니다.

코드 사용

먼저 파일을 백업하십시오!

1. 잠긴 VBA 프로젝트가 포함 된 파일을 엽니 다

2. 새 xlsm 파일을 작성하고이 코드를 Module1에 저장 하십시오.

   code credited to Siwtom (nick name), a Vietnamese developer

   Option Explicit
   
   Private Const PAGE_EXECUTE_READWRITE = &H40
   
   Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _
           (Destination As Long, Source As Long, ByVal Length As Long)
   
   Private 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" (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(0 To 5) As Byte
   Dim OriginBytes(0 To 5) As Byte
   Dim pFunc As Long
   Dim Flag As Boolean
   
   Private Function GetPtr(ByVal Value As Long) As Long
       GetPtr = Value
   End Function
   
   Public Sub RecoverBytes()
       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
   
       pFunc = GetProcAddress(GetModuleHandleA("user32.dll"), "DialogBoxParamA")
   
   
       If VirtualProtect(ByVal pFunc, 6, PAGE_EXECUTE_READWRITE, OriginProtect) <> 0 Then
   
           MoveMemory ByVal VarPtr(TmpBytes(0)), ByVal pFunc, 6
           If TmpBytes(0) <> &H68 Then
   
               MoveMemory ByVal VarPtr(OriginBytes(0)), ByVal pFunc, 6
   
               p = GetPtr(AddressOf MyDialogBoxParam)
   
               HookBytes(0) = &H68
               MoveMemory ByVal VarPtr(HookBytes(1)), ByVal VarPtr(p), 4
               HookBytes(5) = &HC3
   
               MoveMemory ByVal pFunc, ByVal VarPtr(HookBytes(0)), 6
               Flag = True
               Hook = True
           End If
       End If
   End Function
   
   Private Function MyDialogBoxParam(ByVal hInstance As Long, _
           ByVal pTemplateName As Long, ByVal hWndParent As Long, _
           ByVal lpDialogFunc As Long, ByVal dwInitParam As Long) As Integer
       If pTemplateName = 4070 Then
           MyDialogBoxParam = 1
       Else
           RecoverBytes
           MyDialogBoxParam = DialogBoxParam(hInstance, pTemplateName, _
                              hWndParent, lpDialogFunc, dwInitParam)
           Hook
       End If
   End Function

3. 이 코드를 Module1 의 위 코드 아래에 붙여 넣고 실행하십시오.

   Sub unprotected()
       If Hook Then
           MsgBox "VBA Project is unprotected!", vbInformation, "*****"
       End If
   End Sub

4. VBA 프로젝트로 돌아와서 즐기십시오.

답변