Visual Basic 6 - Criptografando e Descriptografando Senhas

OK ! Você quer criar um banco de dados contendo as senhas de acesso para usuários de um tal sistema que você esta fazendo. Resolveu bancar a tarefa de atribuir senhas , permissões e otras cositas mas... 

Como você é um cara 'experto'  sentiu que não pode deixar lá no banco de dados as senhas expostas para qualquer bisbilhoteiro ( e como tem bisbilhoteiro neste mundo...) descobrir. Não !!! você quer gravar as senhas de uma forma que quem acessar o seu banco de dados não consiga decifrá-las. Você quer criptografar suas senhas. 

Não preciso dizer que existem ´n´ maneiras de resolver este problema. Vou sugerir apenas uma delas . Algo simples mas que resolva o problema. Afinal você não esta guardando um segredo que pode abalar no mundo !!! Ou esta ?

Vamos usar uma única funções para fazer os dois serviços:  criptografar e  descriptografar suas senhas. 

  1. Inicie um novo projeto no VB
  2. No formulário padrão insira os controles: dois controles frames , três botões de comando e uma caixa de texto conforme o seguinte desenho:

1-) Insira o seguinte código no seu projeto

Private Sub Command1_Click()
  TxtMain.Text = Crypt(TxtMain.Text)
End Sub

Private Sub Command2_Click()
  TxtMain.Text = Crypt(TxtMain.Text)
End Sub

Private Sub Command3_Click()
  TxtMain.Text = ""
End Sub

Public Function Crypt(Text As String) As String

Dim strTempChar As String

For i = 1 To Len(Text)

If Asc(Mid$(Text, i, 1)) < 128 Then
   strTempChar = Asc(Mid$(Text, i, 1)) + 128
ElseIf Asc(Mid$(Text, i, 1)) > 128 Then
   strTempChar = Asc(Mid$(Text, i, 1)) - 128
End If

Mid$(Text, i, 1) = Chr(strTempChar)

Next i

Crypt = Text

End Function

A função Crypt faz todo o serviço. Recebe uma string , faz a criptografia e recebe o texto criptografado e desfaz a criptografia.

Execute o projeto e clique no botão - Criptografar , a seguir clique no botão - Descriptografar. A sequência de telas obtidas vai ser mais o menos a seguinte:

Até a próxima dica...

Veja os Destaques e novidades do SUPER DVD Visual Basic (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Quer aprender C# ??

Quer aprender os conceitos da Programação Orientada a objetos ?

Quer aprender o gerar relatórios com o ReportViewer no VS 2013 ?

Quer aprender a criar aplicações Web Dinâmicas usando a ASP .NET MVC 5 ?

 

Referências:

José Carlos Macoratti