• Home
 · 
• Files/File Controls/Input/Output
 · 
• Forgot your access 97 file password? Never fear this code snippet will hack the ms acces 97 file pa

Forgot your access 97 file password? Never fear this code snippet will hack the ms acces 97 file pa

Forgot your access 97 file password? Never fear this code snippet will hack the ms acces 97 file password

API Declarations


Turned into this nifty function by me =)




Rate Forgot your access 97 file password? Never fear this code snippet will hack the ms acces 97 file pa

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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