USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Quebrar senha do Access
Postada em 23/3/2001 por shibito      Clique aqui para enviar email para o autor  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
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página