MOT DE PASSE ACCESS

hourrane

Messages postés: 29
Date d'inscription: dimanche 8 juin 2003
Statut: Membre
Dernière intervention: 2 février 2009

- 13 juin 2007 à 00:04
GeneticW

Messages postés: 34
Date d'inscription: samedi 3 juin 2006
Statut: Membre
Dernière intervention: 23 avril 2011

- 25 févr. 2012 à 06:14

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/43098-mot-de-passe-access

GeneticW

Messages postés: 34
Date d'inscription: samedi 3 juin 2006
Statut: Membre
Dernière intervention: 23 avril 2011

25 févr. 2012 à 06:14

Tu peut la poster quelques part la Bd ? Je vais t'envoyer le mdp.

BOLITHO976

Messages postés: 1
Date d'inscription: vendredi 24 février 2012
Statut: Membre
Dernière intervention: 24 février 2012

24 févr. 2012 à 16:52

bonjour, je suis nouveau et novice ! je viens de trouver ce post et je suis au désespoir; j'ai une base mdb 2003 protégée par un MDP. J'ai téléchargé votre ZIP mais le mot de passe (décidément) "test" ne semble plus valide. Pourriez vous m'aider?
cordialement
Bolitho

joeb1010

Messages postés: 7
Date d'inscription: mardi 21 décembre 2004
Statut: Membre
Dernière intervention: 2 décembre 2010

2 déc. 2010 à 13:26

Le truc marche à 100% Grand merci

cs_FlyingAlex

Messages postés: 17
Date d'inscription: mardi 3 mars 2009
Statut: Membre
Dernière intervention: 25 novembre 2010

18 nov. 2009 à 20:40

Je n'arrive pas à utiliser la bdd : lorque je l'ouvre, il y a marqué pas d'objet et quand je clique sur parcourir : erreur d'execution 438 : propriété ou methode non gérée par cet objet. Il me met un bug à cette ligne (la dernière) :

Option Compare Database
Option Explicit

'***************************************************
'Author: Krsev Ivan
'Description: this program retrieve ms access database password
'Author Email address: ivan@chameleon.co.yu
'Use this program as you whish, just drop me an email to say thank you
'that's my reward
'Because i'm lasy i used forms from Vipul Parmar and part for access97 pasword

'In accsess 2000 password is stored at the begining of file at offset 0x42H
'Differencies from access 97 is that every char uses 2 (A1 E2) words insted of 1 (A1) probably because of unicode
'But we are dealing only with half of it. Not interested in right half
'Access2000 password is limited on 20 chars MAX, if you use more it'll be truncated

Dim n As Long, s1 As String * 1, s2 As String * 1
Dim dbname As String
Dim passw As String
Dim bckPass As String
Dim mask97 As String
Dim mask2k As String
Dim priv As String
Dim priv2 As String
Dim prviput As Boolean
Dim TrebaObavestiti As Boolean
Public cnn1 As ADODB.Connection

Private Sub Command1_Click()
Dim ff
Dim strfilter, strlines, alltext As String
ff = FreeFile
strfilter = "Access97 Files (*.mdb)|*.mdb"
Me.cd1.Filter = strfilter

Pour info je suis sur access 2007.

Merci d'avance!!!!

garci80

Messages postés: 1
Date d'inscription: mercredi 26 novembre 2008
Statut: Membre
Dernière intervention: 2 juin 2009

2 juin 2009 à 11:55

Bravo et merci !
Aucun problème, cela marche bien.

NEXMAN

Messages postés: 1
Date d'inscription: dimanche 28 octobre 2007
Statut: Membre
Dernière intervention: 30 octobre 2008

30 oct. 2008 à 14:41

voila la source de la mdb ;-p

Option Compare Database
Option Explicit

'***************************************************
'Author: Krsev Ivan
'Description: this program retrieve ms access database password
'Author Email address: ivan@chameleon.co.yu
'Use this program as you whish, just drop me an email to say thank you
'that's my reward
'Because i'm lasy i used forms from Vipul Parmar and part for access97 pasword

