Visual Basic programmeringssprog , udgivet af Microsoft , kommer med en indbygget bibliotek til håndtering af kryptering og kryptografi . Selvom kryptering biblioteket tager sig af de mest vanskelige dele af krypterer en fil , er det ikke indlysende , hvordan man bruger de værktøjer, der til at kryptere en fil. Det vigtigste begyndelse er , at for at kryptere din fil , skal du først læse det som en vifte af bytes , ikke tekst eller andre datatyper. Instruktioner
1

Opret et nyt projekt i Visual Basic ved at klikke på "File " og " Nyt projekt ". Vælg " Console Application " valgmulighed. Senere kan du anvende den samme kode, der bruges i denne tutorial til ethvert Graphical User Interface ( GUI) program, du beslutter dig for at bygge.
2

Importer Kryptografi biblioteket ved at indsætte følgende linje kode øverst af din ansøgning : Hej

Import System.Security.Cryptography
3

Læs data fra den fil, du ønsker at kryptere som en vifte af bytes ved hjælp af følgende kommando: < br >

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

Erstat " C: \\ file.dat " med stien og navnet på filen du gerne vil kryptere .
4

Indsæt følgende kommando til at erklære nøglen og initialisering vektor for krypterings -funktion. Du får brug for disse oplysninger for at dekryptere filen : Hej

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 udskifte alle numrene i både nøglen og initialisering vektor med andre numre . Enhver, der kender disse tal kan dekryptere din fil , så gør dem svære at gætte. Tallene bør alle være gyldige bytes : . Mellem 0 og 255
5

Initialiser krypteringsforetagende en kryptering stream og en hukommelse stream til at holde de krypterede data, mens du beslutte, hvad de skal gøre med det. Indsæt følgende kode : Hej

dim tdescsp = Ny TripleDESCryptoServiceProvider ()

dim krypteringsenhed = tdescsp.CreateEncryptor (nøgle , init_vector )

dim memStream = new System.IO.MemoryStream

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

Krypter byte array ovenfra ved at indsætte følgende:

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

encryptionStream.FlushFinalBlock ()

memStream.Position = 0
7

Læs de krypterede data tilbage i din memStream : Salg

Dim encrypted_bytes ( memStream.Length - 1) som Byte

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

memStream.Close ()
< br > 8.

Indsæt følgende for at udskrive de krypterede data til konsollen : Hej

for hver x i encrypted_bytes

Console.Write ( x )

Console.Write ("")

næste

Console.ReadKey ()
9

Tryk på den grønne pil for at køre programmet.