Visual Basic programmeringsspråk , publiceras av Microsoft , kommer med ett inbyggt bibliotek för hantering av kryptering och kryptografi . Även om kryptering biblioteket tar hand om de svåraste delarna av att kryptera en fil , är det inte självklart hur man använder de verktyg som tillhandahålls för att kryptera en fil . Den viktigaste början är , att för att kryptera din fil måste du först läsa den som en array av bytes , inte text eller andra datatyper . Instruktioner
1
Skapa ett nytt projekt i Visual Basic genom att klicka på " File " och " Nytt projekt . " Välj " Console Application " alternativet . Senare kan du använda samma kod som används i denna handledning till varje grafiskt användargränssnitt ( GUI ) program du väljer att bygga .
2
Importera den kryptografiska biblioteket genom att klistra in följande kodrad på toppen av din ansökan :
Imports System.Security.Cryptography
3
läsa data från filen som du vill kryptera som en array av bytes med följande kommando :
Dim byte () = My.Computer.FileSystem.ReadAllBytes ( " C : \\ file.dat " ) katalog
Ersätt " C : \\ file.dat " med sökvägen och namnet på filen du vill kryptera .
4
Klistra in följande kommando för att förklara nyckeln och initieringsvektor för kryptering funktionen . Du kommer att behöva denna information för att dekryptera filen :
Dim knappen ( ) som 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 ( ) som byte = { 8,7,6,5,4,3 , 2,1 }
naturligtvis bör du byta ut alla siffror i både nyckeln och initieringsvektorn med andra siffror . Alla som känner till dessa siffror kan dekryptera filen , så gör dem svåra att gissa . Siffrorna bör alla vara giltiga bytes : . Mellan 0 och 255
5
Initiera krypterande, en kryptering bäck och ett minne ström för att hålla de krypterade data medan du bestämmer vad du ska göra med det . Klistra in följande kod :
dim tdescsp = Ny TripleDESCryptoServiceProvider ( ) katalog
dim krypteraren = tdescsp.CreateEncryptor ( nyckel , init_vector ) katalog
dim memStream = ny System.IO.MemoryStream
dim encryptionStream = ny CryptoStream ( memStream , krypterande , CryptoStreamMode.Write )
6
Kryptera bytearrayen från ovan genom att klistra in följande :
encryptionStream.Write ( byte , 0 , bytes.Length ) katalog
encryptionStream.FlushFinalBlock ( ) katalog
memStream.Position = 0
7
Läs krypterade data tillbaka till din memStream :
Dim encrypted_bytes ( memStream.Length - 1 ) som byte
memStream.Read ( encrypted_bytes , 0 , memStream.Length ) katalog
memStream.Close ( ) katalog
8
Klistra in följande för att skriva ut de krypterade data till konsolen :
för varje x i encrypted_bytes
Console.Write ( x ) katalog
Console.Write ( " " ) katalog
nästa
Console.ReadKey ( )
9
Tryck på den gröna pilen för att köra programmet .
