Hallo zusammen,
ich kann seit Tagen folgendes Problem nicht eruieren. Wenn ich mittels AES eine Datei verschlüssele funktioniert es. Möchte ich diese dann entschlüsseln, funktioniert es auch nur kann ich die datei dann nicht öffnen, da viele Zeichen nicht richtig dargestellt werden.
Hier ein kleines Beipiel:
Anfang der Datei: Original
Nach Ver- und Entschlüsselung:
Hier der relevante Teil meines Codes
Vielen Dank im Voraus für Eure Unterstützung
ich kann seit Tagen folgendes Problem nicht eruieren. Wenn ich mittels AES eine Datei verschlüssele funktioniert es. Möchte ich diese dann entschlüsseln, funktioniert es auch nur kann ich die datei dann nicht öffnen, da viele Zeichen nicht richtig dargestellt werden.
Hier ein kleines Beipiel:
Anfang der Datei: Original
Nach Ver- und Entschlüsselung:
Hier der relevante Teil meines Codes
VB.NET-Quellcode
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim ItemCount As Integer
- Try
- For Each Item In ListBox41.Items
- Dim NewFile As String
- ItemCount += 1
- NewFile = ListBox41.Items.Item(ItemCount - 1).ToString
- Dim s As String = File.ReadAllText(NewFile)
- Dim hexNumbers As String
- Dim Ran As String
- Dim Pass As String
- Dim PassPor As String
- 'Ran = Push(True)
- Ran = PushTest(True)
- PassPor = HowOftRan(True, Ran)
- Pass = HowOftRanPass(True, Ran)
- hexNumbers = EncodePoriaXo(True, s, Pass, PassPor)
- Dim strNew As New System.IO.StreamWriter(Path.ChangeExtension(ListBox41.Items.Item(ItemCount - 1).ToString, "sktl"), True)
- strNew.Write(hexNumbers)
- strNew.Close()
- Kill(ListBox41.Items.Item(ItemCount - 1).ToString)
- MsgBox("Ordner wurde verschlüsselt!")
- Next
- Catch ex As Exception
- MsgBox("Bitte leeren Sie die Liste und ziehen den zu verschlüsselnden Ordner erneut!")
- End Try
- End Sub
- Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
- Dim ItemCount As Integer
- Try
- For Each Item In ListBox41.Items
- Dim NewFile As String
- ItemCount += 1
- NewFile = ListBox41.Items.Item(ItemCount - 1).ToString
- Dim Decode As String
- Dim so As String = File.ReadAllText(NewFile)
- Dim Ran As String
- Dim Pass As String
- Dim PassPor As String
- 'Ran = Push(True)
- Ran = PushTest(True)
- PassPor = HowOftRan(True, Ran)
- Pass = HowOftRanPass(True, Ran)
- Decode = DecodePoriaXo(True, so, Pass, PassPor)
- Dim strNew As New System.IO.StreamWriter(Path.ChangeExtension(ListBox41.Items.Item(ItemCount - 1).ToString, "png"), True)
- strNew.Write(Decode)
- strNew.Close()
- Kill(ListBox41.Items.Item(ItemCount - 1).ToString)
- MsgBox("Ordner wurde entschlüsselt!")
- Next
- Catch ex As Exception
- MsgBox("Bitte leeren Sie die Liste und ziehen den zu entschlüsselnden Ordner erneut!")
- End Try
- End Sub
Vielen Dank im Voraus für Eure Unterstützung
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „wasserbaum“ ()