hur du krypterar en fil med VB

Visual Basic-programmering språk , publiceras av Microsoft, kommer med en inbyggd bibliotek för att hantera kryptering och kryptografi . Även om kryptering biblioteket tar hand om de svåraste delarna av kryptera en fil , är det inte självklart hur man använder de verktyg som erbjuds för att kryptera en fil . Den viktigaste början är att för att kryptera en fil , måste du först läsa den som en array av byte , inte text eller andra datatyper
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 för att någon grafiskt användargränssnitt ( GUI ) program du väljer att bygga .
2 .
Import den kryptografiska biblioteket genom att klistra in följande kodrad högst upp på din ansökan .

Import System. Security. Cryptography
3

läsa data från den fil du vill kryptera som en array av bytes med följande kommando :

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

Ersätt ”C : \ file. dat ” med sökvägen och namnet på den fil du vill kryptera .
4 .
Klistra in följande kommando för att förklara de viktigaste och Initieringsvektorn för kryptering funktionen . Du kommer att behöva denna information för att kunna dekryptera filen :

Dim knappen ( ) As 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 ( ) As Byte={ 8,7,6,5,4,3,2,1 }

Självklart bör du byta ut alla tal i både nyckeln och Initieringsvektorn med andra nummer . Alla som känner till dessa siffror kan dekryptera filen , så gör dem svåra att gissa . Siffrorna bör alla vara giltigt byte : mellan 0 och 255
5
Initiera krypteringföretaget, en kryptering bäck och ett minne ström för att hålla den krypterade data medan du bestämmer vad du ska göra med . det . Klistra in följande kod :

dim tdescsp=Nya TripleDESCryptoServiceProvider ( )

dim krypteringsföretaget=tdescsp. CreateEncryptor ( nyckel , init_vector )

dim memStream=ny System. IO. MemoryStream

dim encryptionStream=new CryptoStream ( memStream , krypteringföretaget, CryptoStreamMode . Skriv )
6
Kryptera bytearrayen ovanifrån genom att klistra in följande : .

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

encryptionStream. FlushFinalBlock ( )
memStream. Position=0
7 .
Läs krypterade data tillbaka i din memStream :

Dim encrypted_bytes ( memStream. Length-1 ) As Byte

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

memStream. Close ( )
8
Klistra in följande för att skriva ut den krypterade data till konsolen .

för varje x i encrypted_bytes

Console . Skriv (x )

Console. Write (”” )

nästa

Console. ReadKey ( )
9 .

Tryck på den gröna pilen för att köra programmet .