hi, ich bin grade dabei mein erstes etwas besseres programm zu schreiben.
ich erwarte nicht das mir bei meiner frage jemand hilft aber vielleicht:
hat jemand lust sich mal eine funktion bei mir anzugucken
das programm soll texte in ne zeichenfolge machen, verschlüsseln(das kommt später dazu, ich habe erstmal alles darauf vorbereitet(so das es auch ohne code geht)) unzwar so der (weiß nicht wie das heißt) machinencode für das zeichen plus irgendwas gerechnet wird und beim entschlüsseln mit den richtigen code wieder minus... ich weiß nicht grade gut verschlüsselt...
die funktion die entschlüsseln soll ( aber zur zeit nur den machinencode rausfiltern und zurücktransformieren kann ) funktioniert einfach nicht, beim ersten durchlauf klappt es und er schafft es aus zb. 123 132 132 124 124 .. die 123 zu filtern und in nene integer draus zu machen und zurücktransformieren(ist graade nicht im code) das wird dann woanders gelagert und der zweite maschinencode wird vorbereitet daszuzukommen.. irgendwie ist der zweite aber nicht 132 sondern 111 und das die ganze zeit... nach 5 mal oder so wird der sub dann einfach abbgebrochen.
ich hoffe, dass sich jemand von euch zeit dafür nimmt und vielleicht den (oder mehrere) fehler findet...
ich erwarte nicht das mir bei meiner frage jemand hilft aber vielleicht:
hat jemand lust sich mal eine funktion bei mir anzugucken
Code:
Private Sub EntS()
UnverschlüsselterText = Nothing
Dim ende As Boolean = False
Dim Zwischenlagerung As String = 0
Dim zwischenlagerungasc As Integer = Nothing
Dim test As String
Dim GeheimCode As Integer = 0
Dim welches As Integer = 1
Dim anzahl As Integer
Dim hihi As Integer = 0
Dim Analyse As Boolean = False
VerschlüsselterText = TextBox2.Text
TextBox1.Clear()
While (ende = False)
zwischenlagerungasc = Nothing
anzahl = Nothing
test = Nothing
While (Analyse = False)
' MsgBox("1")
test = Mid(VerschlüsselterText, welches, welches)
welches = welches + 1
' MsgBox("2")
If IsNumeric(test) = True Then
zwischenlagerungasc = zwischenlagerungasc & CInt(test)
' MsgBox("3")
End If
' MsgBox("4")
anzahl = Len(zwischenlagerungasc.ToString)
' MsgBox(zwischenlagerungasc)
' MsgBox(anzahl)
If anzahl = 3 Then
' MsgBox("5")
Analyse = True
End If
End While
Analyse = False
MsgBox(zwischenlagerungasc)
If zwischenlagerungasc = Nothing Then
ende = True
' ElseIf zwischenlagerungasc = " " Then
' hihi = hihi + 1
' If hihi = 2 Then
'ende = True
'End If
ElseIf IsNumeric(zwischenlagerungasc) = True Then
UnverschlüsselterText = UnverschlüsselterText + Chr(zwischenlagerungasc)
' hihi = 0
Else
MsgBox("Error")
End If
' !!!!!!!!!!!!!!!
' !!!!!!!!!!!!!!!
'If Zwischenlagerung = "37" Or Nothing Then
'ende = True
'TextBox1.Text = UnverschlüsselterText
'VerschlüsselterText = Nothing
'UnverschlüsselterText = Nothing
' Exit Sub
'ElseIf isnumber = True Then
' zwischenlagerungasc = zwischenlagerungasc - TextBox3.Text
'Zwischenlagerung = Chr(zwischenlagerungasc)
'UnverschlüsselterText = UnverschlüsselterText + zwischenlagerungasc.ToString
'TextBox1.Text = UnverschlüsselterText
'Else
'MessageBox.Show("Der Code darf nur aus Zahlen bestehen und es muss einen Code geben!")
'ende = True
'Exit Sub
'End If
End While
TextBox1.Text = UnverschlüsselterText
End Sub
die funktion die entschlüsseln soll ( aber zur zeit nur den machinencode rausfiltern und zurücktransformieren kann ) funktioniert einfach nicht, beim ersten durchlauf klappt es und er schafft es aus zb. 123 132 132 124 124 .. die 123 zu filtern und in nene integer draus zu machen und zurücktransformieren(ist graade nicht im code) das wird dann woanders gelagert und der zweite maschinencode wird vorbereitet daszuzukommen.. irgendwie ist der zweite aber nicht 132 sondern 111 und das die ganze zeit... nach 5 mal oder so wird der sub dann einfach abbgebrochen.
ich hoffe, dass sich jemand von euch zeit dafür nimmt und vielleicht den (oder mehrere) fehler findet...