clic su "Start ", " Tutti i programmi " e " Visual Basic " per aprire Visual Basic . Fare clic su "Nuovo" e "Progetto " per creare un nuovo progetto . Immettere un nome per il progetto . Specificare una posizione per esso .
2
Clicca " Form1.vb " sul Solution Explorer . Fare doppio clic sul form per passare all'interfaccia di codice . Includere le seguenti importazioni: Importazioni SystemImports System.IOImports System.SecurityImports System.Security.Cryptography
3
creare una chiave con codice : Private Function CreateKey ( ByVal strPassword As String ) As Byte ( ) dim bytKey As Byte ( ) dim bytSalt As Byte ( ) = System.Text.Encoding.ASCII.GetBytes ( "sale" ) dim pDB As New PasswordDeriveBytes ( strPassword , bytSalt ) bytKey = pdb.GetBytes ( 32 ) Torna Funzione bytKeyEnd
4
Crea IV tramite la funzione : private Function CreateIV ( ByVal strPassword As String ) As Byte ( ) Dim bytIV As Byte ( ) Dim bytSalt As Byte ( ) = System.Text.Encoding.ASCII.GetBytes ( "sale" ) Dim pdb As New PasswordDeriveBytes ( strPassword , bytSalt ) bytIV = pdb.GetBytes (16 ) Torna bytIVEnd Funzione
5
crittografare i file tramite il vostro dichiarando CryptoServiceProvider e la creazione di CryptoStream : Dim csCryptoStream come CryptoStreamDim cspRijndael As New System.Security.Cryptography.RijndaelManagedcsCryptoStream = New CryptoStream ( fsOutput , _cspRijndael.CreateEncryptor ( bytKey , bytIV ) , _CryptoStreamMode.Write ) economici
networking © www.354353.com