Recuperer mot de passe de base donnée access
Soyez le premier à donner votre avis sur cette source.
Vue 11 322 fois - Téléchargée 2 630 fois
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 .
Permet de Récupérer Le Mot De Passe qui protège une base de donnée Access avec Simple Click .
Codes Sources
A voir également
- Str2000
- Ziwt - Meilleures réponses
- Visual Basic / VB.NET : Recuperer le mot de passe d'une db access - CodeS SourceS - Guide
- Recuperer le mot de passe d'une db access(pour 97 et 2000) - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- PHP : Authentification avec login et mot de passe sans base de données - CodeS SourceS - Guide
- Changement du mot de passe de base Access par code ✓ - Forum - C# / .NET
- Mot de passe pour base de données ✓ - Forum - Visual Basic
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.