Rijndael krypteringsalgoritme er skrevet i C. Det er ment å erstatte den aldrende DES algoritmen , og det er en blokk chiffer . Det krypterer 128 -bits blokker. Algoritmen bruker en nøkkel og en initialiseringsvektoren . Nøkkelen er i utgangspunktet passordet som brukes til å kryptere data . Den IV blir brukt til å kryptere den første del av dataene. Du må opprette både nøkkel og IV til å kryptere en fil i VB6. Du trenger
VB6
Vis flere instruksjoner
en

Klikk " Start", " Alle programmer " og " Visual Basic " for å åpne Visual Basic. Klikk på " New" og "Project " for å opprette et nytt prosjekt . Skriv inn et navn for prosjektet. Angi en plassering for den.
2

Klikk " Form1.vb " på Solution Explorer . Dobbeltklikk skjemaet for å bytte til koden grensesnittet. Omfatte følgende import: Importen SystemImports System.IOImports System.SecurityImports System.Security.Cryptography
3

opprette en nøkkel via kode : Private Function CreateKey ( ByVal strPassword As String ) As Byte () Dim bytKey Som Byte ( ) Dim bytSalt Som Byte ( ) = System.Text.Encoding.ASCII.GetBytes ( "salt" ) Dim pdb som ny PasswordDeriveBytes ( strPassword , bytSalt ) bytKey = pdb.GetBytes ( 32 ) Return bytKeyEnd Funksjon

4

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

Krypter filen gjennom å erklære din CryptoServiceProvider og sette opp CryptoStream : Dim csCryptoStream som CryptoStreamDim cspRijndael som ny System.Security.Cryptography.RijndaelManagedcsCryptoStream = Ny CryptoStream ( fsOutput , _cspRijndael.CreateEncryptor ( bytKey , bytIV ) , _CryptoStreamMode.Write )