Compartilhar via

Passo a passo: Criptografar e descriptografar cadeias de caracteres no Visual Basic

Este passo a passo mostra como usar a DESCryptoServiceProvider classe para criptografar e descriptografar cadeias de caracteres usando a versão do provedor de serviços criptográficos (CSP) do algoritmo Triple Data Encryption Standard (TripleDES). A primeira etapa é criar uma classe de 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 de usuário privados 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ível 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 serem acessados por usuários não autorizados.

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

Importante

Os algoritmos Rijndael (agora conhecido como Standard de Criptografia Avançada [AES]) e 3DES (Triple Data Encryption Standard) fornecem maior segurança do que o DES porque 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 Simple3Des classe 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 Simple3Des classe.

    Imports System.Security.Cryptography

  3. Simple3Des Na classe, adicione um campo privado para armazenar o provedor de serviços criptográficos 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 criptográficos 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, ele é usado para armazenar com segurança dados de usuário privados em um arquivo de texto acessível publicamente.

Para testar o envoltório de criptografia

  1. Em uma classe separada, adicione um método que usa o método do EncryptData 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 da interface do usuário para chamar os métodos TestEncoding e TestDecoding.

  4. Execute o aplicativo.

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

Consulte também