Soyez le premier à donner votre avis sur cette source.
Snippet vu 26 706 fois - Téléchargée 72 fois
'******************************************************************************************** ' 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
14 sept. 2011 à 20:15
24 oct. 2008 à 11:35
Stp peux tu me l'avoir dans un projet complet?
17 août 2006 à 20:09
j'ai une base access que je n'arrive pas a trouver le mot de passe exacte.Mercie infiniment.
14 juin 2006 à 18:32
7 mars 2006 à 14:49
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.