Recuperer mot de passe de base donnée access

Soyez le premier à donner votre avis sur cette source.

Vue 10 939 fois - Téléchargée 2 562 fois

Télécharger le projet
Commenter

Description

Permet de Récupérer Le Mot De Passe qui protège une base de donnée Access avec Simple Click .
Permet de Récupérer Le Mot De Passe qui protège une base de donnée Access avec Simple Click .
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
-
Bonjour,

j'aimerai récupérer aussi un mot de passe mais je n'arrive pas a utiliser votre logiciel..
je suis sous Win XP
pouvez vous m'aider svp ?
merci :)
Signaler
phanpile
Messages postés
1
Date d'inscription
jeudi 11 mars 2010
Statut
Membre
Dernière intervention
1 décembre 2011
 -
Juste encore un merci à 3aloula et pour ceux comme moi qui sont par exemple sur W7 et/ou qui n'ont pas VB6 mais ont Excel, on peut aussi le faire tourner sur Excel en VBA :
--------------------------------------------------
Function GetPassword(ByVal FileName As String) As String

On Error GoTo ErrHand

Dim Access2000Decode As Variant
Dim fFile As Integer
Dim bCnt As Integer
Dim retXPwd(17) As Integer
Dim wkCode As Integer
Dim mgCode As Integer

Access2000Decode = Array(&H6ABA, &H37EC, &HD561, &HFA9C, &HCFFA, _
&HE628, &H272F, &H608A, &H568, &H367B, _
&HE3C9, &HB1DF, &H654B, &H4313, &H3EF3, _
&H33B1, &HF008, &H5B79, &H24AE, &H2A7C)

If Len(FileName) > 0 Then
fFile = FreeFile

Open FileName For Binary As #fFile
Get #fFile, 67, retXPwd
Get #fFile, 103, mgCode
Close #fFile

mgCode = mgCode Xor Access2000Decode(18)
str2000 = vbNullString

For bCnt = 0 To 17
wkCode = retXPwd(bCnt) Xor Access2000Decode(bCnt)
If wkCode < 256 Then
str2000 = str2000 & Chr(wkCode)
Else
str2000 = str2000 & Chr(wkCode Xor mgCode)
End If
Next bCnt
Else
str2000 = "No file Selected"
End If

GetPassword = str2000
Exit Function

ErrHand:
MsgBox "Error with opening file", vbCritical, App.Title

End Function
--------------------------------------------------
Il suffit ensuite d'appeler =GetPassword("Chemin\Fichier.mdb") dans une cellule
--------------------------------------------------
Signaler
zwit
Messages postés
15
Date d'inscription
mercredi 14 septembre 2011
Statut
Membre
Dernière intervention
27 septembre 2011
 -
merci
Signaler
zwit
Messages postés
15
Date d'inscription
mercredi 14 septembre 2011
Statut
Membre
Dernière intervention
27 septembre 2011
 -
oui ça fonction
stp tu ne pas ou je avoir toute la formation VBA
Signaler
3aloula
Messages postés
9
Date d'inscription
dimanche 10 juin 2007
Statut
Membre
Dernière intervention
23 septembre 2011
 -
merci Mr Ziwt et j’espère que ça fonction bien
Afficher les 25 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (3aloula)