• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Forgot the password you set to an Access 97 database? Here is how to guess it. E-mail me for the Ac

Forgot the password you set to an Access 97 database? Here is how to guess it. E-mail me for the Ac

Forgot the password you set to an Access 97 database? Here is how to guess it. E-mail me for the Access 2000 version

API Declarations


Dim lsClave As String
Dim mask As String




Rate Forgot the password you set to an Access 97 database? Here is how to guess it. E-mail me for the Ac

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

          Chr(55) & Chr(93) & Chr(68) & Chr(156) & _
          Chr(250) & Chr(198) & Chr(94) & Chr(40) & Chr(230) & Chr(19)

   Open "c:\protected db.mdb" For Binary As #1
   Seek #1, &H42
   For n = 1 To 14
      s1 = Mid(mask, n, 1)
      s2 = Input(1, 1)
      If (Asc(s1) Xor Asc(s2)) <> 0 Then
         lsClave = lsClave & Chr(Asc(s1) Xor Asc(s2))
      End If
   Next
   Close 1
   MsgBox "The Password Is: " & lsClave