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