Rijndael algoritmo de cifrado está escrito en C. Está diseñado para reemplazar el algoritmo DES de envejecimiento y es un cifrado de bloques. Se encripta bloques de 128 bits. El algoritmo utiliza una clave y un vector de inicialización. La clave es básicamente la contraseña utilizada para cifrar los datos. El IV se utiliza para cifrar la primera parte de los datos. Es necesario crear tanto clave y IV para cifrar un archivo en Visual Basic 6.
Instrucciones
1 Haga clic en "Inicio", "Todos los programas" y "Visual Basic" para abrir Visual Basic. Haga clic en "Nuevo" y "proyecto" para crear un nuevo proyecto. Introduzca un nombre para el proyecto. Especificar una ubicación para el mismo.
2 Haga clic en "Form1.vb" en el Explorador de soluciones. Haga doble clic en el formulario para cambiar a la interfaz de código. Incluir las siguientes importaciones:
Sistema de importaciones
Imports System.IO
Las importaciones System.Security
Las importaciones System.Security.Cryptography
3 Crear una clave a través de código:
Función privada 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)
volver bytKey
End Function
4 Crear IV a través de la función:
Función privada 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 Cifrar el archivo a través de declarar su CryptoServiceProvider y la creación de CryptoStream:
Dim csCryptoStream Como CryptoStream
Dim cspRijndael Como Nueva System.Security.Cryptography.RijndaelManaged
csCryptoStream = Nueva CryptoStream (fsOutput, _
cspRijndael.CreateEncryptor(bytKey, bytIV), _
CryptoStreamMode.Write)