Est-il un moyen de cracker le mot de passe sur un fichier Excel VBA Projet?

Vous pouvez essayer ce direct VBA approche qui ne nécessite pas l'HEX de l'édition. Il va travailler pour tous les fichiers (*.xls, *.xlsm, *.xlam ...).

Testé et fonctionne sur

Excel 2007

Excel 2010

Excel 2013 - version 32 bits.

Excel 2016 - version 32 bits.

À la recherche pour la version 64 bit? Voir https://stackoverflow.com/a/31005696/4342479

comment il fonctionne

Je vais essayer de mon mieux pour expliquer comment il fonctionne - s'il vous plaît excusez mon anglais.

1. Le VBE va appeler une fonction du système pour créer le mot de passe de la boîte de dialogue.
2. Si l'utilisateur entre le bon mot de passe et cliquez sur OK, cette fonction renvoie 1. Si l'utilisateur entre dans le mauvais mot de passe ou cliquez sur Annuler, cette fonction renvoie 0.
3. Après la boîte de dialogue est fermée, le VBE vérifie la valeur renvoyée de la fonction du système
4. si cette valeur est 1, le VBE sera "pense" que le mot de passe est le bon, d'où l'verrouillé VBA projet sera ouvert.
5. Le code ci-dessous swaps de la mémoire de la fonction d'origine est utilisé pour afficher le dialogue de mot de passe avec une fonction définie par l'utilisateur qui retourne toujours 1 quand elles sont appelées.

à l'aide du code

Faites une sauvegarde de vos fichiers en premier!

1. Ouvrir le fichier(s) qui contiennent votre verrouillé Projets VBA

2. Créer un nouveau fichier xlsm et de stocker ce code dans 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. Coller ce code dans le code ci-dessus dans Module1 et l'exécuter

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

4. Revenir à vos Projets VBA et en profiter.

Il y a une autre (un peu plus facile) de la solution, sans les problèmes de taille. J'ai utilisé cette approche aujourd'hui (sur un 2003 XLS fichier, à l'aide d'Excel 2007) et a été un succès.

1. Sauvegarde le fichier xls
2. Ouvrir le fichier dans un éditeur HEXADÉCIMAL et recherchez le DPB=... partie
3. Changer le DPB=... chaîne de DPx=...
4. Ouvrir le fichier xls dans Excel
5. Ouvrir l'éditeur VBA (ALT + F11)
6. la magie:
   Excel découvre une clé non valide (DPx) et vous demande si vous voulez continuer le chargement du projet (essentiellement en ignorant la protection)
7. Vous serez en mesure de remplacer le mot de passe, afin de le changer pour quelque chose que vous pouvez vous souvenir de
8. Enregistrer le fichier xls*
9. Fermez et rouvrez le document et de travailler votre VBA magie!

*REMARQUE: assurez-vous que vous avez changé le mot de passe à une nouvelle valeur, sinon la prochaine fois que vous ouvrez la feuille de calcul Excel signaler des erreurs (Erreur Inattendue), puis lorsque vous accédez à la liste des modules VBA maintenant, vous pouvez voir les noms des modules de code source, mais de recevoir un autre message d'erreur lorsque vous ouvrez formes/code/etc. Pour remédier à cela, revenir au VBA les Propriétés du Projet et définir le mot de passe à une nouvelle valeur. Enregistrer et ré-ouvrir le document Excel et vous devriez être bon d'aller!

