Lost Password

[CLIVEEV]

I have lost the password for an access ver 2.0 Database how can I get around
this

[Bubba da Guy]

Microsoft has not released any information on how to do this, if there
is any. However, I'm told that there are third party vendors that
CLAIM to be able to break password protected databases. I don't know
of any names. Sorry.

[Jimmy Kerckhofs]

Hey clive,

I found this once one the internet but never tried it out, maybe it is a
sollution for your problem

regrads
Jimmy K.

'------------------------------------------
' (c) 1999 Trigeminal Software, Inc. All Rights Reserved
'------------------------------------------
Option Compare Text
Option Explicit

Function ScriptSecurityInfo(Optional stDatabaseName As String) As String
Dim wrk As DAO.Workspace
Dim db As DAO.Database
Dim usr As DAO.User
Dim grp As DAO.Group
Dim doc As DAO.Document
Dim cnt As DAO.Container
Dim stCode As String

Set wrk = DBEngine.Workspaces(0)

If Len(stDatabaseName) = 0 Then
Set db = wrk.Databases(0)
Else
Set db = wrk.OpenDatabase(stDatabaseName)
End If

stCode = stCode & "DBEngine.OpenDatabase(""" & db.Name & """)" & vbCrLf
& vbCrLf

For Each cnt In db.Containers

Select Case cnt.Name
Case "Tables", "Forms", "Reports", "Scripts", "Modules"

' Don't bother setting the container if it has no documents
in it
If cnt.Documents.Count > 0 Then
stCode = stCode & "Set cnt = db.Containers(""" &
cnt.Name & """)" & vbCrLf

For Each doc In cnt.Documents
Select Case doc.Name

Case "MSysRelationships", "MSysQueries",
"MSysObjects", "MSysACEs", "MSysAccessObjects"
' Do not bother with these tables since you
cannot set perms on them
' anyway without causing other problems

Case Else

stCode = stCode & "Set doc =
cnt.Documents(""" & doc.Name & """)" & vbCrLf
' Create the tables with info
For Each grp In wrk.Groups
doc.UserName = grp.Name
stCode = stCode & "doc.UserName = """ &
grp.Name & """" & ": "
stCode = stCode & "doc.Permissions = " &
doc.Permissions & vbCrLf
Next grp

For Each usr In wrk.Users
Select Case usr.Name
Case "Engine", "Creator"
' do nothing for these internal
users
Case Else
doc.UserName = usr.Name
stCode = stCode & "doc.UserName
= """ & usr.Name & """" & ": "
stCode = stCode &
"doc.Permissions = " & doc.Permissions & vbCrLf
End Select
Next usr

stCode = stCode & vbCrLf
End Select
Next doc
Set doc = Nothing
End If

Case Else
' Do nothing for other containers
End Select
Next cnt

Set cnt = Nothing
If Len(stDatabaseName) > 0 Then db.Close
Set db = Nothing
Set wrk = Nothing

ScriptSecurityInfo = stCode
End Function

"CLIVEEV" <cli...@aol.com> schreef in bericht
news:20010528161333...@ng-fa1.aol.com...

[Tom van Stiphout]

On 28 May 2001 20:13:33 GMT, cli...@aol.com (CLIVEEV) wrote:

There is no officially documented way to do this.
That said, there are resources on the internet claiming to be able to
recover your passwords. I believe lostpasswords.com is one of them.

-Tom.

[olivesm...@gmail.com]

It's Work perfect job man

[CDMAP...@fortunejames.com]

Later on, Microsoft changed the way database passwords are stored, but not by much, and in a logical way. A little cryptic yes, but necessarily so. Most Access programmers SHOULD be able to figure out how to retrieve a lost database password from the hints in this NG without using a third party. I will not post an example. Access programmers don't want it to be too easy for someone to crack their passwords.

James A. Fortune
CDMAP...@FortuneJames.com