1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Recuperer le mot de passe d'une db access

Recuperer le mot de passe d'une db access

Soyez le premier à donner votre avis sur cette source.

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

Commenter

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

Signaler
Messages postés
15
Date d'inscription
mercredi 14 septembre 2011
Statut
Membre
Dernière intervention
27 septembre 2011
comment utiliser ce code
Signaler
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?
Signaler
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.
Signaler
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
Signaler
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.
Afficher les 16 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 (cs_Mr X)