Hi liebe VB Freunde,
ich brauche dringend Hilfe.
Ich hab ein Programm was sich eine Textdatei einliest ( 9014 Zeilen , jede Zeile beinhaltet um die 20 Werte mit ";" Trennung ) und dann per Vernam Verschlüsselung verschlüsselt.
Die Datei wir in eine Listbox geladen. Dann wir jede Zeile in eine String gepackt und mit .Split(";") getrennt. Jeder Wert wird verschlüsselt und dann wieder in einen String gepackt der dann in eine andere Listbox mit ";" Trennung geschrieben wird.
Nun speicher ich die verschlüsselte Lsitbox per Streamwriter als TXT Datei ab. Verschlüsselte TXT Datei hat auch 9014 Zeilen.
Lade ich nun diese per Vernam verschlüsselte TXT Datei zeilenweise wieder in eine Listbox hat diese auf einmal über 11.000 Zeilen und die Werte sind alle verrutscht.
Hier der wesentliche Code:
Hat vieleicht jemand ne Idee was hier falsch ist?
ich brauche dringend Hilfe.
Ich hab ein Programm was sich eine Textdatei einliest ( 9014 Zeilen , jede Zeile beinhaltet um die 20 Werte mit ";" Trennung ) und dann per Vernam Verschlüsselung verschlüsselt.
Die Datei wir in eine Listbox geladen. Dann wir jede Zeile in eine String gepackt und mit .Split(";") getrennt. Jeder Wert wird verschlüsselt und dann wieder in einen String gepackt der dann in eine andere Listbox mit ";" Trennung geschrieben wird.
Nun speicher ich die verschlüsselte Lsitbox per Streamwriter als TXT Datei ab. Verschlüsselte TXT Datei hat auch 9014 Zeilen.
Lade ich nun diese per Vernam verschlüsselte TXT Datei zeilenweise wieder in eine Listbox hat diese auf einmal über 11.000 Zeilen und die Werte sind alle verrutscht.
Hier der wesentliche Code:
VB.NET-Quellcode
- Dim sPassword As String = "PASS"
- Public Function VernamCode(ByVal sOriginal As String, ByVal sPassword As String) As String ' Verschlüsselung
- Dim i As Long
- Dim aktPos As Long
- Dim bakt As Byte
- Dim bcode As Byte
- VernamCode = ""
- aktPos = 1
- For i = Len(sPassword) + 1 To Len(sOriginal)
- sPassword = sPassword & Mid(sPassword, aktPos, 1)
- aktPos = aktPos + 1
- If aktPos > Len(sPassword) Then aktPos = 1
- Next i
- For i = 1 To Len(sOriginal)
- bakt = Asc(Mid(sOriginal, i, 1))
- bcode = Asc(Mid(sPassword, i, 1))
- VernamCode = VernamCode & Chr(bakt Xor bcode)
- Next i
- End Function
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'So speicher ich die verschlüsselte Listbox
- Dim sw As New IO.StreamWriter("C:\Users\Christopher\Pictures\Test.txt", False)
- For i = 0 To ListBox2.Items.Count - 1
- sw.WriteLine(ListBox2.Items.Item(i).ToString)
- Next
- sw.Close()
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ' Und so lade ich die verschlüsselte Datei wieder
- Dim loader As New IO.StreamReader("C:\Users\Christopher\Pictures\Test.txt")
- ' Dim line As String
- 'line = loader.ReadLine()
- Do While loader.Peek() <> -1
- ListBox2.Items.Add(loader.ReadLine())
- Loop
- loader.Close()
- End Sub
Hat vieleicht jemand ne Idee was hier falsch ist?