Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Entre para seguir isso  
duentin

"trabalhando Com Arquivo" No Vb

Recommended Posts

:looka: 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. :tantan:

Valeu galera pela ajuda!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×