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? |