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 .
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
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
--------------------------------------------------
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 :)
--------------------------------------------------
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
--------------------------------------------------
stp tu ne pas ou je avoir toute la formation VBA
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.