A linguagem de programação Visual Basic , publicado pela Microsoft , vem com um built-in biblioteca para manipulação de criptografia e criptografia. Embora a biblioteca de criptografia cuida das partes mais difíceis de criptografar um arquivo, ele não é óbvio como usar as ferramentas fornecidas para criptografar um arquivo . O início mais importante é que, para criptografar o arquivo , primeiro você deve lê-lo como um array de bytes , não em texto ou outros tipos de dados . Instruções
1
Crie um novo projeto no Visual Basic , clicando em " Arquivo" e " New Project ". Selecione a opção " Console Application " . Mais tarde , você pode aplicar o mesmo código utilizado neste tutorial para qualquer interface gráfica do usuário da aplicação ( GUI) que você decidir construir .
2
importar a biblioteca de criptografia , colando a seguinte linha de código na parte superior de sua aplicação :
Importações System.Security.Cryptography
3
Leia os dados do arquivo que você deseja criptografar como uma matriz de bytes usando o seguinte comando :
Dim bytes () = My.Computer.FileSystem.ReadAllBytes ( "C: \\ file.dat " )
Substitua "C: \\ file.dat " com o caminho eo nome do arquivo você gostaria de criptografar .
4
cole o seguinte comando para declarar a chave eo vetor de inicialização para a função de criptografia. Você irá precisar dessa informação para descriptografar o arquivo :
Dim key () as Byte = { 24,23,22,21,20,19,18,17,16,15,14,13 , 12,11,10,9,8,7,6,5,4,3,2,1 }
Dim init_vector () as Byte = { 8,7,6,5,4,3 , 2,1 }
Naturalmente, você deve substituir todos os números , tanto a chave eo vetor de inicialização com outros números. Quem conhece esses números podem descriptografar o arquivo, assim torná-los difíceis de adivinhar. Os números devem ser todos bytes válidos: . Entre 0 e 255
5
Inicializar o codificador , um fluxo de criptografia e um fluxo de memória para armazenar os dados criptografados enquanto você decidir o que fazer com ele. Cole o seguinte código :
fraca tdescsp = Novo TripleDESCryptoServiceProvider ()
fraca encryptor = tdescsp.CreateEncryptor (key, init_vector )
fraca memStream = new System.IO.MemoryStream
fraca encryptionStream = new CryptoStream ( memStream , codificador , CryptoStreamMode.Write )
6
Criptografar o array de bytes a partir de cima , colando o seguinte :
encryptionStream.Write ( bytes , 0 , bytes.Length )
encryptionStream.FlushFinalBlock ()
memStream.Position = 0
7
Leia os dados criptografados para trás em seu memStream :
Dim encrypted_bytes ( memStream.Length - 1) As Byte
memStream.Read ( encrypted_bytes , 0 , memStream.Length )
memStream.Close ()
< br > 8
cole o seguinte para imprimir os dados criptografados para o console :
para cada x em encrypted_bytes
Console.Write (x)
Console.Write ("")
próxima
Console.ReadKey ()
9
Pressione a seta verde para executar o aplicativo.
