Access 2000 Password Recovery

[jms01]

Does anyone have a written function (VBA) that will recover the password for an Access 2000 MDB/MDE file?

[chrisjk]

Not that you should really unless you have a legitimate reason, but here is a function that will do it. Add a command button to a form and paste this code into the declarations section of the form.

Function AccessPassword(ByVal Filename As String) As String

Dim MaxSize, NextChar, MyChar, secretpos, TempPwd
Dim secret(13)
secret(0) = (&H86)
secret(1) = (&HFB)
secret(2) = (&HEC)
secret(3) = (&H37)
secret(4) = (&H5D)
secret(5) = (&H44)
secret(6) = (&H9C)
secret(7) = (&HFA)
secret(8) = (&HC6)
secret(9) = (&H5E)
secret(10) = (&H28)
secret(11) = (&HE6)
secret(12) = (&H13)

secretpos = 0
Open Filename For Input As #1   ' Open file for input.

For NextChar = 67 To 79 Step 1 'Read in Encrypted Password

  Seek #1, NextChar           ' Set position.
  MyChar = Input(1, #1)       ' Read character.
  TempPwd = TempPwd & Chr(Asc(MyChar) Xor secret(secretpos))  'Decrypt using Xor
  secretpos = secretpos + 1   'increment pointer

Next NextChar
Close #1   ' Close file.

AccessPassword = TempPwd

End Function

Private Sub Command1_Click()

MsgBox AccessPassword(C:\"Mydb.mdb")

End Sub

[JTC]

hmmm.... I may be wrong on this, but as opposed to Access '97, where it was easily possible to retrieve the password for a given DB, the only way to get a password for an Access 2000 DB is to brute force it using an application like Advanced Office Password Recovery

That application is available here:

Elcom Software


Now i'd be absolutely delighted for someone to come and tell me I'm wrong and that there IS a way to retrieve Access 2k passwords. I'd be even happier if they were to share the knowledge..

Hope this helps in the meantime....

Regards
JTC

[JTC]

Would you believe it....

just as i'm writing my bit, someone jumps in and steals the show...

ah well.... such is life.. if that works in 2000 as well as it does in '97 i'll be delighted

Cheers, and ignore my previous ramblings.

JTC

[chrisjk]

According to someone here (I think it was Megatron) there is no difference between Access 97 and 2k password storage, which means that code should work with both and 95 too. Access 2002 might be different though.

[JTC]

thanks for the info... i wasn't aware of that

[jms01]

It doesn't.

John

Originally posted by chrisjk
According to someone here (I think it was Megatron) there is no difference between Access 97 and 2k password storage, which means that code should work with both and 95 too. Access 2002 might be different though.

[OLa Ali]

I used a Programe that I Downloaded it from the Internet

That help you just drag and Drop your DB.MDB to its Box and soon it gives you the Passwrod for it..

Try Please visit This Site http://www.LostPassword.com

And Download this Good Programe..

Have Good Luck...;

OLA

[jms01]

A program won't cut it. I need the VBA code for several of my database programs.

John

Originally posted by OLa Ali
I used a Programe that I Downloaded it from the Internet

That help you just drag and Drop your DB.MDB to its Box and soon it gives you the Passwrod for it..

Try Please visit This Site http://www.LostPassword.com

And Download this Good Programe..

Have Good Luck...;

OLA

[jms01]

This problem is still to be solved. Can anyone provide brute force VBA code?

Originally posted by jms01
Does anyone have a written function (VBA) that will recover the password for an Access 2000 MDB/MDE file?

[jms01]

I still need help here. I know someone has the code to do this.

Originally posted by jms01
Does anyone have a written function (VBA) that will recover the password for an Access 2000 MDB/MDE file?