MOT DE PASSE ACCESS

Commentaire de istamkenitra le 13/06/2007 10:13:59

tjs pas de code !!

Commentaire de chap38 le 13/06/2007 13:10:21

J'ai testé sans succès, il ne me retrouve pas un mot de passe de test :-(

Commentaire de Renfield le 13/06/2007 14:06:19 administrateur CS

fonctionne nikel chez moi.... (Access 2003)

Commentaire de hourrane le 13/06/2007 18:33:20

Bravo!
ça marche avec access 2003
Même avis que "AEDER". A quoi ça sert le mot de pass donc?????

Commentaire de Patrice99 le 14/06/2007 09:03:55

Je n'ai pas encore réussi à extraire le code source, c'est donc une assez bonne protection déjà contre tous les amateurs, ce qui est déjà pas mal je trouve. Avec le compte admin et le mot de passe test, je n'ai pas réussi à lister le code source.

Commentaire de comme le 18/06/2007 12:38:35

Pas compris du tout cette idée,tu connais le mot de passe "test" et tu l'utilise pour ouvrir cette base, comment faire avec une autre ...?

Commentaire de bentass le 18/06/2007 13:52:17

J'ai un BD access 2003 mais j'arrive pas à ouvrir le fichier access ! Juste un message d'erreur. Que faire?

Commentaire de comme le 18/06/2007 16:12:40

Très bien compris à quoi sert mais en cliquant sur parcourir   un message d'erreur apparait :
"L'expression sur clic enrtée comme paramètre de la propriété de type evenement est à l'origine d'une erreur.Projet ou bibliothèque introuvable.
le rsultat de l'expression n'est pas le nom d'une macro,le nom d'une fonction definie par l'utilisateur ou[Event Procedure]..... "

Commentaire de GeneticW le 21/06/2007 20:14:20

Moi quand j'essaie d'ouvrir la banque, ca dit: "format de banque de donné inconnu, veuillez la convertir"
j'ai pourtant office 2000
Je veut pas lancer la pierre la... mais un code VB aurais été préférable avec la source en externe.

Commentaire de GeneticW le 22/06/2007 12:26:35

Ha oui ?  et je l'ouvre comment la base si Access 2000 ne veut pas l'ouvrir ?

Commentaire de GeneticW le 23/06/2007 04:13:05

Très normal malheureusement, l'auteur n'a pas pensé a ça.
j'ai aussi testé avec Access 2000 sans succès.  Je crois que
c'est office 2003 qui a été utilisé.

donc, pour nous qui somme pauvre ou qui n'avons pas jugé d'acheter la derniere version, ben tans pis, on pourra pas
regarder les sources.

Commentaire de comme le 23/06/2007 19:12:35

Vous qui discutez access 97 et access 2000,vous avez oublié (et l'auteur de la source) aussi de nous répondre pour le message :
"la propriété de type evenement est à l'origine d'une erreur.Projet ou bibliothèque introuvable.
le rsultat de l'expression n'est pas le nom d'une macro,le nom d'une fonction definie par l'utilisateur ou[Event Procedure]..... "
Moi j'utilise access2003 et malgré tous la source ne marche pas chez moi.

Commentaire de comme le 24/06/2007 11:49:54

BONJOUR GENETICW
Qu'EST CE QUE TU ATTENDS POUR NOUS OFFRIR CETTE SOURCE OU BIEN SON LIEN SI C'EST DEJA DANS CodeSources  AVEC NOS SINCERES REMERCIMENTS ET ENCOURAGEMENTS;

Commentaire de Renfield le 26/06/2007 08:10:08 administrateur CS

sur 2003 il tourne nikel sur mon poste au boulot.

je vais extraire le source et le mettre ici...

Commentaire de niya le 27/06/2007 04:28:59

je suis debutant, vb6 ne connecte pas avec access2003, il accepte seulement access95 comment...

Commentaire de Renfield le 27/06/2007 06:10:29 administrateur CS

oui, c'est bien cela, télécharger MDAC 2.8...

et aussi oublier DAO :p (utilises ADO)

Commentaire de Renfield le 27/06/2007 12:40:16 administrateur CS

utilises la référence Microsoft ActiveX Data Object 2.xx

Commentaire de bylowens le 01/07/2007 22:54:15

je suis bylowens je fais parti de ce club, alors je veux qu'on m'aide en ce qui a trait a une base de donnée access.
je veux savoir comment mettre un login pour securisé ma base de donnée.
merci

Commentaire de comme le 03/07/2007 11:10:11

Bonjour tous le monde
Notre sujet ici est la source cité ci dessus concernat le mot de passe d'une base de données access,l'auteur n'a pas répondu à beaucoup de demandes d'explication mais MR RENFIELD nous a donné la solution ,je rappelle ici l'adresse qu'il nous a donnée :http://www.a1vbcode.com/a1vbcode/app-3202.asp  cette source marche bien sur ms office 2003(chez moi)
Grand merci pour MR RENFIELD.

Commentaire de jamaljar le 11/07/2007 01:00:03

merci amigos
vous m'avez sauvé la vie, j'avais cru que les données étaientt irrécupérables.
encore une fois mille merci

Commentaire de jeraos le 08/05/2008 20:12:48

desole j ai pas vu  le mot mot de passe ."test" pensez a modifier l'alogorithme du projet

Commentaire de NEXMAN le 30/10/2008 14:41:33

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

Commentaire de FlyingAlex le 18/11/2009 20:40:41

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!!!!