Cómo utilizar Rijndael en VB6

Rijndael Algoritmo de cifrado que está escrito en C. Está diseñado para reemplazar el algoritmo DES envejecimiento y es un cifrado de bloques . Se cifra 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 dos claves y IV para cifrar un archivo en Visual Basic 6 . Cosas que necesitará
VB6
Ver Más 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 proyecto nuevo . Introduzca un nombre para el proyecto . Especifique una ubicación para el mismo .
2

clic " Form1.vb " en el Explorador de soluciones. Haga doble clic en el formulario para cambiar a la interfaz de código. Incluya las siguientes importaciones: las importaciones SystemImports System.IOImports System.SecurityImports System.Security.Cryptography
3

crear una clave a través de código : Private Function CreateKey ( strPassword ByVal As String ) As Byte ( ) bytKey As Byte () bytSalt As Byte () = System.Text.Encoding.ASCII.GetBytes ( "sal ") Dim pdb As New PasswordDeriveBytes ( strPassword , bytSalt ) bytKey = pdb.GetBytes ( 32 ) Regresar Función bytKeyEnd
4

Crear IV a través de la función : Private Function CreateIV ( strPassword ByVal As String ) As Byte () bytIV As Byte () bytSalt As Byte () = System.Text.Encoding.ASCII.GetBytes ( "sal ") Dim pdb As New PasswordDeriveBytes ( strPassword , bytSalt ) bytIV = pdb.GetBytes ( 16 ) Volver bytIVEnd Función
5

Cifre su archivo a través de declarar su CryptoServiceProvider y la creación de CryptoStream : Dim csCryptoStream Como CryptoStreamDim cspRijndael As New System.Security.Cryptography.RijndaelManagedcsCryptoStream = New CryptoStream ( fsOutput , _cspRijndael.CreateEncryptor ( bytKey , bytIV ) , _CryptoStreamMode.Write )