Find Code:
All Words
Any of the Words
Exact Phrase
Home
:
Code
:
Forums
:
Submit
:
Mailing List
:
About
:
Contact
Code
All
VB.NET
ASP.NET
C#
VB Classic
ASP Classic
Snippets
Popular
Resources
Submit Code
Forums
Articles
Tips
Links
Books
Contest
Link to us
Access 97 password recovery
Author:
Sean
Submitted:
6/26/2004
Version:
VB6
Compatibility:
VB6
Category:
Security
Views:
14350
Forgot your access 97 password? Never fear, this function will hack the access 97 local file password. This wasn't made by me Sean); But I don't know the real Auther, I got it from some web site. So, whoever the author is, thanks for good code!!
Declarations:
'none
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
Home
|
Forums
|
Submit
|
Books
|
Mailing List
|
Advertising
|
About
|
Contact
© 2024 A1VBCode. All rights reserved.
Legal disclaimer & terms of use
Privacy statement