Algoritmo de encriptação Rijndael é escrito em C. Ele é projetado para substituir o algoritmo DES de envelhecimento e é uma cifra de bloco . Ele criptografa blocos de 128 bits . O algoritmo utiliza uma chave e um vetor de inicialização . A chave é, basicamente, a senha usada para criptografar os dados. O IV é utilizada para encriptar a primeira parte dos dados . Você precisa criar tanto chave e IV para criptografar um arquivo em VB6. Coisas que você precisa
VB6
Show Mais instruções
1

Clique em " Iniciar", " Todos os Programas " e " Visual Basic" para abrir o Visual Basic. Clique em " New " e " Project" para criar um novo projeto. Digite um nome para o projeto. Especifique um local para isso.
2

Clique em " Form1.vb " no Solution Explorer. Clique duas vezes no formulário para alternar para a interface de código. Inclua os seguintes importações: SystemImports Importações System.IOImports System.SecurityImports System.Security.Cryptography
3

criar uma chave via código : CreateKey Private Function (ByVal strPassword As String) As Byte () Dim bytKey As Byte () Dim bytSalt As Byte () = System.Text.Encoding.ASCII.GetBytes ( "sal" ) pdb Dim As New PasswordDeriveBytes ( strPassword , bytSalt ) bytKey = pdb.GetBytes (32) de retorno da função bytKeyEnd

4

Criar IV através da função : CreateIV Private Function (ByVal strPassword As String) As Byte () Dim bytIV As Byte () Dim bytSalt As Byte () = System.Text.Encoding.ASCII.GetBytes ( "sal" ) pdb Dim Novas PasswordDeriveBytes ( strPassword , bytSalt ) bytIV = pdb.GetBytes (16) de retorno da função bytIVEnd
5

Criptografar o arquivo através de declarar seu CryptoServiceProvider e criação CryptoStream : Dim csCryptoStream como CryptoStreamDim cspRijndael As New System.Security.Cryptography.RijndaelManagedcsCryptoStream = Novo CryptoStream ( fsOutput , _cspRijndael.CreateEncryptor ( bytKey , bytIV ) , _CryptoStreamMode.Write )