Die Programmiersprache Visual Basic von Microsoft veröffentlicht wurde, kommt mit einem eingebauten Bibliothek für den Umgang mit Verschlüsselung und Kryptographie. Obwohl die Verschlüsselung Bibliothek kümmert sich um die schwierigsten Teile eine Datei verschlüsseln , ist es nicht klar, wie man die Werkzeuge bereitgestellt, um eine Datei zu verschlüsseln verwenden . Die wichtigste Anfang ist , dass Sie Ihre Datei zu verschlüsseln, müssen Sie sich zunächst las es als ein Array von Bytes, nicht Text oder andere Datentypen. Anleitung
1

Erstellen eines neuen Projekts in Visual Basic , indem Sie auf "Datei" und " New Project". Wählen Sie die "Console Application" -Option. Später können Sie den gleichen Code in diesem Tutorial verwendet werden, um jede Graphical User Interface ( GUI) Anwendung, die Sie entscheiden, zu bauen gelten .
2

Import die Kryptographie -Bibliothek durch das Einfügen der folgenden Zeile Code an der Spitze Ihrer Anwendung :

Importe System.Security.Cryptography
3

Lesen Sie die Daten aus der Datei , die Sie als ein Array von Bytes verschlüsseln mit dem folgenden Befehl :

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

Ersetzen Sie " C: \\ file.dat " mit dem Pfad und Namen der Datei Sie möchten, zu verschlüsseln.
4

Fügen Sie den folgenden Befehl, um den Schlüssel und Initialisierungsvektor für die Verschlüsselung Funktion erklären . Sie benötigen diese Informationen, um die Datei zu entschlüsseln :

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

Natürlich sollten Sie alle Zahlen in den beiden dem Schlüssel und dem Initialisierungsvektor mit anderen Zahlen zu ersetzen. Wer diese Zahlen entschlüsseln kann Ihre Datei kennt , so machen sie schwer zu erraten . Die Zahlen sollten alle gültigen Bytes sein : . Zwischen 0 und 255
5

initialisieren encryptor , ein Verschlüsselungs- Stream und eine Speicher-Stream auf die verschlüsselten Daten zu halten, während Sie , was damit zu tun zu entscheiden. Fügen Sie den folgenden Code:

dim tdescsp = New TripleDESCryptoServiceProvider ()

dim encryptor = tdescsp.CreateEncryptor (key , init_vector )

dim memStream = new System.IO.MemoryStream

dim encryptionStream = new CryptoStream ( memStream , Verschlüsselung , CryptoStreamMode.Write )
6

Verschlüsseln Sie das Byte-Array von oben durch Einfügen der folgende:

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

encryptionStream.FlushFinalBlock ()

memStream.Position = 0
7

Lesen Sie die verschlüsselten Daten wieder in Ihr memStream :

Dim encrypted_bytes ( memStream.Length - 1) Byte

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

memStream.Close ()

8

Fügen Sie den folgenden , um die verschlüsselten Daten an die Konsole zu drucken:

für jedes x in encrypted_bytes

Console.Write (x)

Console.Write ("")

next to

Console.ReadKey ()
9

Drücken Sie die grüne Taste, um die Anwendung auszuführen.