Tutorial Criptografia para string com MD5

[Black_Link]

Olá família GH,neste tutorial estarei ensinando como fazer a criptografia de uma string.
Além de aprender como criptografar um texto com a Criptografia MD5, vocês poderão observar o que acontece com o texto digitado a cada processo que ele passa.
Para esse tutorial utilizarei a linguagem Visual Basic .NET.
O primeiro passo é importar as classes texto e de criptografia.

Imports System.Text
Imports System.Security.Cryptography

A primeira serve para criar a primeira hash, enquanto a segunda gera o a hash MD5.
Para uma melhor exemplificação, farei um formulário com 4 TextBox. Um para digitarmos o texto, e os outros 3 para mostrar o processo de criptografia.

Ficará da seguinte forma

Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...

Como você podem ver, acima de cada TextBox (com exceção do primeiro), há uma Label explicando o que será exibido nele. No código abaixo onde eu mostro o código para a explicação, colocarei comentário para explicar os passo, como nas Labels. (Comentários em Verde.)

 Private Sub btnConverter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConverter.Click
        ' Limpa TextBox que exibirão o Resultado
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
 
        ' Variável utilizada para gerar o primeiro Hash
        Dim Ue As New UnicodeEncoding ' Também pode ser usado o UTF8Encoding
        ' Vetor que receberá a Hash gerada pela codificação acima
        Dim ByteSourceTexto() As Byte
        ' Variável que gerará a Hash MD5
        Dim md5 As New MD5CryptoServiceProvider
        ' Vetor que receberá a Hash MD5 gerada pela variável acima
        Dim Bytehash() As Byte
 
        ' Gera Hash de Bytes a partir do texto digitado.
        ' ** É gerado um Vetor **!
        ByteSourceTexto = Ue.GetBytes(TextBox1.Text)
 
        ' For each: pega gada item do vetor gerado acima
        ' 1º Codificação. Bytes do Texto Digitado
        For Each b In ByteSourceTexto
            TextBox2.Text &= b
        Next
 
        ' Gera Hash de Bytes com a codificação MD5
        ' ** É gerado um Vetor! **
        Bytehash = md5.ComputeHash(ByteSourceTexto)
 
        ' For each: pega gada item do vetor gerado acima
        ' 2º Criptografa String acima em uma hash de byte MD5.
        For Each b In Bytehash
            TextBox4.Text &= b
        Next
 
        ' Último Passo:
        ' 3º Converte os Bytes para uma base String de 64 Digitos.
        TextBox5.Text = Convert.ToBase64String(Bytehash)
    End Sub

Pronto, agora é só testar e brincar. Aproveitem para estudar mais, e incorporem mais ferramentas.