hvordan man kan kryptere en fil med vb

Indlæg af Dan Dejligbjerg     opdateret: 2011-12-09

Visual Basic programmeringssprog , udgivet af Microsoft , kommer med en indbygget bibliotek til håndtering 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 begyndelsen er, at for at kryptere din fil , skal du først læse det som en række af bytes , ikke tekst eller andre datatyper
1 .
Opret et nyt projekt i Visual Basic ved at klikke på "Filer" og " New Project. " Vælg " Console Application " valgmulighed . Senere kan du anvende den samme kode, der bruges i denne tutorial til noget Graphical User Interface ( GUI ) program, som du vælger at bygge .
2 .
Import Kryptografi biblioteket ved at indsætte følgende linje kode i toppen af din ansøgning .

Import System. Security. Cryptography
3

læse data fra den fil, du ønsker at kryptere som en række af bytes ved hjælp af følgende kommando :

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

Erstat " C : \ fil. dat " med stien og navnet på den fil , du gerne vil kryptere .
4 .
Indsæt følgende kommando til at erklære nøglen og initialisering vektor til kryptering funktion . Du skal bruge disse oplysninger til at dekryptere filen :

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 centrale og initialisering vektor med andre numre . Enhver, der kender disse numre kan dekryptere din fil , så gør dem svære at gætte . Numrene skal alle være gyldige bytes : mellem 0 og 255
5
Initialiser krypteringsforetagendet , en kryptering strøm og en hukommelse strøm til at holde de krypterede data, mens du beslutter dig for hvad du skal gøre med. den. Indsæt følgende kode :

dim tdescsp=Ny TripleDESCryptoServiceProvider ( )
dim krypteringsforetagendet=tdescsp. CreateEncryptor ( nøgle , init_vector )

dim memStream=nye System. IO. MemoryStream
dim encryptionStream=nye CryptoStream ( memStream , krypteringsforetagendets , CryptoStreamMode . Skriv)
6
Krypter byte array fra oven ved at indsætte følgende : .

encryptionStream. Write ( bytes , 0 , bytes. Length )
encryptionStream. FlushFinalBlock ( )
memStream. Position=0
7 .
Læs krypterede data tilbage ind i din memStream :

Dim encrypted_bytes ( memStream. Length-1) som byte
memStream. Read ( encrypted_bytes , 0 , memStream. Length )
memStream. Close ( )
8
Indsæt følgende for at udskrive de krypterede data til Console : .


for hver x i encrypted_bytes
Console . Skriver ( x )
Console. Write ( " " )
næste
Console. ReadKey ( )
9 .

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


Previous:hvordan man kan sortere data i Visual Basic Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change