Πώς να κρυπτογραφήσετε ένα αρχείο με VB

Η γλώσσα προγραμματισμού Visual Basic , δημοσιεύεται από τη Microsoft , έρχεται με μια ενσωματωμένη βιβλιοθήκη για το χειρισμό και την κρυπτογράφηση κρυπτογραφία . Αν και η βιβλιοθήκη κρυπτογράφησης φροντίζει από τα πιο δύσκολα μέρη της κρυπτογράφηση ενός αρχείου , δεν είναι προφανές το πώς να χρησιμοποιήσετε τα εργαλεία που παρέχονται για να κρυπτογραφήσετε ένα αρχείο . Η πιο σημαντική αρχή είναι , ότι για να κρυπτογραφήσετε το αρχείο σας , θα πρέπει πρώτα να το διαβάσει ως μια σειρά από bytes , όχι στο κείμενο ή άλλους τύπους δεδομένων . Οδηγίες
Η

1 Δημιουργήστε ένα νέο έργο της Visual Basic κάνοντας κλικ στο " Αρχείο" και "New Project ". Επιλέξτε το "Console Application " επιλογή . Αργότερα , μπορείτε να εφαρμόσετε τον ίδιο κώδικα που χρησιμοποιείται σε αυτό το σεμινάριο σε κάθε Graphical User Interface ( GUI ) εφαρμογή αποφασίσετε να οικοδομήσουμε . 2

Εισαγωγή στη βιβλιοθήκη κρυπτογραφίας επικολλώντας την ακόλουθη γραμμή κώδικα στην κορυφή της αίτησής σας :

Εισαγωγές System.Security.Cryptography
εικόνων 3

Διαβάστε τα δεδομένα από το αρχείο που θέλετε να κρυπτογραφήσετε ως μια σειρά από bytes χρησιμοποιώντας την ακόλουθη εντολή :

Δημ. bytes ( ) = My.Computer.FileSystem.ReadAllBytes ( " C : \\ file.dat " )

Αντικαταστήστε το " C : \\ file.dat " με τη διαδρομή και το όνομα του αρχείου θα θέλατε να κρυπτογραφήσετε .
Η 4

Επικολλήστε την ακόλουθη εντολή για να κηρύξει το κλειδί και διάνυσμα αρχικοποίησης για τη λειτουργία κρυπτογράφησης . Θα χρειαστείτε αυτές τις πληροφορίες για να αποκρυπτογραφήσει το αρχείο :

Dim πλήκτρο ( ) ως 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 }

Δημ. init_vector ( ) ως Byte = { 8,7,6,5,4,3 , 2,1 }

φυσικά , θα πρέπει να αντικαταστήσει όλους τους αριθμούς τόσο στο κλειδί και το διάνυσμα αρχικοποίησης με άλλους αριθμούς . Όποιος γνωρίζει αυτούς τους αριθμούς μπορεί να αποκρυπτογραφήσει το αρχείο σας , έτσι ώστε να τους είναι δύσκολο να μαντέψει . Οι αριθμοί θα πρέπει να είναι όλες έγκυρες bytes : . Μεταξύ 0 και 255
5

Η προετοιμασία της κρυπτογραφούντος , ένα ρεύμα κρυπτογράφησης και ένα ρεύμα της μνήμης για να κρατήσει τα κρυπτογραφημένα δεδομένα , ενώ μπορείτε να αποφασίσετε τι να κάνετε με αυτό . Επικολλήστε τον ακόλουθο κώδικα :

dim tdescsp = Νέα TripleDESCryptoServiceProvider ( )

dim κρυπτογραφητής = tdescsp.CreateEncryptor ( κλειδί, init_vector )

dim memStream = νέα System.IO.MemoryStream

dim encryptionStream = νέα CryptoStream ( memStream , κρυπτογραφούντος , CryptoStreamMode.Write )
Η 6

Κρυπτογράφηση του πίνακα byte από πάνω με την επικόλληση το εξής :

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

encryptionStream.FlushFinalBlock ( )

memStream.Position = 0
Η 7

Διαβάστε τις κρυπτογραφημένων δεδομένων στην memStream σας :

Δημ. encrypted_bytes ( memStream.Length - 1), όπως Byte

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

memStream.Close ( )

8

Επικολλήστε τα παρακάτω για να εκτυπώσετε τα κρυπτογραφημένα δεδομένα στην κονσόλα :

για κάθε x στο encrypted_bytes

Console.Write ( x )

Console.Write ( " " )

επόμενη

Console.ReadKey ( )
Η

9 Πατήστε το πράσινο βέλος για να τρέξει η εφαρμογή .
εικόνων
Η