The Visual Basic programmeringsspråk , utgitt av Microsoft , kommer med en innebygd bibliotek for håndtering av kryptering og kryptografi. Selv om kryptering biblioteket tar seg av de vanskeligste delene av å kryptere en fil , er det ikke opplagt hvordan du bruker verktøy levert til å kryptere en fil . Det viktigste begynnelsen er , at for å kryptere filen, må du først lese det som en rekke bytes , ikke tekst eller andre datatyper . Instruksjoner
en

Lag et nytt prosjekt i Visual Basic ved å klikke på "File" og "New Project ". Velg " Console Application " alternativet . Senere kan du bruke den samme koden som brukes i denne opplæringen til enhver Graphical User Interface ( GUI ) program du velger å bygge .
2

Import av Cryptography biblioteket ved å lime inn følgende kodelinje på toppen av søknaden din : en

Import System.Security.Cryptography
3

Les data fra filen du ønsker å kryptere som en rekke byte ved hjelp av følgende kommando:

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

Erstatt " C : \\ file.dat " med banen og navnet på filen du ønsker å kryptere .
4

Lim inn følgende kommando for å erklære nøkkelen og initialiseringsvektoren for krypteringsfunksjonen. Du trenger denne informasjonen for å dekryptere filen : en

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

Naturligvis bør du skifte ut alle tallene i både nøkkelen og initialiseringsvektoren med andre tall . Alle som kjenner disse tallene kan dekryptere filen, så gjør dem vanskelig å gjette . Tallene bør alle være gyldige bytes : . Mellom 0 og 255
5

Initialiser encryptor , en kryptering stream og et minne stream å holde de krypterte data mens du bestemmer hva du skal gjøre med det . Lim inn følgende kode :

dim tdescsp = Ny TripleDESCryptoServiceProvider ( )

dim encryptor = tdescsp.CreateEncryptor (key , init_vector )

dim memStream = new System.IO.MemoryStream

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

Krypter byte array ovenfra ved å lime inn følgende : en

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

encryptionStream.FlushFinalBlock ( )

memStream.Position = 0
7

Les de krypterte dataene tilbake til memStream ditt :

Dim encrypted_bytes ( memStream.Length - 1 ) som Byte

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

memStream.Close ( )

8

Lim inn følgende for å skrive ut krypterte data til konsollen : en

for hver xi encrypted_bytes

Console.Write ( x )

Console.Write ( "")

neste

Console.ReadKey ( )
9

Trykk på den grønne pilen for å kjøre programmet.