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.