vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Re: Verständnisproblem bei Verschlüsselung 
Autor: napo
Datum: 20.09.04 14:58

Hallo,
ausprobiert habe ich es mit RC2 und Rijndael. hier die Funktion zum Verschlüsseln der Datei:
crpSym = SymmetricAlgorithm.Create("Rijndael")

Dim fstr As New filestream("ReadMe.htm",system.IO.FileMode.Open)
Dim abytInput(CInt(fstr.Length - 1)) As Byte
fstr.Read(abytInput, 0, CInt(fstr.Length))
fstr.Close

crpsym.IV=System.Text.Encoding.ASCII.GetBytes("1234567891111111")
crpsym.Key=System.Text.Encoding.ASCII.GetBytes(Me.textBox1.Text)



Dim ftemp As New FileStream("temp.dat", FileMode.Create, FileAccess.Write)
ftemp.SetLength(0)

Dim csEncrypted As New CryptoStream(ftemp, crpSym.CreateEncryptor(), _
CryptoStreamMode.Write)
csEncrypted.Write(abytInput, 0, abytInput.Length)
csEncrypted.FlushFinalBlock()
csEncrypted.Close

und hier das Ganze zum decodieren:

crpSym = SymmetricAlgorithm.Create("Rijndael")
Dim fstrd As New filestream("temp.dat",filemode.Open)
Dim ftempd As New filestream("temp1.dat",filemode.Create)


crpsym.IV=System.Text.Encoding.ASCII.GetBytes("1234567892222222")
crpsym.Key=System.Text.Encoding.ASCII.GetBytes(me.textBox1.Text)

Dim csDecrypted As New CryptoStream(fstrd, crpSym.CreateDecryptor(), _
CryptoStreamMode.Read)

Dim swWriter As New StreamWriter(ftempd)
Dim srReader As New StreamReader(csDecrypted)

swWriter.Write(srReader.ReadToEnd)
swwriter.Close
csDecrypted.Close


temp.dat ist die verschlüsselte Datei und temp1.dat die entschlüsselte Datei. Der Vektor ist unterschiedlich und trotzdem wird die Datei sauber decodiert. Vorraussetzung ist natürlich das gleiche Passwort (Key).
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Verständnisproblem bei Verschlüsselung758napo20.09.04 14:42
Re: Verständnisproblem bei Verschlüsselung423ModeratorFZelle20.09.04 14:50
Re: Verständnisproblem bei Verschlüsselung427napo20.09.04 14:58
Re: Verständnisproblem bei Verschlüsselung361ModeratorFZelle20.09.04 16:27
Re: Verständnisproblem bei Verschlüsselung443napo20.09.04 16:31
Re: Verständnisproblem bei Verschlüsselung421ModeratorFZelle20.09.04 16:44
Re: Verständnisproblem bei Verschlüsselung439ModeratorDaveS20.09.04 23:09
Re: Verständnisproblem bei Verschlüsselung427napo21.09.04 08:16

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel