Rijndael krypteringsalgoritm skrivet i C. Det är utformat för att ersätta den åldrande DES -algoritmen och det är ett block chiffer . Den krypterar 128 - bitars block . Algoritmen använder en nyckel och en initieringsvektor . Nyckeln är i grunden det lösenord som används för att kryptera data . Den IV används för att kryptera den första delen av uppgifterna . Du måste skapa både nyckel och IV för att kryptera en fil i VB6 . Saker du behöver
VB6
Visa fler instruktioner
1
Klicka på "Start ", " Alla program " och " Visual Basic " för att öppna Visual Basic . Klicka på " Ny " och " Project " för att skapa ett nytt projekt . Ange ett namn för projektet . Ange en plats för det .
2
Klicka " Form1.vb " på Solution Explorer . Dubbelklicka på formuläret för att växla till koden gränssnittet . Inkludera följande import : Import SystemImports System.IOImports System.SecurityImports System.Security.Cryptography
3
Skapa en nyckel via kod : Private Function CreateKey ( ByVal strPassword As String ) Som byte ( ) Dim bytKey Som byte ( ) Dim bytSalt Som byte ( ) = System.Text.Encoding.ASCII.GetBytes ( " salt " ) Dim PDB enligt New PasswordDeriveBytes ( strPassword , bytSalt ) bytKey = pdb.GetBytes ( 32 ) Avkastning bytKeyEnd Function
4
Skapa IV via funktionen : Private Function CreateIV ( ByVal strPassword As String ) Som byte ( ) Dim bytIV Som byte ( ) Dim bytSalt Som byte ( ) = System.Text.Encoding.ASCII.GetBytes ( " salt " ) Dim PDB enligt New PasswordDeriveBytes ( strPassword , bytSalt ) bytIV = pdb.GetBytes ( 16 ) Avkastning bytIVEnd Funktion
5
Kryptera din fil genom att förklara din CryptoServiceProvider och inrätta CryptoStream : Dim csCryptoStream som CryptoStreamDim cspRijndael som New System.Security.Cryptography.RijndaelManagedcsCryptoStream = Ny CryptoStream ( fsOutput , _cspRijndael.CreateEncryptor ( bytKey , bytIV ) , _CryptoStreamMode.Write ) katalog
