ZIP, XLS, PDF : Faites sauter les protections !

0

Avant de jeter à la corbeille ce fichier ZIP dont vous avez oublié le mot de passe. Votre fichier XLS ou PDF a été malencontreusement verrouillé.
Grâce à certains logiciels ou manipulations, il est possible de retrouver ce *# »&\@  de mot de passe.

Avec ce petit guide, cracker ces fichiers va devenir pour vous un jeu d’enfant…

Zip Password Finder

Zip Password Finder est un logiciel permettant de retrouver le mot de passe de votre fichier ZIP. Sa méthode : La brute force. Cette méthode va essayer tous les mots de passe jusqu’à obtenir le bon. L’utilisateur a juste besoin de spécifier le nombre et le type de caractères. Attention cette méthode peut être longue. Un mot de passe de 10 chiffres sera cracké en 1/2 journée. Un mot de passe composé de plusieurs types de caractère pourra prendre plusieurs années.
Lors de notre essai sur un mot de passe de 5 lettres minuscules, il a fallu moins d’une minute pour déchiffrer le mot de passe. Moins complet que son concurrent Advanced ZIP Password Recovery mais gratuit.

PDF Password Remover

PDF Password Remover permet de déverrouiller les fichier PDF protégés par un mot de passe. Il permet de récupérer tous les droits sur le pdf : modification, impression, édition des acroforms, récupération des images et édition… En anglais, la version d’essai affiche un pop-up, décrypte uniquement la première moitié de la première page.

Fichiers Excel

Pour ôter la protection d’un fichier Excel (XLS), ouvrez le fichier puis aller dans Outils > Macro > Visual Basic Editor et copier/coller du code suivant

Sub Deproteger()

Dim A As Byte, B As Byte, C As Byte, D As Byte, E As Byte
Dim F As Byte, G As Byte, H As Byte, I As Byte, J As Byte
Dim K As Byte, L As Byte, M As Byte, N As Byte, O As Byte
Dim Reponse As Byte, Temps As Variant
Dim Cible As Object, Passe As String

‘ Demande ce qu’il faut déprotéger.
Reponse = MsgBox(« Voulez-vous déprotéger le classeur actif ? » & vbCrLf & _
« Si vous répondez non, c’est la feuille active qui sera déprotégée. « , _
vbYesNoCancel, « Déprotectionnateur »)

On Error Resume Next
‘ Teste ce qu’il faut déprotéger.
Select Case Reponse
Case vbYes
‘ Définit le classeur actif comme cible à déprotéger.
Set Cible = ActiveWorkbook
‘ Teste si le classeur est protégé.
If Not (Cible.ProtectStructure Or Cible.ProtectWindows) Then
MsgBox « Le classeur actif n’est pas protégé.  » & vbCrLf & _
vbCrLf & « Andouille ! », vbOKOnly, « Déprotectionnateur »
Exit Sub
End If
‘ Teste si le classeur est protégé sans mot de passe.
Err.Clear
Cible.Unprotect vbNullString
If Err = 0 Then
MsgBox « La protection du classeur actif a été supprimée.  » _
& vbCrLf & « Il n’y avait pas de mot de passe. Petit rigolo ! », _
vbOKOnly, « Déprotectionnateur »
Exit Sub
End If
Case vbNo
‘ Définit la feuille active comme cible à déprotéger.
Set Cible = ActiveSheet
‘ Teste si la feuille est protégée (on ne teste pas UserInterfaceOnly qui ne peut être positionné que par macro
‘ et n’est pas enregistré avec le classeur).
If Not (Cible.ProtectContents Or Cible.ProtectDrawingObjects Or _
Cible.ProtectScenarios) Then
MsgBox « La feuille active n’est pas protégée.  » & vbCrLf & _
vbCrLf & « Patate ! », vbOKOnly, « Déprotectionnateur »
Exit Sub
End If
‘ Teste si la feuille est protégée sans mot de passe.
Err.Clear
Cible.Unprotect vbNullString
If Err = 0 Then
MsgBox « La protection de la feuille active a été supprimée.  » _
& vbCrLf & « Il n’y avait pas de mot de passe. Quelle burne ! », _
vbOKOnly, « Déprotectionnateur »
Exit Sub
End If
Case Else
‘ Annulation demandée par l’utilisateur.
MsgBox String(14,  » « ) & « Ciao ! », vbOKOnly, « Déprotectionnateur »
Exit Sub
End Select

‘ Note l’instant de départ.
Temps = Timer

‘ Boucles de calcul des mots de passe. On utilise ici les codes ascii des caractères « 0 » et « 1 ».
For A = 48 To 49
For B = 48 To 49
For C = 48 To 49
For D = 48 To 49
For E = 48 To 49
For F = 48 To 49
For G = 48 To 49
For H = 48 To 49
For I = 48 To 49
For J = 48 To 49
For K = 48 To 49
For L = 48 To 49
For M = 48 To 49
For N = 48 To 49
For O = 48 To 49
‘ Calcule le mot de passe.
Passe = Chr(A) & Chr(B) & Chr(C) & Chr(D) & Chr(E) & _
Chr(F) & Chr(G) & Chr(H) & Chr(I) & Chr(J) & _
Chr(K) & Chr(L) & Chr(M) & Chr(N) & Chr(O)
‘ Essaie de déprotéger la cible.
Err.Clear
Cible.Unprotect Passe
‘ Teste si la cible est bien déprotégé.
If Err = 0 Then
‘ Si oui, affiche le mot de passe et sort.
MsgBox « La protection a été supprimée en  » & _
Timer – Temps &  » secondes.  » & vbCrLf & _
« Le mot de passe équivalent trouvé est : » & _
vbCrLf & vbCrLf & String(28,  » « ) & Passe, _
vbOKOnly, « Déprotectionnateur »
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next

‘ Message impossible à atteindre.
MsgBox « Mot de passe introuvable. » & vbCrLf & vbCrLf & _
« C’est pas normal !!! », vbOKOnly, « Déprotectionnateur »

End Sub

source : VBFrance

Sauvegardez vos modifications, puis faites Outils > Macro > Macros puis exécutez la macro. Le mot de passe, qui protégeait le fichier Excel, devrait apparaître.

Partager.

A propos de l'auteur

Passionné de nouvelles technologies, je suis un touche-à-tout. Mon smartphone ne me quitte (presque) jamais. Je peux vous parler des NAS pendant des heures.

Lire les articles précédents :
Top 5 des vidéos de la semaine…

La nouvelle rubrique semble vous plaire. En espérant que cette semaine, vous plaise... Voulez-vous voir ou revoir les vidéos du...

Fermer