Forgotten Password

[MarQ]

Dear experts....

Is it possible to retrieve a forgotten password in the vb environment in the msaccess2000?

Thanx in advance

 

[Ed2020]

Visit

http://www.elcomsoft.com

They will provide a trial piece of software that will do it for you. The trial will only give you the first two or three characters - hopefully this will remind you what the password is.

If it doesn't email me at the below address.

Ed Metcalfe.
ed_metcalfe@hotmail.com

 

[Chance1234]

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
MsgBox AccessPassword
End Function

 

[Ed2020]

Chance,

This doesn't work on Access 2000 d'bases............

Ed Metcalfe.
ed_metcalfe@hotmail.com

 

[Chance1234]

got

http://www.planetsourcecode.com

and do a ssearch on there as i know theres code up there for Access 2000 Db's as well