Escondendo o mouse

Esqueceu a senha do banco de dados !!! Veja como descobrir a senha perdida...

Você já deve saber que pode incluir uma senha no banco de dados Access (a partir da versão 95). E se você esquecer esta senha ? Vamos mostrar como recuperá-la. (Esta dica vale somente para banco de dados Access versão 97. ) Para ver como recuperar a senha para uma base de dados Access 2000 leia o artigo - Esqueceu a senha do banco de dados...

1-) Inicie um novo projeto no Visual Basic e no formulário padrão insira um botão de comando - command1 - e uma caixa de texto - text1.text.

2-) A seguir inclua o seguinte código no evento Click do botão de comando:

Private Sub Command1_Click()
Dim n As Long, s1 As String * 1, s2 As String * 1
Dim lsClave As String
Dim mask As String

mask = Chr(78) & Chr(134) & Chr(251) & Chr(236) & _
Chr(55) & Chr(93) & Chr(68) & Chr(156) & _
Chr(250) & Chr(198) & Chr(94) & Chr(40) & Chr(230) & Chr(19)

Open Text1.Text 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 "Sua senha é ..... " & lsClave

End Sub

Execute o projeto e informe o caminho e nome do banco de dados com a senha perdida... Voilá !!! eis a senha a seu alcance...

Até mais...