'In accsess 2000 password is stored at the begining of file at offset 0x42H
'Differencies from access 97 is that every char uses 2 (A1 E2) words insted of 1 (A1) probably because of unicode
'But we are dealing only with half of it. Not interested in right half
'Access2000 password is limited on 20 chars MAX, if you use more it'll be truncated

Dim n As Long, s1 As String * 1, s2 As String * 1
Dim dbname As String
Dim passw As String
Dim bckPass As String
Dim mask97 As String
Dim mask2k As String
Dim priv As String
Dim priv2 As String
Dim prviput As Boolean
Dim TrebaObavestiti As Boolean
Public cnn1 As ADODB.Connection

Private Sub Command1_Click()
Dim ff
Dim strfilter, strlines, alltext As String
ff = FreeFile
strfilter = "Access97 Files (*.mdb)|*.mdb"
Me.cd1.Filter = strfilter
Me.cd1.ShowOpen
If cd1.FileName <> "" Then
Me.Text1 = Me.cd1.FileName
'Command2.Visible = True
Command2.SetFocus
'Command4.Visible = True
End If
cd1.CancelError = False
Close #ff
End Sub

Private Sub Command2_Click()
mask97 = Chr(&H4E) & Chr(&H86) & Chr(&HFB) & Chr(&HEC) & _
Chr(&H37) & Chr(&H5D) & Chr(&H44) & Chr(&H9C) & _
Chr(&HFA) & Chr(&HC6) & Chr(&H5E) & Chr(&H28) & Chr(&HE6) & Chr(&H13)

' mask2k = Chr(&H4E) & Chr(&H72) & Chr(&HEC) & Chr(&HA9) & _
' Chr(&H9C) & Chr(&H32) & Chr(&H28) & Chr(&HE7) & _
' Chr(&H8A) & Chr(&HA0) & Chr(&H7B) & Chr(&H1) & _
' Chr(&HDF) & Chr(&H83) & Chr(&H13) & Chr(&H3B) & _
' Chr(&HB1) & Chr(&HC0) & Chr(&H79) & Chr(&H66) & _
' Chr(&H7C)

mask2k = Chr(&H4E) & Chr(&H99) & Chr(&HEC) & Chr(&H42) & _
Chr(&H9C) & Chr(&HD9) & Chr(&H28) & Chr(&HC) & _
Chr(&H8A) & Chr(&H4B) & Chr(&H7B) & Chr(&HEA) & _
Chr(&HDF) & Chr(&H68) & Chr(&H13) & Chr(&HD0) & _
Chr(&HB1) & Chr(&H2B) & Chr(&H79) & Chr(&H8D) & _
Chr(&H7C)

' set the masking characters
dbname = Me.Text1
passw = ""
Open dbname For Binary As #1 ' open the database
Seek #1, &H42
For n = 1 To 21
' actual password recovery module
s1 = Mid(mask2k, n, 1)
s2 = Input(1, 1)
If (Asc(s1) Xor Asc(s2)) <> 0 Then
passw = passw & Chr(Asc(s1) Xor Asc(s2))
End If
If n <> 1 Then s2 = Input(1, 1)
Next
Close 1
prviput = True
TrebaObavestiti = True
If passw = "" Then
MsgBox "Aucun mot de passe n'a été trouvé !"
Else

Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Me.Text1 & ";Persist Security Info=False" & ";"
On Error Resume Next
'Before we get into rush, let see if there is password
If cnn1.State = adStateClosed Then cnn1.Open
If Err.Number = -2147217843 Then
Debug.Print "Protegé..." 'this means that password exists
Else
If Err.Number = 0 Then MsgBox "Aucun mot de passe n'a été trouvé !", vbInformation
Exit Sub
End If

