Creare una variabile che imposta la chiave Blowfish . La chiave è la password per decriptare il file . Il codice seguente crea la variabile Blowfish e lo imposta per contenere un " miapass " password chiave :
Dim pwd Come String.pwd = " miapass "
2
Impostare la chiave per la oggetto crittografia. L'oggetto crittografia è una variabile che contiene tutte le informazioni , ad esempio la password di decrittografia . Il codice seguente imposta la variabile Blowfish e la chiave per la decrittazione :
Dim cripta As New Chilkat.Crypt2 ( ) crypt.SetEncodedKey ( pwd , " ascii" )
3
Decifrare il file . Blowfish decifra il file e lo salva in un file non crittografato . Il codice seguente decifra un file chiamato " encrypted.dat " e la salva in un file di nome " c.txt " :
completo = crypt.CkDecryptFile ( " encrypted.dat " , " encrypted.txt " )
la variabile "completo " indica che il decrypt è stato un successo .
4
Invia un messaggio per l'utente del software che la decrittazione completata con successo . Il codice seguente invia un messaggio per l'utente del software :
MsgBox ( " File decriptato " ) economici
Programmazione © www.354353.com