Vernam Verschlüsselung speichern

AbsolutCF · 3. Oktober 2013, 19:07

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:

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?

TheVBTutorialsVB · 3. Oktober 2013, 19:11

Pack erst mal den ganzen VB6-Müll raus.

AbsolutCF · 3. Oktober 2013, 19:14

Danke für deine Antwort. Kannst du mir sagen was genau du damit meinst

BlackNetworkBit · 3. Oktober 2013, 19:17

Eigenschaften -> Verweise -> Microsoft.VisualBasic
raus nehmen und dann siehst du was VB6 Müll ist

TheVBTutorialsVB · 3. Oktober 2013, 19:25

Schau dir mal diesen Thread an: [VB 2010] Böses aus VB6/VB2003 - und die richtigen VB.NET-Alternativen
Böse Funktionen wären z.B Len und wenn ich mich nicht irre Mid.

BlackNetworkBit · 3. Oktober 2013, 19:27

CHR und ASC eigentlich auch

AbsolutCF · 3. Oktober 2013, 19:33

Danke für eure super Hilfe bis jetzt

Das mit Len(..) hab ich jetzt in s.password.lenght geändert.

Aber wie muss ich das beim Verschlüsselungscode mit Mid,Asc und Chr ändern?

BlackNetworkBit · 3. Oktober 2013, 19:36

Bei asc ist es :
Convert.ToInt32()
Bei chr ist es :
System.Convert.ToChar()
Bei mid must du dir mal String.Substring() ankucken

TheVBTutorialsVB · 3. Oktober 2013, 19:37

Bei Mid String.SubString().

//Edit 1:BlackNetworkBit war schneller

//Edit 2: Benutze bei StreamWriter und StreamReader einen Usingblock:

VB.NET-Quellcode

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

AbsolutCF · 3. Oktober 2013, 19:41

Danke.

Hab den Verschlüsselungscode nun so abgeändert:

VB.NET-Quellcode

Public Function VernamCode(ByVal sOriginal As String, ByVal sPassword As String) As String
Dim i As Long
Dim aktPos As Long
Dim bakt As Byte
Dim bcode As Byte
VernamCode = ""
aktPos = 1
For i = sPassword.Length + 1 To sOriginal.Length
sPassword = sPassword & Mid(sPassword, aktPos, 1)
aktPos = aktPos + 1
If aktPos > sPassword.Length Then aktPos = 1
Next i
For i = 1 To sOriginal.Length
bakt = Convert.ToInt32((Mid(sOriginal, i, 1)))
bcode = Convert.ToInt32((Mid(sPassword, i, 1)))
VernamCode = VernamCode & Convert.ToChar((bakt Xor bcode))
Next i
End Function

Es wird aber immer noch Mid unterstrichen. in der MSDN sthet es aber auch nicht anders drin. Was hab ich falsch gemacht?

BlackNetworkBit · 3. Oktober 2013, 19:45

wir haben doch dir schon geschriebn das du String.Substring() verwenden sollst.
Mid existiert nun nicht mehr

TheVBTutorialsVB · 3. Oktober 2013, 19:46

Du musst Mid durch SubString ersetzten.
msdn.microsoft.com/de-de/library/vstudio/aka44szs.aspx

Beispiel:

VB.NET-Quellcode

Dim s As String = "Hallo Dieter!"
MessageBox.Show(s.Substring(0, 5))

Das ergäbe "Hallo".
Aber beachte das der StartIndex bei 0 beginnt.

AbsolutCF · 3. Oktober 2013, 19:49

Sorry hatte ich nicht gesehen.

Hab es jetzt so und nun kommt der Fehler :Die Eingabezeichenfolge hat das falsche Format.

VB.NET-Quellcode

Public Function VernamCode(ByVal sOriginal As String, ByVal sPassword As String) As String
Dim i As Long
Dim aktPos As Long
Dim bakt As Byte
Dim bcode As Byte
VernamCode = ""
aktPos = 1
For i = sPassword.Length + 1 To sOriginal.Length
sPassword = sPassword & sPassword.Substring(aktPos, 1)
aktPos = aktPos + 1
If aktPos > sPassword.Length Then aktPos = 1
Next i
For i = 1 To sOriginal.Length
bakt = Convert.ToInt32((sOriginal.Substring(i, 1))) ' HIER KOMMT FEHLER Die Eingabezeichenfolge hat das falsche Format.
bcode = Convert.ToInt32((sPassword.Substring(i, 1)))
VernamCode = VernamCode & Convert.ToChar((bakt Xor bcode))
Next i
End Function

TheVBTutorialsVB · 3. Oktober 2013, 19:52

Was mir jetzt noch so auffällt wäre, dass du deiner Funktion einen Wert zuweist, aber sie keinen Wert zurückgibt.

BlackNetworkBit · 3. Oktober 2013, 19:52

VB.NET-Quellcode

