| |
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? | |
| 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 |
|
|
sevGraph (VB/VBA)
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 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
|
|