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.