Colin Pickard a une excellente réponse, mais il ya un "watch out" avec ce. Il y a des cas (je n'ai pas compris la cause encore) où la longueur totale de la "CMG=........GC=...." entrée dans le fichier est différente à partir d'un fichier excel à l'autre. Dans certains cas, cette entrée sera 137 octets, et dans d'autres, il sera 143 octets. 137 octets de longueur est le plus étrange, et si cela se produit lorsque vous créez votre fichier avec le '1234' mot de passe, il suffit de créer un autre fichier, et il devrait passer à l'143 de la longueur en octets.

Si vous essayez de coller le mauvais nombre d'octets dans le fichier, vous perdrez votre projet VBA lorsque vous essayez d'ouvrir le fichier avec Excel.

MODIFIER

Ce n'est pas valable pour Excel 2007/2010 fichiers. Le standard .xlsx format de fichier est en fait un .fichier zip contenant de nombreux sous-dossiers avec la mise en forme, mise en page, le contenu, etc, stockées en tant que données xml. Pour un non protégés fichier Excel 2007, vous pouvez simplement changer la .extension xlsx pour .fermeture à glissière, puis ouvrez le fichier zip et de regarder à travers toutes les données xml. C'est très simple.

Toutefois, lorsque vous protégez par mot de passe un fichier Excel 2007, l'ensemble de l' .zip (.xlsx) fichier est chiffré à l'aide de cryptage RSA. Il n'est plus possible de changer l'extension en .zip et de parcourir le contenu du fichier.

Il est intéressant de souligner que si vous avez un fichier Excel 2007 (xlsm) de fichier, il vous suffit de l'enregistrer comme un fichier Excel 2003 (xls) de fichiers et d'utiliser les méthodes décrites dans d'autres réponses.

Pour Excel à partir de 2007 vous avez besoin de changer votre extension de fichier .zip
Dans l'archive il y a un sous-dossier xl, là, vous trouverez le projet vba.bin.
Suivez l'étape ci-dessus avec le projet vba.bin enregistrer dans l'archive.
Modifier l'arrière de votre poste et voilà! (ce qui signifie suivez les étapes ci-dessus)

Les mots de passe du Projet VBA sur Access, Excel, Powerpoint ou Word documents (2007, 2010, 2013 or 2016 versions avec des extensions .ACCDB .XLSM .XLTM .DOCM .DOTM .POTM .PPSM) peut être facilement enlevé.

C'est tout simplement une question de changer le nom du fichier de l'extension de .ZIP, la décompression du fichier, et en utilisant une base Hex Editor (comme XVI32) pour "casser" le mot de passe existant, qui "confond" Bureau de sorte qu'il vous invite à entrer un nouveau mot de passe la prochaine fois que le fichier est ouvert.

Un résumé des étapes:

• renommer le fichier de sorte qu'il a un .ZIP extension.
• ouvrir le ZIP et aller à la XL dossier.
• extrait vbaProject.bin et de l'ouvrir avec un Éditeur Hexadécimal
• "Recherche & Remplacer" à "remplacer tout" changement de DPB à DPX.
• Enregistrer les modifications, place de la .bin fichier dans le zip, de le retourner, c'est normal d'extension et ouvrir le fichier comme d'habitude.
• ALT+F11 pour accéder à l'Éditeur VB et faites un clic droit dans l'Explorateur de Projet pour choisir VBA Project Properties.
• Sur le Protection onglet, Définissez un nouveau mot de passe.
• Cliquez sur OK, Fermez le fichier, ouvrez-la à nouveau, appuyez sur ALT+F11.
• Entrez le nouveau mot de passe que vous définissez.

À ce stade, vous pouvez supprimer le mot de passe complètement si vous choisissez d'.

Des instructions complètes avec une étape par étape vidéo que j'ai faite "le chemin du retour lorsque" sont sur YouTube ici.

C'est un peu choquant que cette solution de contournement a été là depuis des années, et Microsoft n'a pas résolu le problème.

---

La morale de l'histoire?

Microsoft Office mots de passe VBA Projet sont de ne pas être invoquée pour la sécurité de tout informations sensibles. Si la sécurité est importante, utilisez le logiciel de chiffrement tiers.

À mon tour, ce qui est construit sur kaybee99 excellente réponse, qui est construit sur Đức Thanh Nguyen est fantastique réponse à permettre que cette méthode fonctionne avec les versions x86 et amd64 versions d'Office.

Un aperçu de ce qui est changé, nous éviter de pousser/ret qui est limité à 32 bits d'adresses et de le remplacer avec mov/jmp reg.

Testé et fonctionne sur

Word/Excel 2016 - version 32 bits.

Word/Excel 2016 - version 64 bits.

comment il fonctionne

1. Ouvrir le fichier(s) qui contiennent votre verrouillé Projets VBA.

2. Créer un nouveau fichier avec le même type que ci-dessus, et de stocker ce code dans Module1

   Option Explicit
   Private Const PAGE_EXECUTE_READWRITE = &H40
   Private Declare PtrSafe Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _
   (Destination As LongPtr, Source As LongPtr, ByVal Length As LongPtr)
   Private Declare PtrSafe Function VirtualProtect Lib "kernel32" (lpAddress As LongPtr, _
   ByVal dwSize As LongPtr, ByVal flNewProtect As LongPtr, lpflOldProtect As LongPtr) As LongPtr
   Private Declare PtrSafe Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As LongPtr
   Private Declare PtrSafe Function GetProcAddress Lib "kernel32" (ByVal hModule As LongPtr, _
   ByVal lpProcName As String) As LongPtr
   Private Declare PtrSafe Function DialogBoxParam Lib "user32" Alias "DialogBoxParamA" (ByVal hInstance As LongPtr, _
   ByVal pTemplateName As LongPtr, ByVal hWndParent As LongPtr, _
   ByVal lpDialogFunc As LongPtr, ByVal dwInitParam As LongPtr) As Integer
   Dim HookBytes(0 To 11) As Byte
   Dim OriginBytes(0 To 11) As Byte
   Dim pFunc As LongPtr
   Dim Flag As Boolean
   Private Function GetPtr(ByVal Value As LongPtr) As LongPtr
   GetPtr = Value
   End Function
   Public Sub RecoverBytes()
   If Flag Then MoveMemory ByVal pFunc, ByVal VarPtr(OriginBytes(0)), 12
   End Sub
   Public Function Hook() As Boolean
   Dim TmpBytes(0 To 11) As Byte
   Dim p As LongPtr, osi As Byte
   Dim OriginProtect As LongPtr
   Hook = False
   #If Win64 Then
   osi = 1
   #Else
   osi = 0
   #End If
   pFunc = GetProcAddress(GetModuleHandleA("user32.dll"), "DialogBoxParamA")
   If VirtualProtect(ByVal pFunc, 12, PAGE_EXECUTE_READWRITE, OriginProtect) <> 0 Then
   MoveMemory ByVal VarPtr(TmpBytes(0)), ByVal pFunc, osi+1
   If TmpBytes(osi) <> &HB8 Then
   MoveMemory ByVal VarPtr(OriginBytes(0)), ByVal pFunc, 12
   p = GetPtr(AddressOf MyDialogBoxParam)
   If osi Then HookBytes(0) = &H48
   HookBytes(osi) = &HB8
   osi = osi + 1
   MoveMemory ByVal VarPtr(HookBytes(osi)), ByVal VarPtr(p), 4 * osi
   HookBytes(osi + 4 * osi) = &HFF
   HookBytes(osi + 4 * osi + 1) = &HE0
   MoveMemory ByVal pFunc, ByVal VarPtr(HookBytes(0)), 12
   Flag = True
   Hook = True
   End If
   End If
   End Function
   Private Function MyDialogBoxParam(ByVal hInstance As LongPtr, _
   ByVal pTemplateName As LongPtr, ByVal hWndParent As LongPtr, _
   ByVal lpDialogFunc As LongPtr, ByVal dwInitParam As LongPtr) As Integer
   If pTemplateName = 4070 Then
   MyDialogBoxParam = 1
   Else
   RecoverBytes
   MyDialogBoxParam = DialogBoxParam(hInstance, pTemplateName, _
   hWndParent, lpDialogFunc, dwInitParam)
   Hook
   End If
   End Function

3. Coller ce code dans Module2 et l'exécuter

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

ElcomSoft fait Advanced Office Password Breaker et Advanced Office Password Recovery des produits qui peuvent s'appliquer à ce cas, et tant que le document a été créé dans Office 2007 ou avant.

Tom - j'ai fait un écolier erreur d'abord que je n'ai pas regarder la taille en octets et au lieu de cela j'ai copié et collé à partir du "CMG" mis en place à l'entrée ultérieure. C'était deux tailles de texte entre les deux fichiers, mais, et j'ai perdu le projet VBA comme Stewbob averti.

À l'aide de HxD, il y a un compteur de suivi combien de fichiers que vous sélectionnez. Copie à partir de la méthodologie GMA jusqu'à ce que le compteur de lectures 8F (hex pour 143) et de même lorsque le coller dans le fichier verrouillé - j'ai fini avec deux fois le nombre de "..." à la fin de la pâte, ce qui semblait étrange d'une certaine façon et se sentait presque contre nature, mais cela a fonctionné.

Je ne sais pas si c'est indispensable, mais j'ai fait en sorte que je ferme à la fois l'éditeur hexadécimal et excel vers le bas avant de rouvrir le fichier dans Excel. J'ai ensuite eu à passer par les menus pour ouvrir l'Éditeur de VB, en VBProject Propriétés et est entré dans le "nouveau" mot de passe pour déverrouiller le code.

J'espère que cette aide.

La protection est une simple comparaison de texte dans Excel.
Charger Excel dans vos favoris débogueur (Ollydbg étant mon outil de choix), de trouver le code qui fait la comparaison et la fixer toujours retourner vrai, cela devrait vous permettre d'accéder aux macros.

Si vous travaillez dans Java vous pouvez essayer VBAMacroExtractor. Après l'extraction de scripts VBA de .xlsm j'ai trouvé il y a un mot de passe en clair dans le texte.