CByte(Convert.ToInt32((sOriginal.Substring(i, 1))))

probiere das mal

@TheVBTutorialsVB

Was mir jetzt noch so auffällt wäre, dass du deiner Funktion einen Wert zuweist, aber sie keinen Wert zurückgibt.

ist auch erst mal egal hat er sehr wahrscheinlich nur zu testzwecken raus genommen

TheVBTutorialsVB · 3. Oktober 2013, 19:56

Ich hab dem Programm mal Option Strict On gegeben und dann kamen erstmal viele Fehler. Hier die Funktion neu geschrieben:

VB.NET-Quellcode

Public Function VernamCode(ByVal sOriginal As String, ByVal sPassword As String) As String
Dim aktPos As Long
Dim bakt As Byte
Dim bcode As Byte
aktPos = 1
Dim code As String = ""
For i As Integer = sPassword.Length + 1 To sOriginal.Length
sPassword = sPassword & sPassword.Substring(CInt(aktPos), 1)
aktPos = aktPos + 1
If aktPos > sPassword.Length Then aktPos = 1
Next
For i As Integer = 1 To sOriginal.Length
bakt = CByte(Convert.ToInt32((sOriginal.Substring(i, 1))))
bcode = CByte(Convert.ToInt32((sPassword.Substring(i, 1))))
code &= Convert.ToChar((bakt Xor bcode))
Next
Return code
End Function

BlackNetworkBit · 3. Oktober 2013, 19:57

@TheVBTutorialsVB
Ich glaube du hast den Sinn nicht verstanden warum wir im Forum helfen

wir sind eigentlich nicht hier um Copy&paste Code raus zu geben

[EDIT]
so damit der POST jetzt nicht zu OFF TOPIC ist dachte ich mir ich spiel jetzt auch einen auf Copy&Past geber

VB.NET-Quellcode

Public Function VernamCode(ByVal sOriginal As String, ByVal sPassword As String) As String
Dim aktPos As Long = 1
VernamCode = String.Empty
For i = sPassword.Length + 1 To sOriginal.Length
sPassword &= sPassword.Substring(CInt(aktPos), 1)
aktPos += 1
If aktPos > sPassword.Length Then aktPos = 1
Next
For i = 1 To sOriginal.Length
VernamCode &= Convert.ToChar((CByte(Convert.ToInt32((sOriginal.Substring(CInt(i), 1)))) Xor CByte(Convert.ToInt32((sPassword.Substring(CInt(i), 1))))))
Next
End Function

TheVBTutorialsVB · 3. Oktober 2013, 20:00

Hier ist die Meinung sehr geteilt. Ich bin der Meinung, dass wenn man etwas lernen will, man sehr gut aus C&P lernen kann. Wenn er sich den Code anguckt und ihn verstehen will, kann er das oder er lässt es bleiben. Das wäre aber nicht mein Problem, wenn man nichts lernen will hat man Pech. Außerdem hat er den Großteil selbst verbessert, geschrieben hat er ja sogar alles.

AbsolutCF · 3. Oktober 2013, 20:05

Erstmal vielen Dank für eure Geduld mit mir.

Leider kommt immer npch der gleiche fehler

Ich poste mal das Programm wie ich es jetzt habe. Evtl hab ich ja noch ein paar Sünden begangen.

VB.NET-Quellcode

