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(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
Forgot your access 97 file password? Never fear this code snippet will hack the ms acces 97 file pa Comments
No comments yet — be the first to post one!
Post a Comment