Recuperando Senha do Banco de Dados Access 97

Visitas

Já aconteceu comigo e provavelmente com você que está lendo. Incluir uma senha em um banco de dados Access 97 e depois não recordar. Por isso, e por didática, resolvi postar o código em Visual Basic 6.0.

Veja Também Recuperando Senha do Banco de Dados Access 2000

Vou considerar um Form com uma caixa de texto onde será colocado o caminho completo da base de dados. Um Botão que executará a quebra da senha e um rótulo que mostrará a senha.

No evento on_Click do botão, incluiremos o código.

Private Sub Command1_Click()
   Label1.Caption = DescobreSenha(Text1.Text)
End Sub

Crie um módulo e inclua o código abaixo.

Public Function DescobreSenha(NomeDB As String) As String
   Dim NPassByte() As Byte
   Dim hFile As Integer
   Dim subPassByte() As Byte
   Dim passByte(0 To 19) As Byte
   Dim i As Integer
   Dim Buffer As String

   'Abrindo o arquivo mdb (base de dados) de forma binária
   hFile = FreeFile
   Open NomeDB For Binary As #hFile

   'Pulando para a posição do arquivo que contém a senha
   Seek #hFile, 67

   'pegando os 20 caracteres a partir da posição de início
   'A senha do access suporta senha de no máximo 20 caracteres
   subPassByte = InputB(20, #hFile)

   'fechando o arquivo
   Close #hFile

   'String de conversão da senha
   NPassByte = ChrB(134) & ChrB(251) & ChrB(236) & ChrB(55) & ChrB(93) & ChrB(68) & ChrB(156) & ChrB(250) & ChrB(198) & ChrB(94) & ChrB(40) & ChrB(230) & ChrB(19) & ChrB(182) & ChrB(138) & ChrB(96) & ChrB(84) & ChrB(148) & ChrB(123) & ChrB(54)

   'Usando a string de conversão para converter a senha
   'a "criptografia da senha" nada mais é do que um Xor
   'dos bytes no arquivo da base de dados com a string
   'criada acima
   For i = 0 To 19
      passByte(i) = subPassByte(i) Xor NPassByte(i)
   Next

   'convertendo o vetor de byte em uma string no unicode
   Buffer = StrConv(passByte, vbUnicode) & vbNullChar

   'Retornado a string com a senha, convertida, limpando a string dos nulo, pois na
   'maioria das vezes a senha não tem o tamanho de 20 caracteres
   DescobreSenha = Left$(Buffer, InStr(1, Buffer, vbNullChar, vbBinaryCompare) - 1)
End Function