Shulou(Shulou.com)06/02 Report--

This article is about the VBA project encryption PJ ways to share with you, the editor feels very practical, so share with you to learn, I hope you can learn something after reading this article, do not say much, follow the editor to have a look.

There are two ways to crack VBA encryption code

The first kind: Sub VBAPassword1 () 'the Excel file path you want to protect Filename = Application.GetOpenFilename ("Excel file (* .xls & * .xla & * .xlt), * .xls;*.xla;*.xlt", "VBA crack") If Dir (Filename) = "Then MsgBox" did not find the relevant file, clear and reset. " Exit Sub Else FileCopy Filename, Filename & ".bak" 'backup files. End If Dim GetData As String * 5 Open Filename For Binary As # 1 Dim CMGs As Long Dim DPBo As Long For i = 1 To LOF (1) Get # 1, I, GetData If GetData = "CMG="Then CMGs = i If GetData =" [Host "Then DPBo = I-2: Exit For Next If CMGs = 0 Then MsgBox" Please set a protection password for VBA encoding first. ", 32 "prompt" Exit Sub End If Dim St As String * 2 Dim s20 As String * 1 'get a 0D0A hexadecimal string Get # 1, CMGs-2, St' get a 20hexadecimal string Get # 1, DPBo + 16, S20 'replace the encrypted part of the key For I = CMGs To DPBo Step 2 Put # 1, I St Next 'added unmatched symbols If (DPBo-CMGs) Mod 20 Then Put # 1, DPBo + 1, S20 End If MsgBox "file decrypted successfully.", 32, "prompt" Close # 1End Sub second: Option Explicit 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 BooleanPrivate Function GetPtr (ByVal Value As Long) As Long GetPtr = ValueEnd FunctionPublic Sub RecoverBytes () If Flag Then MoveMemory ByVal pFunc, ByVal VarPtr (OriginBytes (0)), 6End SubPublic 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, & H40, OriginProtect) 0 Then MoveMemory ByVal VarPtr (TmpBytes (0)), ByVal pFunc, 6 If TmpBytes (0) & H68 Then MoveMemory ByVal VarPtr (OriginBytes (0)), ByVal pFunc, 6p = 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 IfEnd IfEnd FunctionPrivate 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 IfEnd FunctionSub Crack () If Hook Then MsgBox "cracked successfully" End Sub above is what are the encryption PJ methods of VBA project The editor believes that there are some knowledge points that we may see or use in our daily work. I hope you can learn more from this article. For more details, please follow the industry information channel.

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.