|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Quebrar senha do Access
|
 |
|
|
|
Postada em 23/3/2001 por shibito
shibito@zipmail.com.br
chamada : QuebraSenha("path\arquivo.mdb"), retorna a senha.
Function QuebraSenha(ByVal Arquivo As String) As String
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 Arquivo For Input As #1 ' arquivo mdb
For NextChar = 67 To 79 Step 1 ' Posicoes da senha
Seek #1, NextChar
MyChar = Input(1, #1) 'le o caracter
TempPwd = TempPwd & Chr(Asc(MyChar) Xor secret(secretpos)) ' transforma caracter criptografado
secretpos = secretpos + 1
Next NextChar
Close #1
QuebraSenha = TempPwd
End Function
|
|
|
|
|
