Rijndael kryptering algoritme er skrevet i C. Det er designet til at erstatte den aldrende DES algoritmen , og det er en blok cipher . Det krypterer 128 - bit blokke . Algoritmen anvender en nøgle og en initialisering vektor . Det centrale er dybest set den adgangskode, der bruges til at kryptere data . IV bruges til at kryptere den første del af dataene . Du er nødt til at oprette både nøgle og IV til at kryptere en fil i VB6 . Ting du skal
VB6
Vis Flere Instruktioner
1

Klik på "Start ", " Alle programmer " og " Visual Basic " for at åbne Visual Basic. Klik på "Ny " og " Project " for at oprette et nyt projekt. Indtast et navn til projektet . Angiv en placering for det.
2

Klik på " Form1.vb " på Solution Explorer . Dobbeltklik på formularen for at skifte til koden interface. Omfatter følgende import: Import SystemImports System.IOImports System.SecurityImports System.Security.Cryptography
3

Opret en nøgle via kode : Private Function CreateKey ( ByVal strPassword As String ) Som Byte () Dim bytKey Som Byte ( ) Dim bytSalt Som Byte ( ) = System.Text.Encoding.ASCII.GetBytes ( " salt" ) Dim FBF New PasswordDeriveBytes ( strPassword , bytSalt ) bytKey = pdb.GetBytes (32) Return bytKeyEnd Funktion < br >
4

Opret IV via funktionen : Privat Function CreateIV ( ByVal strPassword As String ) Som Byte ( ) Dim bytIV Som Byte ( ) Dim bytSalt Som Byte ( ) = System.Text.Encoding.ASCII.GetBytes ( " salt" ) Dim FBF New PasswordDeriveBytes ( strPassword , bytSalt ) bytIV = pdb.GetBytes (16) Return bytIVEnd Function
5

Krypter din fil via erklære din CryptoServiceProvider og oprette CryptoStream : Dim csCryptoStream som CryptoStreamDim cspRijndael som New System.Security.Cryptography.RijndaelManagedcsCryptoStream = Ny CryptoStream ( fsOutput , _cspRijndael.CreateEncryptor ( bytKey , bytIV ) _CryptoStreamMode.Write )