Algoritmo di crittografia Rijndael è scritto in C. È progettato per sostituire l'algoritmo del DES di invecchiamento ed è un cifrario a blocchi. Crittografa blocchi di 128 bit. L'algoritmo utilizza una chiave e un vettore di inizializzazione. La chiave è fondamentalmente la password utilizzata per crittografare i dati. Il IV viene utilizzato per crittografare la prima parte dei dati. È necessario creare la chiave e il IV per crittografare un file in VB6.

Istruzioni

1

Fare clic su "Start", "Tutti i programmi" e "Visual Basic" per aprire Visual Basic. Fare clic su "New" e "Progetto" per creare un nuovo progetto. Immettere un nome per il progetto. Specificare una posizione per esso.

2

Fare clic su "Form1. vb" in Esplora soluzioni. Fare doppio clic sul form per passare all'interfaccia di codice. Includere la seguente imports:
Imports System
Imports System.IO
Imports System. Security
Imports System.Security.Cryptography

3

Creare una chiave tramite codice:
Privato funzione CreateKey(ByVal strPassword As String) As Byte)

Dim bytKey As Byte()
Dim bytSalt As Byte() = System.Text.Encoding.ASCII.GetBytes("salt")
Dim pdb As New PasswordDeriveBytes(strPassword, bytSalt)
bytKey = pdb.GetBytes(32)

Ritorno bytKey
End Function

4

Creare IV tramite la funzione:
Privato funzione CreateIV(ByVal strPassword As String) As Byte)

Dim bytIV As Byte()
Dim bytSalt As Byte() = System.Text.Encoding.ASCII.GetBytes("salt")
Dim pdb As New PasswordDeriveBytes(strPassword, bytSalt)
bytIV = pdb.GetBytes(16)
Return bytIV

End Function

5

Crittografare il file attraverso dichiarando il tuo CryptoServiceProvider e impostazione CryptoStream:
Dim csCryptoStream As CryptoStream
Dim cspRijndael As New RijndaelManaged
csCryptoStream = nuovo CryptoStream(fsOutput, _

cspRijndael.CreateEncryptor(bytKey, bytIV), _
CryptoStreamMode.Write)