"trabalhando Com Arquivo" No Vb

[duentin]

Olá, tenho um formulário para logon no programa que o usuário digita a senha e o ID e o programa verifica no banco de dados do access 97, uma tableinha, e retorna a resposta autorizando a entrada. O meu data é simples e pesquiso usando o comando SEEK. Mais o grilo tá que qualquer um pode abrir o banco de dados e olhas as senhas e os ids lá isso é ruim. Queria resolver colocando senha mais como irei abri-lo usando o data comum e aí então pensei em usar arquivo.

salvar as senhas e os IDs em arquivos e que ninguém possa vê-los mais não faço ideia de como faze-lo, minha professora de VB não ensinou ainda e então eu resolvi pedir ajuda.

Se souberem onde acho alguma apostila a respeito também eu agradeço.

Desculpa aí o testamento que escrevi, mais tentei ser direto e objetivo.

Valeu galera pela ajuda!!!

[Clemente Silva]

Acredito que se você fizer isso em arquivo, vai ficar menos seguro ainda, e também corre-se o risco de alguém deletar o arquivo, daí ninguém mais acessa o sistema.

Acho que você pode continuar gravando as senhas normalmente na sua tabela de Usuários, só grave-as criptografadas.

Por exemplo, você pode usar uma função para criptografar a senha e depois gravar no campo da tabela no MDB. Quando precisar na tela de Login, se o usuário digitou a senha correta ou não, pegue a senha criptografada no campo da tabela e use outra função para DEScriptografar e comparar com a que o usuário digitou.

Dessa forma, mesmo que alguém abra a tabela diretamente e veja os campos, nunca vai saber qual é a senha (à não ser que esse "alguém" use exatamente o mesmo algoritmo que você usa para criptografar/descriptografar).

Vou te passar um exemplo bem simples de rotinas para isso, mas você pode procurar pela web e vai achar rotinas muito mais eficientes e difíceis de serem quebradas:

Postado Originalmente por Rotina para criptografar strings de senhas+--><div class='quotetop'>QUOTE(Rotina para criptografar strings de senhas)</div>

Public Function Criptografar(Texto As String) As String

    Dim Posicao As Integer, Tamanho As Integer

    Dim CaracterASC As Long, CaracterAtual As String

    Tamanho = Len(TriMicrosoft(Texto))

    For Posicao = Tamanho To 1 Step -1

        CaracterAtual = Empty

        CaracterAtual = Mid$(Texto, Posicao, 1)

        CaracterASC = Asc(CaracterAtual)

        CaracterASC = (CaracterASC * CaracterASC) / (CaracterASC / 2)

        CaracterAtual = Chr$(CaracterASC)

        Criptografar = Criptografar & CaracterAtual

    Next

End Function

Rotina para DEScriptografar strings de senhas

Public Function Descriptografar(Texto As String) As String

    Dim Posicao As Integer, Tamanho As Integer

    Dim CaracterASC As Long, CaracterAtual As String

    Tamanho = Len(TriMicrosoft(Texto))

    For Posicao = Tamanho To 1 Step -1

        CaracterAtual = Empty

        CaracterAtual = Mid$(Texto, Posicao, 1)

        CaracterASC = Asc(CaracterAtual)

        CaracterASC = (((CaracterASC * CaracterASC) / 2) / 2)

        CaracterASC = Sqr(CaracterASC)

        CaracterAtual = Chr$(CaracterASC)

        Descriptografar = Descriptografar & CaracterAtual

    Next

End Function

...

Agora quanto à abrir um MDB com senha através de um controle DATA, leia antes o artigo desse link:

http://www.macoratti.net/senha_bd.htm