Mit VB Texte verschlüsseln

douro

New member
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
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
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...
 

Online-Statistiken

Zurzeit aktive Mitglieder
0
Zurzeit aktive Gäste
46
Besucher gesamt
46

Beliebte Forum-Themen

Zurück
Oben Unten