Err.Clear
'Lets try open it with masked password in first step, this happends very rare
cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Text1 & ";Persist Security Info=False" & ";Jet OLEDB:Database Password=" & passw & ";"
s1 = Chr(0)
bckPass = passw
'Screen.MousePointer = vbHourglass
On Error GoTo EH
'If I pass thru this that menas that we got password if not we'll get into error handling routine
If cnn1.State = adStateClosed Then cnn1.Open
'Screen.MousePointer = vbDefault
cnn1.Close
MsgBox "Le mot de passe est : " & passw, vbInformation
End If
Exit Sub
EH:
If Err.Number -2147467259 Or Err.Number -2147217805 Then
s1 = Chr(Asc(s1) + 1)
GoTo skip1
End If
If Err.Number <> -2147217843 Then 'Not valid password
MsgBox "error: " & Err.Number & ", " & Err.Description, vbCritical
Else
'Watch out this little trick, We will use last character from the masked password and
'try to find password, lets xor it (this works if password is 18 chars or less)
skip1:
If Asc(s1) = 255 Then
MsgBox "Neuspesno. Posaljite mail na ivan@chameleon.co.yu i prijavite neuspeh.", vbInformation
Exit Sub
End If
If prviput Then
s1 = Right(passw, 1)
Else
If TrebaObavestiti Then
MsgBox "Le mot de passe dépasse 18 caractères. Une attaque Brute forcée doit être utilisée!", vbInformation
TrebaObavestiti = False
End If
s1 = Chr(Asc(s1) + 1) 'We will get here only if password is longer then 18
End If
'Nakon sto sam uzeo taj karakter brisem sve takve sa kraja jel oni u stvari ne postoje
'Posto ako ih ostavim a xorujem parnim xorom lazno cu dobiti na kraju neke karaktere
passw = bckPass
If Len(passw) > 2 Then
For n = 1 To Len(passw)
If Right(passw, 1) = s1 Then
passw = Mid(passw, 1, Len(passw) - 1)
End If
Next
End If
priv = ""
For n = 1 To Len(passw)
If n Mod 2 <> 0 Then
s2 = Mid(passw, n, 1)
If (Asc(s1) Xor Asc(s2)) <> 0 Then
priv = priv & Chr(Asc(s1) Xor Asc(s2))
End If
Else
s2 = Mid(passw, n, 1)
priv = priv & s2
End If
Next
If priv = "" Then
MsgBox "Aucun mot de passe n'a été trouvé !", vbInformation
Else
'Lets try with this password if its ok. We are finished if not will do it 255 times more
If prviput Then
prviput = False
s1 = Asc(0)
End If
passw = priv
cnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Text1 & ";Persist Security Info=False" & ";Jet OLEDB:Database Password=" & DuplirajApostrof(passw) & ";"
Debug.Print s1, Asc(s1), passw
Resume
End If
End If
End Sub

Public Function DuplirajApostrof(ByVal s As String) As String
'We have to be shure that we include all characters in brute force attack
Dim i As Long
i = InStr(1, s, """")
If i <> 0 Then
DuplirajApostrof = Left(s, i) & """" & DuplirajApostrof(Mid(s, i + 1, Len(s) - i + 1))
Else
DuplirajApostrof = s
End If
End Function

Private Sub Command4_Click()
dbname = Text1.Text
passw = ""
Open dbname For Binary As #1 ' open the database
Seek #1, &H42
For n = 1 To 14
' actual password recovery module
s1 = Mid(mask97, n, 1)
s2 = Input(1, 1)
If (Asc(s1) Xor Asc(s2)) <> 0 Then
passw = passw & Chr(Asc(s1) Xor Asc(s2))
End If
Next
Close 1
If passw = "" Then
MsgBox "Aucun mot de passe n'a été trouvé !", vbInformation
Else
MsgBox "Le mot de passe est : " & passw, vbInformation
End If
End Sub

Private Sub Form_Activate()
Text1.SetFocus
End Sub

Private Sub Text1_LostFocus()
Command1.SetFocus
End Sub

Private Sub Quitter_Click()
On Error GoTo Err_Quitter_Click

If MsgBox("Voulez-vous quitter ", vbQuestion + vbYesNo, "Confirmer la fermeture") = vbYes Then
DoCmd.Quit
End If
Exit_Quitter_Click:
Exit Sub

Err_Quitter_Click:
MsgBox Err.Description
Resume Exit_Quitter_Click

End Sub

Afficher les 49 commentaires