Wie Rijndael in VB6 verwenden

Mitglieder-Login

InformationenNetwork Security

Was sind die Nachteile von Electron… ? Finanzinstitute und viele andere Unternehmen haben sich erfolgreich umgestellt von Papier-basierte
Wie man einen Server auf einem Syma… Die Symantec Endpoint Anwendung ist eine Suite von Software, Firewall, Antivirus -und Backup- Schutz
Best Practices für die Firewall-Re… Netzwerk Sicherheit sollte eine hohe Priorität für Verbraucher und Unternehmen , die häufig auf das
Netzwerk Hijacking Netzwerk Hijacking beschreibt eine Reihe von Aktivitäten eines unbefugten Zugriffs auf jemand ander

Networking

HOME

* Computer Wissen >> Networking >> Network Security >> .

Wie Rijndael in VB6 verwenden

Rijndael Encryption Algorithm ist in C geschrieben Es wurde entwickelt , um die Alterung DES-Algorithmus ersetzen und es ist ein Block-Chiffre . Es verschlüsselt 128- Bit-Blöcken . Der Algorithmus verwendet einen Schlüssel und einen Initialisierungsvektor . Der Schlüssel ist im Grunde das Passwort verwendet, um die Daten zu verschlüsseln. Der IV wird verwendet, um den ersten Teil der Daten zu verschlüsseln. Sie müssen sowohl die Schlüssel und IV zu erstellen , um eine Datei in VB6 verschlüsseln. Things You
VB6
brauchen anzeigen Weitere Anweisungen
1

Klicken Sie auf " Start", " Alle Programme " und " Visual Basic " auf Visual Basic öffnen. Klicken Sie auf " Neu" und " Project" ein neues Projekt zu erstellen. Geben Sie einen Namen für das Projekt. Geben Sie einen Speicherort für sie.
2

Klicken Sie auf " Form1.vb " auf dem Solution Explorer . Doppelklicken Sie auf das Formular, um den Code -Schnittstelle wechseln. Fügen Sie die folgenden Importe: Importe SystemImports System.IOImports System.SecurityImports System.Security.Cryptography
3

Erstellen Sie einen Schlüssel via Code : Private Function CreateKey (ByVal strPassword As String) As Byte () Dim bytKey As Byte () Dim bytSalt As Byte () = System.Text.Encoding.ASCII.GetBytes ( " Salz " ) Dim As New pdb PasswordDeriveBytes ( strPassword , bytSalt ) bytKey = pdb.GetBytes (32) zurück bytKeyEnd Funktion
4

erstellen IV über Funktion : private Function CreateIV (ByVal strPassword As String) As Byte () Dim bytIV As Byte () Dim bytSalt As Byte () = System.Text.Encoding.ASCII.GetBytes ( " Salz " ) Dim As New pdb PasswordDeriveBytes ( strPassword , bytSalt ) bytIV = pdb.GetBytes (16) zurück bytIVEnd Funktion
5

Verschlüsseln Sie Ihre Datei über die Erklärung Ihrer CryptoServiceProvider und Einrichten CryptoStream : Dim csCryptoStream wie CryptoStreamDim cspRijndael As New System.Security.Cryptography.RijndaelManagedcsCryptoStream = New CryptoStream ( fsOutput , _cspRijndael.CreateEncryptor ( bytKey , bytIV ) , _CryptoStreamMode.Write )