Rijndael Encryption Algorithm è scritto in C. È stato progettato per sostituire l'algoritmo DES invecchiamento ed è un cifrario a blocchi . Si codifica blocchi di 128 bit . L' algoritmo utilizza una chiave e un vettore di inizializzazione . La chiave è fondamentalmente la password utilizzata per crittografare i dati . La IV è utilizzato per crittografare la prima porzione dei dati . È necessario creare la chiave e IV per crittografare un file in VB6 . Cose che ti serviranno
VB6
Mostra più istruzioni
1

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