Cómo cifrar un archivo con VB

El lenguaje de programación Visual Basic, publicado por Microsoft, viene con una biblioteca integrada para el manejo de cifrado y criptografía. Aunque la biblioteca de cifrado se encarga de las partes más difíciles de cifrar un archivo, no es obvio cómo utilizar las herramientas proporcionadas para cifrar un archivo. El principio más importante es, que para cifrar el archivo, primero debe leer como una matriz de bytes, no texto u otros tipos de datos.

Instrucciones

1 Crear un nuevo proyecto en Visual Basic haciendo clic en "Archivo" y "Nuevo proyecto". Seleccionar la opción "Aplicación de consola". Más tarde, se puede aplicar el mismo código utilizado en este tutorial para cualquier interfaz de la aplicación gráfica de usuario (GUI) decide construir.

2 Importar la biblioteca de criptografía pegando la siguiente línea de código en la parte superior de su aplicación:

Las importaciones System.Security.Cryptography

3 Leer los datos desde el archivo que desea cifrar como una matriz de bytes utilizando el siguiente comando:

bytes Dim () = My.Computer.FileSystem.ReadAllBytes ( "C: \ archivo.dat")

Reemplazar "C: \ archivo.dat" con la ruta y el nombre del archivo que desea cifrar.

4 Pegue el siguiente comando para declarar el vector clave y la inicialización de la función de encriptación. Necesitará esta información con el fin de descifrar el archivo:

Referencias Dim () 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}

init_vector dim () As Byte = {8,7,6,5,4,3,2,1}

Naturalmente, debe reemplazar todos los números de la clave y el vector de inicialización con otros números. Cualquiera que conozca estos números puede descifrar el archivo, de modo que sean difíciles de adivinar. Los números de todos los bytes deben ser válidos: entre 0 y 255.

5 Inicializar el dispositivo de cifrado, una corriente de cifrado o una secuencia de memoria para almacenar los datos cifrados mientras se decide qué hacer con él. Pegue el siguiente código:

dim = tdescsp Nueva TripleDESCryptoServiceProvider ()

dim = encriptador tdescsp.CreateEncryptor (clave, init_vector)

dim = memStream nueva System.IO.MemoryStream

dim = encryptionStream nueva CryptoStream (memStream, encriptador, CryptoStreamMode.Write)

6 Cifrar la matriz de bytes desde arriba pegando el siguiente:

encryptionStream.Write (bytes, 0, bytes.Length)

encryptionStream.FlushFinalBlock ()

memStream.Position = 0

7 Leer los datos cifrados de nuevo en su memStream:

encrypted_bytes Dim (memStream.Length - 1) como Byte

memStream.Read (encrypted_bytes, 0, memStream.Length)

memStream.Close ()

8 Pega el siguiente para imprimir los datos cifrados a la consola:

para cada x en encrypted_bytes

Console.Write(x)

Console.Write ( "")

siguiente

Console.ReadKey ()

9 Presione la flecha verde para ejecutar la aplicación.