Access: Datenbank Passwort vergessen

Ihr habt eine alte Accessdatenbank gefunden bei der euch das von euch vergebene Passwort entfallen ist.

Ein kleines Tool hilft hier weiter: Access Pass View 1.12

Zieht dazu einfach das entsprechende .MDB File in das gelbe Fenster und schon erscheint das vergessene Passwort

Zu bekommen ist es hier

Gruß Patrick

6 Kommentare

1 Ping

Zum Kommentar-Formular springen

    • basti auf 14. November 2009 bei 13:16

    sehr gute anleitung, genau das habe ich gesucht!

    • omnibus auf 25. Mai 2010 bei 22:53

    Access 95/97 Password Revealer

    When you set a password in Access 95/97 database, the password is encrypted with simple XOR operation.
    The following code snippet shows how you can easily reveal this password:

    ‚Access 95/97 Password Revealer
    ‚Copyright (c) Nir Sofer 2002

    ‚Web site: http://nirsoft.mirrorz.com

    ‚This small utility instantly recovers the database password of
    ‚Microsoft Access files (mdb files)
    ‚It works only with Access 95 or 97.

    Private Function XorPassword(Bytes As Variant) As String
    Dim XorBytes() As Variant
    Dim strPassword As String
    Dim intIndex As Integer
    Dim CurrChar As String * 1

    XorBytes = Array(&H86, &HFB, &HEC, &H37, &H5D, &H44, &H9C, &HFA, &HC6, &H5E, &H28, _
    &HE6, &H13, &HB6, &H8A, &H60, &H54, &H94)
    strPassword = vbNullString
    intIndex = 0

    Do

    ‚Get a character from the password by doing a XOR with the
    ‚appropriate value in XorBytes array.
    CurrChar = Chr$(Bytes(intIndex + &H42) Xor XorBytes(intIndex))
    ‚If we get a Null character, get out of the loop.
    If Asc(CurrChar) = 0 Then Exit Do
    ‚Add the password character to the accumulated password string.
    strPassword = strPassword & CurrChar
    intIndex = intIndex + 1
    Loop Until intIndex = 17

    XorPassword = strPassword
    End Function

    Private Function GetAccessPassword(strFilename As String) As String
    Dim intFileNum As Integer
    Dim Bytes(&H100) As Byte

    intFileNum = FreeFile
    ‚Open the Access filename
    Open strFilename For Binary As #intFileNum

    ‚Read first 256 bytes
    Get #intFileNum, , Bytes

    ‚Get the password from the XorPassword function
    GetAccessPassword = XorPassword(Bytes)
    Close #intFileNum
    End Function

    Private Sub cmdBrowse_Click()
    On Error GoTo canceled
    OpenDialog.Flags = cdlOFNExplorer Or cdlOFNFileMustExist Or cdlOFNHideReadOnly
    OpenDialog.ShowOpen
    txtFilename.Text = OpenDialog.FileName
    Exit Sub
    canceled:
    End Sub

    Private Sub cmdExit_Click()
    End
    End Sub

    Private Sub cmdGetPassword_Click()
    Dim strFilename As String

    strFilename = Trim$(txtFilename.Text)
    If Len(strFilename) = 0 Then
    MsgBox „You must select a filename !“, vbOKOnly Or vbInformation
    ElseIf Len(Dir(strFilename)) = 0 Then
    MsgBox „The filename does not exist !“, vbOKOnly Or vbInformation
    Else
    txtPassword.Text = GetAccessPassword(strFilename)
    End If
    End Sub

    gefunden bei NiRSoft = Freeware

    • Jurg0n auf 11. Oktober 2013 bei 10:31

    Läuft sogar mit Access 2010 …
    Vielen Dank dafür. erspart mir ne Menge Arbeit.

    • K auf 15. Oktober 2013 bei 22:17

    Auch 2013.

    • Michael Fischer auf 2. August 2020 bei 12:28

    Vielen Dank,
    hat geklappt …
    Schönes WE

    • Patrick auf 4. August 2020 bei 09:25
      Autor

    Danke für die Info 🙂

  1. […] […]

Schreibe einen Kommentar

Deine Email-Adresse wird nicht veröffentlicht.