Quebrando a senha de um banco de dados
Se você quer, por exemplo, recuperar
uma senha perdida pelo Access 97, basta usar o código
abaixo:
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 “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
Abraço e boa programação
para todos do iMasters.
Matérias especiais e reportagens conduzidas internamente pela Redação iMasters. Acompanhe no Twitter @imasters e no Instagram/Threads @portalimasters