Public Class Form1
Dim sPassword As String = "PASS"
Public Function VernamCode(ByVal sOriginal As String, ByVal sPassword As String) As String
Dim aktPos As Long
Dim bakt As Byte
Dim bcode As Byte
aktPos = 1
Dim code As String = ""
For i As Integer = sPassword.Length + 1 To sOriginal.Length
sPassword = sPassword & sPassword.Substring(CInt(aktPos), 1)
aktPos = aktPos + 1
If aktPos > sPassword.Length Then aktPos = 1
Next
For i As Integer = 1 To sOriginal.Length
bakt = CByte(Convert.ToInt32((sOriginal.Substring(i, 1))))
bcode = CByte(Convert.ToInt32((sPassword.Substring(i, 1))))
code &= Convert.ToChar((bakt Xor bcode))
Next
Return code
End Function
'Public Function VernamCode(ByVal sOriginal As String, ByVal sPassword As String) As String
' Dim i As Long
' Dim aktPos As Long
' Dim bakt As Byte
' Dim bcode As Byte
' VernamCode = ""
' aktPos = 1
' For i = sPassword.Length + 1 To sOriginal.Length
' sPassword = sPassword & sPassword.Substring(aktPos, 1)
' aktPos = aktPos + 1
' If aktPos > sPassword.Length Then aktPos = 1
' Next i
' For i = 1 To sOriginal.Length
' bakt = CByte(Convert.ToInt32((sOriginal.Substring(i, 1))))
' bcode = CByte(Convert.ToInt32((sPassword.Substring(i, 1))))
' VernamCode = VernamCode & Convert.ToChar((bakt Xor bcode))
' Next i
'End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BGW_MONAT.RunWorkerAsync()
End Sub
Private Sub BGW_MONAT_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BGW_MONAT.DoWork
Dim pfad As String = "C:\MONAT.txt"
Dim Zeilenzahl As Integer = IO.File.ReadAllLines(pfad).Count
Dim lines() As String = IO.File.ReadAllLines(pfad)
For i = 0 To Zeilenzahl - 1
Threading.Thread.Sleep(0)
BGW_MONAT.ReportProgress(i, lines(i))
Next
End Sub
Private Sub BGW_MONAT_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BGW_MONAT.ProgressChanged
Dim daten As String = e.UserState
If daten <> "" Then
ListBox1.Items.Add(daten.Replace(" ", ""))
Zeilen_MONAT.Text = e.ProgressPercentage
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
For i = 0 To ListBox1.Items.Count - 1
Dim STRING_Array_PreCrypt() As String = ListBox1.Items.Item(i).ToString.Split(";")
Dim STRING_Array_Crypt As String = VernamCode(STRING_Array_PreCrypt(0), sPassword)
For a = 1 To STRING_Array_PreCrypt.Length - 1
STRING_Array_Crypt += ";" + VernamCode(STRING_Array_PreCrypt(a), sPassword)
Next
ListBox2.Items.Add(STRING_Array_Crypt)
Next
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
For i = 0 To ListBox2.Items.Count - 1
Dim STRING_Array_PreDeCrypt() As String = ListBox2.Items.Item(i).ToString.Split(";")
Dim STRING_Array_DeCrypt As String = VernamCode(STRING_Array_PreDeCrypt(0), sPassword)
For a = 1 To STRING_Array_PreDeCrypt.Length - 1
STRING_Array_DeCrypt += ";" + VernamCode(STRING_Array_PreDeCrypt(a), sPassword)
Next
ListBox3.Items.Add(STRING_Array_DeCrypt)
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Using 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 Using
End Sub
Private Sub BGW_Laden_Crypt_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BGW_Laden_Crypt.DoWork
Dim pfad As String = "C:\Users\Christopher\Pictures\Test.txt"
Dim Zeilenzahl As Integer = IO.File.ReadAllLines(pfad).Count
Dim lines() As String = IO.File.ReadAllLines(pfad)
For i = 0 To Zeilenzahl - 1
Threading.Thread.Sleep(0)
BGW_Laden_Crypt.ReportProgress(i, lines(i))
Next
End Sub
Private Sub BGW_Laden_Crypt_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BGW_Laden_Crypt.ProgressChanged
Dim daten As String = e.UserState
ListBox2.Items.Add(daten)
Zeilen_MONAT.Text = e.ProgressPercentage
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim loader As New IO.StreamReader("C:\Users\Christopher\Pictures\Test.txt")
Do While loader.Peek() <> -1
ListBox2.Items.Add(loader.ReadLine())
Loop
loader.Close()
End Sub
End Class

Nochamls vielen vielen Dank für eure Geduld

BlackNetworkBit · 3. Oktober 2013, 20:14

Sende uns doch bitte die detaillierte Fehlermeldung sonnst können wir nicht
nachvollziehen was du falsch machst da wir nicht die Datei haben

mal so eine Frage ist sOrginal nicht Größer als das PW ?

VB.NET-Quellcode

For i As Integer = 1 To sOriginal.Length
bakt = CByte(Convert.ToInt32((sOriginal.Substring(i, 1))))
bcode = CByte(Convert.ToInt32((sPassword.Substring(i, 1)))) ' Hier könnet die nächste exeption enstehen :D
code &= Convert.ToChar((bakt Xor bcode))
Next

VB.NET-Quellcode

bcode = CByte(Convert.ToInt32((sPassword.Substring(i, 1)))) ' sOrginal ist z.b "Otto" das PW ist z.b "123" dann würde Hier eine exeption entstehen da sPassword ja nur 3 Zeichen hat und sOriginal 4 Zeichen hat und die For-Schleife bis 4 Geht würde der letzte durchlauf eine Exeption spucken

wäre ja dann falsch oder ?

und probiere doch bitte mal das :

VB.NET-Quellcode

For i As Integer = 0 To sOriginal.Length -1 ' ein string beginnt bei 0 und endet bei Length aber da der index bei NULL ist müssen wir einen Index abziehen (Length-1)
bakt = CByte(Convert.ToInt32((sOriginal.Substring(i, 1))))
bcode = CByte(Convert.ToInt32((sPassword.Substring(i, 1)))) ' Hier könnet die nächste exeption enstehen :D
code &= Convert.ToChar((bakt Xor bcode))
Next

Vernam Verschlüsselung speichern

Vernam Verschlüsselung speichern

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben