Δημιουργήστε μια μεταβλητή που καθορίζει το κλειδί Blowfish . Το κλειδί είναι ο κωδικός πρόσβασης για την αποκρυπτογράφηση του αρχείου . Ο παρακάτω κώδικας δημιουργεί το Blowfish μεταβλητή και ορίζει ότι περιέχει ένα « mypass " κλειδί κωδικό πρόσβασης :
Δημ. pwd Όπως String.pwd = " mypass " 2
Ορίστε το κλειδί για την αντικείμενο κρυπτογράφησης . Το αντικείμενο κρυπτογράφησης είναι μια μεταβλητή που περιέχει όλες τις πληροφορίες , όπως ο κωδικός αποκρυπτογράφησης. Ο παρακάτω κώδικας ορίζει Blowfish μεταβλητή σας και το κλειδί για την αποκρυπτογράφηση :
Dim κρύπτη As New Chilkat.Crypt2 ( ) crypt.SetEncodedKey ( pwd , " ascii " )
εικόνων 3
Αποκρυπτογράφηση αρχείων σας . Blowfish αποκρυπτογραφεί το αρχείο και το αποθηκεύει σε ένα μη κρυπτογραφημένο αρχείο . Ο ακόλουθος κώδικας αποκρυπτογραφεί ένα αρχείο με το όνομα " encrypted.dat » και την αποθηκεύει σε ένα αρχείο με όνομα " c.txt " :
πλήρης = crypt.CkDecryptFile ( " encrypted.dat " , " encrypted.txt " )
η " πλήρης" μεταβλητή αυτή δηλώνει ότι η αποκρυπτογράφηση ήταν μια επιτυχία .
Η 4
Στείλτε ένα μήνυμα προς τον χρήστη λογισμικό που η αποκρυπτογράφηση ολοκληρώθηκε με επιτυχία . Ο παρακάτω κώδικας στέλνει ένα μήνυμα προς τον χρήστη λογισμικό :
MsgBox ( "Το αρχείο αποκρυπτογραφούνται " )
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα