Rijndael encryptie algoritme is geschreven in C. Het is ontworpen om de vergrijzing DES -algoritme te vervangen en het is een block cipher . Het versleutelt 128 - bit blokken . Het algoritme maakt gebruik van een sleutel en een initialisatie vector . Het belangrijkste is eigenlijk het wachtwoord gebruikt om de gegevens te versleutelen . De IV wordt gebruikt om het eerste deel van de gegevens te coderen . Moet u zowel sleutel en IV maken om een bestand in VB6 versleutelen . Wat je nodig hebt VB6 Toon Meer Aanwijzingen 1 Klik op " Start", " Alle programma's " en " Visual Basic " naar Visual Basic openen . Klik op "Nieuw " en " Project " om een nieuw project aan te maken . Voer een naam voor het project . Geef een locatie voor het. Kopen van 2 Klik op " Form1.vb " op de Solution Explorer . Dubbelklik op het formulier over te schakelen naar de code-interface . Onder meer de volgende invoer : invoer SystemImports System.IOImports System.SecurityImports System.Security.Cryptography 3 Maak een sleutel via code : Private Function CreateKey ( ByVal strWachtwoord als Koord) als Byte ( ) Dim bytKey Zoals Byte ( ) Dim bytSalt Zoals Byte ( ) = System.Text.Encoding.ASCII.GetBytes ( " zout " ) Dim pdb als Nieuwe PasswordDeriveBytes ( strWachtwoord , bytSalt ) bytKey = pdb.GetBytes ( 32 ) Terug bytKeyEnd Functie < br Goedkope 4 > Maak IV via de functie : Private Function CreateIV ( ByVal strWachtwoord als Koord) als Byte ( ) Dim bytIV Zoals Byte ( ) Dim bytSalt Zoals Byte ( ) = System.Text.Encoding.ASCII.GetBytes ( " zout " ) Dim pdb als Nieuwe PasswordDeriveBytes ( strWachtwoord , bytSalt ) bytIV = pdb.GetBytes ( 16 ) Terug bytIVEnd Functie 5 Versleutel uw bestand via verklarend uw CryptoServiceProvider en het opzetten CryptoStream : Dim csCryptoStream zoals CryptoStreamDim cspRijndael als Nieuw System.Security.Cryptography.RijndaelManagedcsCryptoStream = Nieuwe CryptoStream ( fsOutput , _cspRijndael.CreateEncryptor ( bytKey , bytIV ) , _CryptoStreamMode.Write ) op Twitter
|