Come crittografare un file con VB

Il linguaggio di programmazione Visual Basic , pubblicato da Microsoft , viene fornito con una libreria di built-in per la gestione di cifratura e crittografia . Anche se la libreria di crittografia si prende cura delle parti più difficili della crittografia di un file , non è ovvio come utilizzare gli strumenti forniti per crittografare un file . Il principio più importante è , che per crittografare il file , è necessario prima leggere come un array di byte, non di testo o altri tipi di dati . Istruzioni
1

Creare un nuovo progetto in Visual Basic facendo clic su " File " e " Nuovo progetto ". Selezionare l'opzione "Console Application " . Successivamente, è possibile applicare lo stesso codice utilizzato in questo tutorial per qualsiasi interfaccia utente grafica ( GUI) si decide di costruire .
2

importare la libreria di crittografia incollando la seguente riga di codice nella parte superiore della vostra applicazione :

Importazioni System.Security.Cryptography
3

leggere i dati dal file da cifrare come un array di byte utilizzando il seguente comando:

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

sostituire " C : \\ file.dat " con il percorso e il nome del file si desidera crittografare .
4

Incollare il seguente comando per dichiarare la chiave e il vettore di inizializzazione per la funzione di crittografia . Avrete bisogno di queste informazioni al fine di decifrare il file :
chiave

Dim () come 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 () come Byte = { 8,7,6,5,4,3 , 2,1 }

Naturalmente , è necessario sostituire tutti i numeri sia la chiave e il vettore di inizializzazione con altri numeri . Chi conosce questi numeri in grado di decifrare il file , in modo da renderle difficile da indovinare. I numeri devono essere tutti byte validi : . Tra 0 e 255
5

Inizializzare il criptato , un flusso di crittografia e un flusso di memoria per contenere i dati crittografati mentre si decide cosa fare con esso . Incollare il seguente codice:

dim tdescsp = New TripleDESCryptoServiceProvider ( ) per

dim criptato = tdescsp.CreateEncryptor ( chiave , init_vector ) per

dim memStream = new System.IO.MemoryStream

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

Crittografare l'array di byte da sopra incollando il seguente :

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

encryptionStream.FlushFinalBlock ( ) per

memStream.Position = 0
7

leggere i dati crittografati nel vostro memStream :

Dim encrypted_bytes ( memStream.Length - 1 ) As Byte

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

memStream.Close ( ) per
8