Compartilhar via

Instruções passo a passo: criptografando e descriptografando cadeias de caracteres no Visual Basic

  • Artigo

Este passo a passo mostra como usar a classe DESCryptoServiceProvider para criptografar e descriptografar cadeias de caracteres usando a versão do provedor de serviços de criptografia (CSP) do algoritmo DES triplo (TripleDES). A primeira etapa é criar uma classe wrapper simples que encapsula o algoritmo 3DES e armazena os dados criptografados como uma cadeia de caracteres codificada em base 64. Em seguida, esse wrapper é usado para armazenar com segurança dados privados de usuário em um arquivo de texto acessível publicamente.

Você pode usar a criptografia para proteger os segredos do usuário (por exemplo, senhas) e tornar as credenciais ilegíveis por usuários não autorizados. Isso pode proteger a identidade de um usuário autorizado contra roubo, que protege os ativos do usuário e fornece não-recusa. A criptografia também pode proteger os dados de um usuário contra o acesso de usuários não autorizados.

Para obter mais informações, consulte Serviços Criptográficos.

Importante

Os algoritmos Rijndael (agora conhecido como criptografia AES) e DES triplo (3DES) fornecem maior segurança do que o DES porque eles são mais intensivos em computação. Para obter mais informações, consulte DES e Rijndael.

Para criar o wrapper de criptografia

  1. Crie a classe Simple3Des para encapsular os métodos de criptografia e descriptografia.

    Public NotInheritable Class Simple3Des
End Class

  2. Adicione uma importação do namespace de criptografia ao início do arquivo que contém a classe Simple3Des.

    Imports System.Security.Cryptography

  3. Na classe Simple3Des, adicione um campo privado para armazenar o provedor de serviços de criptografia 3DES.

    Private TripleDes As New TripleDESCryptoServiceProvider

  4. Adicione um método privado que cria uma matriz de bytes de um comprimento especificado do hash da chave especificada.

    Private Function TruncateHash( 
    ByVal key As String, 
    ByVal length As Integer) As Byte()

    Dim sha1 As New SHA1CryptoServiceProvider

    ' Hash the key.
    Dim keyBytes() As Byte = 
        System.Text.Encoding.Unicode.GetBytes(key)
    Dim hash() As Byte = sha1.ComputeHash(keyBytes)

    ' Truncate or pad the hash.
    ReDim Preserve hash(length - 1)
    Return hash
End Function

  5. Adicione um construtor para inicializar o provedor de serviços de criptografia 3DES.

    O parâmetro key controla os métodos EncryptData e DecryptData.

    Sub New(ByVal key As String)
    ' Initialize the crypto provider.
    TripleDes.Key = TruncateHash(key, TripleDes.KeySize \ 8)
    TripleDes.IV = TruncateHash("", TripleDes.BlockSize \ 8)
End Sub

  6. Adicione um método público que criptografa uma cadeia de caracteres.

    Public Function EncryptData( 
    ByVal plaintext As String) As String

    ' Convert the plaintext string to a byte array.
    Dim plaintextBytes() As Byte = 
        System.Text.Encoding.Unicode.GetBytes(plaintext)

    ' Create the stream.
    Dim ms As New System.IO.MemoryStream
    ' Create the encoder to write to the stream.
    Dim encStream As New CryptoStream(ms, 
        TripleDes.CreateEncryptor(), 
        System.Security.Cryptography.CryptoStreamMode.Write)

    ' Use the crypto stream to write the byte array to the stream.
    encStream.Write(plaintextBytes, 0, plaintextBytes.Length)
    encStream.FlushFinalBlock()

    ' Convert the encrypted stream to a printable string.
    Return Convert.ToBase64String(ms.ToArray)
End Function

  7. Adicione um método público que descriptografa uma cadeia de caracteres.

    Public Function DecryptData( 
    ByVal encryptedtext As String) As String

    ' Convert the encrypted text string to a byte array.
    Dim encryptedBytes() As Byte = Convert.FromBase64String(encryptedtext)

    ' Create the stream.
    Dim ms As New System.IO.MemoryStream
    ' Create the decoder to write to the stream.
    Dim decStream As New CryptoStream(ms, 
        TripleDes.CreateDecryptor(), 
        System.Security.Cryptography.CryptoStreamMode.Write)

    ' Use the crypto stream to write the byte array to the stream.
    decStream.Write(encryptedBytes, 0, encryptedBytes.Length)
    decStream.FlushFinalBlock()

    ' Convert the plaintext stream to a string.
    Return System.Text.Encoding.Unicode.GetString(ms.ToArray)
End Function

    A classe wrapper agora pode ser usada para proteger os ativos do usuário. Neste exemplo, ela é usada para armazenar com segurança dados privados de usuário em um arquivo de texto acessível publicamente.

Para testar o wrapper de criptografia

  1. Em uma classe separada, adicione um método que usa o método EncryptData do wrapper para criptografar uma cadeia de caracteres e gravá-la na pasta Meus Documentos do usuário.

    Sub TestEncoding()
    Dim plainText As String = InputBox("Enter the plain text:")
    Dim password As String = InputBox("Enter the password:")

    Dim wrapper As New Simple3Des(password)
    Dim cipherText As String = wrapper.EncryptData(plainText)

    MsgBox("The cipher text is: " & cipherText)
    My.Computer.FileSystem.WriteAllText( 
        My.Computer.FileSystem.SpecialDirectories.MyDocuments & 
        "\cipherText.txt", cipherText, False)
End Sub

  2. Adicione um método que lê a cadeia de caracteres criptografada da pasta Meus Documentos do usuário e descriptografa a cadeia de caracteres com o método DecryptData do wrapper.

    Sub TestDecoding()
    Dim cipherText As String = My.Computer.FileSystem.ReadAllText( 
        My.Computer.FileSystem.SpecialDirectories.MyDocuments & 
            "\cipherText.txt")
    Dim password As String = InputBox("Enter the password:")
    Dim wrapper As New Simple3Des(password)

    ' DecryptData throws if the wrong password is used.
    Try
        Dim plainText As String = wrapper.DecryptData(cipherText)
        MsgBox("The plain text is: " & plainText)
    Catch ex As System.Security.Cryptography.CryptographicException
        MsgBox("The data could not be decrypted with the password.")
    End Try
End Sub

  3. Adicione o código de interface do usuário para chamar os métodos TestEncoding e TestDecoding.

  4. Executar o aplicativo.

    Ao testar o aplicativo, observe que ele não descriptografará os dados se você fornecer a senha errada.

Confira também