Recuperer le mot de passe d'une db access

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

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)