Does anyone have a written function (VBA) that will recover the password for an Access 2000 MDB/MDE file?
Printable View
Does anyone have a written function (VBA) that will recover the password for an Access 2000 MDB/MDE file?
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.Code: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
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
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
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.
thanks for the info... i wasn't aware of that :)
It doesn't.
John
Quote:
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.
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 ;)
A program won't cut it. I need the VBA code for several of my database programs.
John
Quote:
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 ;)
This problem is still to be solved. Can anyone provide brute force VBA code?
Quote:
Originally posted by jms01
Does anyone have a written function (VBA) that will recover the password for an Access 2000 MDB/MDE file?
I still need help here. I know someone has the code to do this.
Quote:
Originally posted by jms01
Does anyone have a written function (VBA) that will recover the password for an Access 2000 MDB/MDE file?