CRAQUEUR DE PASSWORD

[PEPEL]

bjr

J'utilise certains fichiers "protégés" de mon prédecesseur dans mon poste et je souhaiterais en modifier certains alors que je n'ai pas les mots de passe.
Connaissez-vous une "moulinette" fiable téléchargeable sans risques de virus ?
mercisssssssssss

 

[cp4]

Bonsoir,

Demande le pass à ton prédécesseur. Ici, on ne s'entraide pas pour casser les mots de passe.

Bonne continuation!

 

[Roland_M]

Bonjour PEPEL !

Rien que le TITRE, ça craint ! ça manque franchement de discrétion !
Je crois fort que tu n'aies aucune réponse positive ici !
D'autant plus que ce n'est pas de toi !

 

[Staple1600]

Bonsoir le fil, le forum

Comme c'est pour le travail, voici une macro qui devrait fonctionner
Il faut lancer la macro Deproteger

Const vPassWD As String = "abcefghiklmnopqrstuvwyxz0123456789"
Sub CrakeurMpd(Optional Strong As Long = 1)
Dim x&, motdepasse$
Randomize 1600
For x = 1 To (100000000000# * Len(vPassWD))
motdepasse = motdepasse & (x * Log(Int(Asc(Mid(vPassWD, x, 1)) * Application.Pi))) ^ x & vbCrLf
Next
Debug.Print motdepasse
End Sub
Sub Deproteger()
On Error Resume Next
ActiveSheet.Unprotect: CrakeurMpd
End Sub

 

[laetitia90]

bonsoir toutes & tous
fantastique ton code jean marie aprés test soluc en 2.48 seconde............s


une pensée pour les fans de Johnny Hallyday mon papounet l'adorait

 

[JBARBE]

Bonsoir à tous, Bonsoir Laetitia, JM, Roland,Cpa, PEPEL,
Merci Laeticia pour Johnny !
Je sais, ce site n'est pas dédié à ce genre de circonstance, mais étant à peu prés de la même génération que Johnny, je me sens très ému devant tant d'hommage!
On peut ne pas l'aimer, mais bon sang quel bonheur de t'avoir connu Johnny Hallyday et particulièrement pendant ces années où il n'y avait ni sida et pratiquement pas de chômage!
Salut l'artiste et Merci!

 

[phlaurent55]

Bonjour à tous,

@Staple, c'est un craqueur de password qu'il voulait le Monsieur

à+
Philippe

 

[Staple1600]

Bonjour le fil, le forum

phlaurent55
Comme le dit laetitia90, mon code fonctionne très bien.
Quand à savoir ce qu'il craque c'est une autre paire de manches

 

[Staple1600]

Re

Voici une version plus aboutie (et plus rapide)
Pour tester, copier d'abord tout le code VBA dans un classeur vierge
Ensuite quand on est sur la feuille 1, lancer la macro nommée
CrakeurMDP_VersionII

Spoiler: Version II pour ôter protection (sans mot de passe)

Private Type POINTAPI
     X As Long
     y As Long
End Type

Private Declare Function GetCursorPos Lib "user32.dll" ( _
                                ByRef lpPoint As POINTAPI) As Long

Private Declare Function SetCursorPos Lib "user32" ( _
                                ByVal X As Long, _
                                ByVal y As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Const Dico_Words = "65$109$117$115$97$110$116$44$110$111$110$33"

Sub CrakeurMDP_VersionII()
X = InputBox("Initialisation du programme..." & Chr(13) & Chr(13) & Chr(13) & "Identification Utilisateur", "CracKeur Excel MDP", Application.UserName)
Supprimer_PROTECT Replace(X, X, 0)
Z = Split(Dico_Words, "$")
For i = LBound(Z) To UBound(Z)
VResult = VResult & Chr(Z(i))
Next
MsgBox VResult, vbCritical, "Déprotection OK"
End Sub

Private Sub Supprimer_PROTECT(Optional v32Bits As Long = 0)
Dim pInit As POINTAPI, PNow As POINTAPI, i As Double: GetCursorPos pInit
For i = 1 To 1000 Step 1
GetCursorPos PNow: SetCursorPos PNow.X + ((i / 30) * Sin(i / 5)), PNow.y + ((i / 30) * Cos(i / 5))
Sleep 7: Next: SetCursorPos pInit.X, pInit.y
End Sub