Πώς να χρησιμοποιήσετε Rijndael σε VB6

Rijndael Αλγόριθμος κρυπτογράφησης είναι γραμμένο σε C. Έχει σχεδιαστεί για να αντικαταστήσει τη γήρανση του αλγορίθμου DES και είναι ένα μπλοκ κρυπτογράφησης . Είναι κρυπτογραφεί μπλοκ 128 - bit . Ο αλγόριθμος χρησιμοποιεί ένα κλειδί και ένα διάνυσμα αρχικοποίησης . Το κλειδί είναι βασικά ο κωδικός πρόσβασης που χρησιμοποιείται για την κρυπτογράφηση των δεδομένων. Το IV χρησιμοποιείται για να κρυπτογραφήσει το πρώτο τμήμα των δεδομένων. Θα πρέπει να δημιουργήσετε δύο βασικούς και IV για να κρυπτογραφήσετε ένα αρχείο σε VB6 . Τα πράγματα που θα χρειαστείτε
VB6

Παρουσίαση Περισσότερες οδηγίες
Η

1 Κάντε κλικ στο κουμπί " Έναρξη", " Όλα τα προγράμματα " και " Visual Basic " για να ανοίξει το Visual Basic . Κάντε κλικ στο κουμπί " Νέα " και "Project " για να δημιουργήσετε ένα νέο έργο . Πληκτρολογήστε ένα όνομα για το έργο . Καθορίστε μια τοποθεσία για αυτό . 2

Κάντε κλικ στο " Form1.vb " στην Εξερεύνηση λύση . Κάντε διπλό κλικ στη φόρμα για να μεταβείτε στη διεπαφή κώδικα . Συμπεριλάβετε τις ακόλουθες εισαγωγές : Οι εισαγωγές SystemImports System.IOImports System.SecurityImports System.Security.Cryptography
εικόνων 3

Δημιουργήστε ένα κλειδί μέσω κώδικα: Private CreateKey Λειτουργία ( ByVal strPassword Όπως String ) Όπως Byte ( ) Dim bytKey Όπως Byte ( ) Dim bytSalt Όπως Byte ( ) = System.Text.Encoding.ASCII.GetBytes ( «άλας» ) Dim ΠΣΠ As New PasswordDeriveBytes ( strPassword , bytSalt ) bytKey = pdb.GetBytes ( 32 ) Λειτουργία Επιστροφή bytKeyEnd
Φτηνές 4

Δημιουργία IV μέσω της λειτουργίας : CreateIV Private Function ( ByVal strPassword Όπως String ) Όπως Byte ( ) Dim bytIV Όπως Byte ( ) Dim bytSalt Όπως Byte ( ) = System.Text.Encoding.ASCII.GetBytes ( «αλάτι» ) Dim ΠΣΠ As New PasswordDeriveBytes ( strPassword , bytSalt ) bytIV = pdb.GetBytes ( 16 ) Λειτουργία Επιστροφή bytIVEnd
5

Κρυπτογράφηση αρχείων σας μέσω δηλώνοντας CryptoServiceProvider σας και τη δημιουργία CryptoStream : Dim csCryptoStream Όπως CryptoStreamDim cspRijndael Όπως New System.Security.Cryptography.RijndaelManagedcsCryptoStream = Νέα CryptoStream ( fsOutput , _cspRijndael.CreateEncryptor ( bytKey , bytIV ) , _CryptoStreamMode.Write )
Η
εικόνων