| |
VB.NET - Ein- und UmsteigerDatei verschlüsseln und entschlüsseln (DES) | | | Autor: Dexter7811 | Datum: 27.01.15 16:19 |
| Hallo zusammen,
ich habe ein kleines Testprogramm geschrieben, dass einen kurzen Text in einer Datei
verschlüsselt speichern soll. Das Problem ist, dass sich die Datei nur solange das
Programm läuft öffnen und entschlüsseln lässt. Sobald das Programm neu gestartet wird,
lässt sich die Datei zwar öffnen aber nicht entschlüsseln.
Hier mal die Source:
Imports System.IO
Imports System.Text
Imports System.Security.Cryptography
Module Module1
Public MyDESCryptoServiceProvider As New DESCryptoServiceProvider
Sub Main()
Const Filename As String = "EncryptedFile.txt"
Dim TextToEncrypt As String = "Encrypt me!"
Dim DecryptedText As String = String.Empty
' Prüfen ob die Datei im Anwendungsverzeichnis bereits existiert
If Not File.Exists(Filename) Then
' Verschlüsseln
EncryptTextToFile(TextToEncrypt, Filename)
' Verschlüsselt ausgeben
Console.WriteLine("Verschlüsselt: " & File.ReadAllText(Filename))
' Entschlüsseln <- hier funktioniert es
DecryptedText = DecryptTextFromFile(Filename)
' Entschlüsselt ausgeben
Console.WriteLine("Entschlüsselt: " & DecryptedText)
Else
Try
' Entschlüsseln <- hier funktioniert es nicht mehr
DecryptedText = DecryptTextFromFile(Filename)
' Entschlüsselt ausgeben
Console.WriteLine("Entschlüsselt: " & DecryptedText)
Catch ex As Exception
' Error: Ungültige Daten ???
Console.WriteLine("Error: " & ex.Message)
End Try
End If
Console.ReadLine()
End Sub
' Funktion zur Umwandlung von einem String in ein Byte-Array
Private Function ConvertStringToByteArray(s As String) As Byte()
Dim MyUnicodeEncoding As New UnicodeEncoding
Return MyUnicodeEncoding.GetBytes(s)
End Function
' Verschlüsseln
Private Sub EncryptTextToFile(Text As String, fName As String)
' Text in Byte-Array umwandeln
Dim MyByteArray() As Byte = ConvertStringToByteArray(Text)
' Ein DES-Encryptor-Objekt auf einer MyDESCryptoServiceProvider-Instanz
' erzeugen
Dim EncryptInDES As ICryptoTransform = _
MyDESCryptoServiceProvider.CreateEncryptor()
' FileStream, welcher die verschlüsselte Datei schreiben soll, wird
' erzeugt
Dim MyFileStream As New FileStream(fName, FileMode.Create, _
FileAccess.Write)
' FileStream mittels CryptoStream verschlüsseln
Dim MyCryptoStream As New CryptoStream(MyFileStream, EncryptInDES, _
CryptoStreamMode.Write)
' Byte-Array in den CryptoStream schreiben
MyCryptoStream.Write(MyByteArray, 0, MyByteArray.Length)
'Schließen
MyCryptoStream.Close()
End Sub
' Entschlüsseln
Private Function DecryptTextFromFile(fName As String) As String
' Ein DES-Decryptor-Objekt auf einer MyDESCryptoServiceProvider-Instanz
' erzeugen
Dim DecryptFromDES As ICryptoTransform = _
MyDESCryptoServiceProvider.CreateDecryptor()
'Filestream erzeugen, um die verschlüsselte Datei einzulesen
Dim MyFileStream As New FileStream(fName, FileMode.Open, _
FileAccess.Read)
'CryptoStream erzeugen, um die verschlüsselten Bytes zu entschlüsseln
Dim MyCryptoStream As New CryptoStream(MyFileStream, DecryptFromDES, _
CryptoStreamMode.Read)
'Inhalt auslesen und entschlüsseln
Dim MyStreamReader As New StreamReader(MyCryptoStream, New _
UnicodeEncoding())
'Inhalt in String speichern
Dim EnryptedText As String = MyStreamReader.ReadToEnd()
'Schließen
MyCryptoStream.Close()
'Inhalt zurückgeben
Return EnryptedText
End Function
End Module Wie kann man den Quellcode modifizieren, dass die Entschlüsselung auch nach Programmstart funktioniert? | |
Re: Datei verschlüsseln und entschlüsseln (DES) | | | Autor: Dexter7811 | Datum: 27.01.15 17:53 |
| Habs folgendermaßen umgeändert:
Imports System.IO
Imports System.Text
Imports System.Security.Cryptography
Module Module1
Sub Main()
' Ein neues DES-Wrapper-Objekt
Dim MyDESCryptoServiceProvider As New DESCryptoServiceProvider()
Const Filename As String = "EncryptedFile.txt"
Dim TextToEncrypt As String = "Encrypt me!"
Dim DecryptedText As String = String.Empty
' Prüfen ob die Datei im Anwendungsverzeichnis bereits existiert
If Not File.Exists(Filename) Then
' Verschlüsseln
EncryptTextToFile(TextToEncrypt, _
Filename, _
MyDESCryptoServiceProvider.Key(), _
MyDESCryptoServiceProvider.IV())
' Verschlüsselt ausgeben
Console.WriteLine("Verschlüsselt: " & File.ReadAllText(Filename))
' Entschlüsseln <- hier funktioniert es
DecryptedText = DecryptTextFromFile(Filename, _
MyDESCryptoServiceProvider.Key( _
), _
MyDESCryptoServiceProvider.IV())
' Entschlüsselt ausgeben
Console.WriteLine("Entschlüsselt: " & DecryptedText)
Else
Try
' Entschlüsseln <- hier funktioniert es nicht mehr
DecryptedText = DecryptTextFromFile(Filename, _
MyDESCryptoServiceProvider._
Key(), _
MyDESCryptoServiceProvider._
IV())
' Entschlüsselt ausgeben
Console.WriteLine("Entschlüsselt: " & DecryptedText)
Catch ex As Exception
' Error: Ungültige Daten ???
Console.WriteLine("Error: " & ex.Message)
End Try
End If
Console.ReadLine()
End Sub
' Funktion zur Umwandlung von einem String in ein Byte-Array
Private Function ConvertStringToByteArray(s As String) As Byte()
Dim MyUnicodeEncoding As New UnicodeEncoding
Return MyUnicodeEncoding.GetBytes(s)
End Function
' Verschlüsseln
Private Sub EncryptTextToFile(Text As String, fName As String, myDES_Key() _
As Byte, myDES_IV() As Byte)
'Text in Byte-Array umwandeln
Dim MyByteArray() As Byte = ConvertStringToByteArray(Text)
' FileStream, welcher die verschlüsselte Datei schreiben soll, wird
' erzeugt
Dim MyFileStream As New FileStream(fName, FileMode.Create, _
FileAccess.Write)
' Neue Wrapper-Instanz
Dim NewDES As New DESCryptoServiceProvider()
' Neuer Encryptor
Dim CryptoStreamEncryptor As New CryptoStream(MyFileStream, _
NewDES.CreateEncryptor( _
myDES_Key, myDES_IV), _
CryptoStreamMode.Write)
' Byte-Array in den CryptoStream schreiben
CryptoStreamEncryptor.Write(MyByteArray, 0, MyByteArray.Length)
' Schließen
CryptoStreamEncryptor.Close()
End Sub
' Entschlüsseln
Private Function DecryptTextFromFile(fName As String, myDES_Key() As Byte, _
myDES_IV() As Byte) As String
'Filestream erzeugen, um die verschlüsselte Datei einzulesen
Dim MyFileStream As New FileStream(fName, FileMode.Open, _
FileAccess.Read)
' Neue Wrapper-Instanz
Dim NewDES As New DESCryptoServiceProvider()
'CryptoStream erzeugen, um die verschlüsselten Bytes zu entschlüsseln
Dim CryptoStreamDecryptor As New CryptoStream(MyFileStream, _
NewDES.CreateDecryptor( _
myDES_Key, myDES_IV), _
CryptoStreamMode.Read)
Dim MyStreamReader As New StreamReader(CryptoStreamDecryptor, New _
UnicodeEncoding())
' Inhalt in String speichern
Dim EnryptedText As String = MyStreamReader.ReadToEnd()
' Schließen
CryptoStreamDecryptor.Close()
' Inhalt zurückgeben
Return EnryptedText
End Function
End Module Weiß nicht ob das so ganz korrekt ist. Doch leider ist das Ergebnis dasselbe.
Mir geht es ja zunächst einmal nur darum,
Text verschlüsselt in einer Datei zu speichern. Nicht den Inhalt einer Datei
auszulesen, zu verschlüsseln und anschließend verschlüsselt in einer anderen
Datei zu speichern. Doch sicherlich wäre das dann die nächste Steigerung meiner
Übung. Doch jetzt will ich erst das obige Problem lösen.
| |
Re: Datei verschlüsseln und entschlüsseln (DES) | | | Autor: Manfred X | Datum: 27.01.15 18:03 |
| Bei Dir liegt ein grundlegendes Mißverständnis vor.
[I]Beim Entschlüsseln der Datei müssen derselbe Schlüssel (Key) und derselbe Initialisierungsvektor (IV) verwendet werden wie beim Verschlüsseln.[/I]
Du benötigst ein Passwort und einen I-Vektor, Beides nmußt Du jeweils angeben.
So wie Du das machst, wird automatisch ein Passwort/I-Vektor erstellt und beim
Beenden des Programms ist dieses Passwort/der I-Vektor einfach futsch.
Du kannst beim nächsten Start die Datei nicht mehr entschlüsseln.
(Es wird wieder eine Instanz der Cryptoklasse erstellt, die ein neues, zufälliges Passwort
besitzt.)
Deine Vorgehensweise funktioniert nur bei "interner" Verschlüsselung während eines
Programm-laufs, aber nicht beim Speichern von Daten in externen Quellen.
| |
Re: Datei verschlüsseln und entschlüsseln (DES) | | | Autor: Dexter7811 | Datum: 27.01.15 18:07 |
| Ah okay, jetzt hat es bei mir 'Klick' gemacht. Aber wie soll ich dabei vorgehen? Wie und wo kann ich den Schlüssel und den Initialisierungsvektor speichern um diese beim nächsten Programmstart zu verwenden bzw. bei der Entschlüsselung anzugeben? | |
Re: Datei verschlüsseln und entschlüsseln (DES) | | | Autor: Dexter7811 | Datum: 27.01.15 18:44 |
| Wow, okay cool. Habe den Code von deinem Link mal getestet. Echt super. Genau das habe ich gesucht.
Du hast mir schon wieder echt toll geholfen. Vielen vielen Dank dafür. Echt spitze.
Würde es beispielsweise Sinn machen, das gehashte Password, welches für die Ver- und Entschlüsselung gebraucht wird, irgendwo in der Registry zu speichern? Oder wie könnte man das sicher irgendwo ablegen?
Beitrag wurde zuletzt am 27.01.15 um 19:01:50 editiert. | |
| 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 |
|
|
sevISDN 1.0
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats sevOutBar 4.0
Vertikale Menüleisten á la Outlook
Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Weitere Infos
|