Recuperer le mot de passe d'une db access

Soyez le premier à donner votre avis sur cette source.

Snippet vu 26 007 fois - Téléchargée 70 fois

Contenu du snippet

Permet de connaitre le mot de passe qui protège une base de donnée Access

Source / Exemple :


'********************************************************************************************
' Name       : xGetAccessPwd
' Purpose    : Get the password of an MS Access database
' Syntax     : xGetAccessPwd(FileName)
' Parameters : FileName : The name (and path) of the Access database
' Return     : The password protecting the database
'********************************************************************************************
Function xGetAccessPwd(ByVal FileName As String) As String
    Dim intFileID       As Integer
    Dim strMyChar       As String
    Dim strTempPwd      As String
    Dim bytSecretPos    As Byte
    Dim bytNextChar     As Byte
    Dim alngSecret(13)  As Long
    
    alngSecret(0) = (&H86)
    alngSecret(1) = (&HFB)
    alngSecret(2) = (&HEC)
    alngSecret(3) = (&H37)
    alngSecret(4) = (&H5D)
    alngSecret(5) = (&H44)
    alngSecret(6) = (&H9C)
    alngSecret(7) = (&HFA)
    alngSecret(8) = (&HC6)
    alngSecret(9) = (&H5E)
    alngSecret(10) = (&H28)
    alngSecret(11) = (&HE6)
    alngSecret(12) = (&H13)

    bytSecretPos = 0
    intFileID = FreeFile
    Open FileName For Input As #intFileID   ' Open file for input.
    
    For bytNextChar = 67 To 79 Step 1       ' Read in Encrypted Password
      Seek #intFileID, bytNextChar                  ' Set position.
      strMyChar = Input(1, #intFileID)      ' Read character.
      strTempPwd = strTempPwd & Chr(Asc(strMyChar) Xor alngSecret(bytSecretPos))  'Decrypt using Xor
      bytSecretPos = bytSecretPos + 1       ' Increment pointer
    Next
    Close #intFileID   ' Close file.
    
    xGetAccessPwd = strTempPwd
End Function

A voir également

Ajouter un commentaire

Commentaires

zwit
Messages postés
15
Date d'inscription
mercredi 14 septembre 2011
Statut
Membre
Dernière intervention
27 septembre 2011
-
comment utiliser ce code
kanprog
Messages postés
26
Date d'inscription
jeudi 17 novembre 2005
Statut
Membre
Dernière intervention
17 février 2009
-
Excuse moi, je comprend comment fonctionne ton code, est ce un code vbs ou bien un module à intégrer à une application vb6?
Stp peux tu me l'avoir dans un projet complet?
yousse1000
Messages postés
1
Date d'inscription
jeudi 17 août 2006
Statut
Membre
Dernière intervention
17 août 2006
-
de méme :Avec ce code on procede comment ?merci de m'aider pour trouver une application executable qui donne le mot de passe d'une base access 2003 .
j'ai une base access que je n'arrive pas a trouver le mot de passe exacte.Mercie infiniment.
donsagbo
Messages postés
3
Date d'inscription
mardi 13 juin 2006
Statut
Membre
Dernière intervention
14 juin 2006
-
Avec ce code on procede comment ?merci de m'aider
Berceker United
Messages postés
1
Date d'inscription
mardi 7 mars 2006
Statut
Membre
Dernière intervention
7 mars 2006
-
Ben moi j'ai un probleme un peut différent c'est pouvoir acceder au projet c'est à dire au source :/. Les bases reste plus ou moin accessible. En tous cas bravo pour ce code.

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.