Cómo cifrar un archivo con VB

El lenguaje de programación Visual Basic , publicado por Microsoft , cuenta 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 leerlo como una matriz de bytes , no a textos ni otros tipos de datos. Instrucciones
1

Crear un nuevo proyecto en Visual Basic , haga clic en "Archivo" y "Nuevo proyecto ". Seleccione la opción " Aplicación de consola " . Más tarde , se puede aplicar el mismo código utilizado en este tutorial para cualquier interfaz 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 solicitud :

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 " )

Sustitúyase " C: \\ archivo.dat " con la ruta y el nombre del archivo desea cifrar .
4

Pega el siguiente comando para declarar la clave y el vector de inicialización para la función de cifrado . Usted necesitará esta información para descifrar el archivo :
clave

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 }

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

Naturalmente , deberá cambiar 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 , por lo que los hace difíciles de adivinar . Todos los números deben ser bytes válidos : . Entre 0 y 255
5

Inicializar el encriptador , un flujo de cifrado y una secuencia de memoria para almacenar los datos cifrados mientras se decide qué hacer con él. Pega el siguiente código:

dim tdescsp = New TripleDESCryptoServiceProvider ()

dim encriptador = tdescsp.CreateEncryptor (clave , init_vector )

dim memStream = new System.IO.MemoryStream

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

Cifre 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

Pulse la flecha verde para ejecutar la aplicación.