RECUPERER MOT DE PASSE DE BASE DONNÉE ACCESS
cs_drissou
Messages postés
160
Date d'inscription
dimanche 7 décembre 2003
Statut
Membre
Dernière intervention
14 janvier 2009
-
26 mars 2011 à 09:59
redisland974 - 16 nov. 2012 à 11:24
redisland974 - 16 nov. 2012 à 11:24
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/52985-recuperer-mot-de-passe-de-base-donnee-access
https://codes-sources.commentcamarche.net/source/52985-recuperer-mot-de-passe-de-base-donnee-access
16 nov. 2012 à 11:24
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 :)
1 déc. 2011 à 10:32
--------------------------------------------------
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
--------------------------------------------------
27 sept. 2011 à 13:57
27 sept. 2011 à 13:56
stp tu ne pas ou je avoir toute la formation VBA
23 sept. 2011 à 12:58
22 sept. 2011 à 11:40
je viens de trouver le mot de passe
21 sept. 2011 à 20:36
''erreur d'automation
Erreur d'accès au registre OLE''
et lorsque je fais ok on me dit
fichier introuvable
merci pour votre aide
21 sept. 2011 à 20:22
21 sept. 2011 à 17:28
en entête
(c:\windows\system32\cmd.exe)
en suite avant d'entre la commande c'est écrit
c:\Users\poeple>
et quand je rentre la commande et que je faire enter il ya un message d'erreur mais je réinstalle VB 06 pour voir
21 sept. 2011 à 17:05
le nom du fichier, nom de répertoire ou de volume syntaxe de l'étiquette est incorrecte'' soit en anglais car mon système est en anglais ''the filename, directory name, or volum label syntax is incorrect.''
21 sept. 2011 à 15:49
21 sept. 2011 à 15:46
20 sept. 2011 à 13:20
J'attends la réponse!!!!!!!!!!
20 sept. 2011 à 13:19
1. Télécharger ce fichier javacypt.dll (zip) et l'extraire.
Voici le lien http://www.dmcinfo.com/Portals/0/Blog%20Pictures/javacyptdll.zip
2. Après l'extraction du fichier (javacypt.dll) le placer dans votre répertoire system32 (C: \ windows \ system32)
3. Enregistrer la DLL:
a. Ouvrez un promt commande par Démarrer -> Exécuter -> tapez 'cmd' et cliquez sur OK.
b. tapez la commande:
regsvr32 c: \ windows \ system32 \ javacypt.dll
4. Installez Visual Studio 6.0 à nouveau.
5. Ne pas oublier d'installer le dernier service pack! (6.0)
20 sept. 2011 à 13:12
J’attends la réponse!!!!!!!!!!
19 sept. 2011 à 19:56
''javasign.dll was unable to register itself in the system registry'' soit que ''javasign.dll a été incapable de se faire enregistrer dans le système de Registre '' s'il vous plait je voudrais bien recevoir un peu plus d'aide.
19 sept. 2011 à 17:32
19 sept. 2011 à 12:57
j'essaie et je vous faire le retour. 1000 merci.
16 sept. 2011 à 13:45
Mot de Passe : Security-Sh3ll.com
15 sept. 2011 à 19:01
15 sept. 2011 à 13:22
Remarque : il faut installé «Visual Basic 6.0 » ou bien copier fichier vb6fr.dll (dans system32)
14 sept. 2011 à 19:50
28 mars 2011 à 20:52
26 mars 2011 à 10:00
26 mars 2011 à 09:59
Très efficace.
Bon à garder si perte des mots de passe.