:: Encrypter :P

Geschrieben von Blackman - am 30.01.2010

Ich habe gestern abend einen kleinen Entschlüsseler geschrieben, da wir ja ein gewinnspiel hatten mehr dazu später.

Also was braucht ihr:

1 Win forms

Richtextbox (Richtextbox1)

Button (Button1)

Jo in Der Richtextbox könnt ihr dann den zu Entschlüsselnden Code eingeben

Hier dann der Source der in den Button reinkommt:

Dim blu As Integer = RichTextBox1.Text.Length
        Dim Code As String = RichTextBox1.Text
        Dim Txt As String

Dim blu as Integer = Richtextbox1.text.length

        For Each bla In Code.Split("0")
                If bla = " " Then
                    Txt &= " "
                ElseIf bla.Contains(",") Then
                    Txt &= ","
                ElseIf bla.Contains(".") Then
                    Txt &= "."
                ElseIf bla = "ö" Then
                    Txt &= "ö"
                ElseIf bla = "Ö" Then
                    Txt &= "Ö"
                ElseIf bla = "ä" Then
                    Txt &= "ä"
                ElseIf bla = "Ä" Then
                    Txt &= "Ä"
                ElseIf bla = "ü" Then
                    Txt &= "ü"
                ElseIf bla = "ß" Then
                    Txt &= "ß"
                ElseIf bla = "Ü" Then
                Txt &= "Ü"
                Else
                    If bla.Length = 1 Then
                        Txt &= "a"
                    ElseIf bla.Length = 2 Then
                        Txt &= "b"
                    ElseIf bla.Length = 3 Then
                        Txt &= "c"
                    ElseIf bla.Length = 4 Then
                        Txt &= "D".ToLower
                    ElseIf bla.Length = 5 Then
                        Txt &= "E".ToLower
                    ElseIf bla.Length = 6 Then
                        Txt &= "F".ToLower
                    ElseIf bla.Length = 7 Then
                        Txt &= "G".ToLower
                    ElseIf bla.Length = 8 Then
                        Txt &= "H".ToLower
                    ElseIf bla.Length = 9 Then
                        Txt &= "I".ToLower
                    ElseIf bla.Length = 10 Then
                        Txt &= "J".ToLower
                    ElseIf bla.Length = 11 Then
                        Txt &= "K".ToLower
                    ElseIf bla.Length = 12 Then
                        Txt &= "L".ToLower
                    ElseIf bla.Length = 13 Then
                        Txt &= "M".ToLower
                    ElseIf bla.Length = 14 Then
                        Txt &= "N".ToLower
                    ElseIf bla.Length = 15 Then
                        Txt &= "O".ToLower
                    ElseIf bla.Length = 16 Then
                        Txt &= "P".ToLower
                    ElseIf bla.Length = 17 Then
                        Txt &= "Q".ToLower
                    ElseIf bla.Length = 18 Then
                        Txt &= "R".ToLower
                    ElseIf bla.Length = 19 Then
                        Txt &= "S".ToLower
                    ElseIf bla.Length = 20 Then
                        Txt &= "T".ToLower
                    ElseIf bla.Length = 21 Then
                        Txt &= "U".ToLower
                    ElseIf bla.Length = 22 Then
                        Txt &= "V".ToLower
                    ElseIf bla.Length = 23 Then
                        Txt &= "W".ToLower
                    ElseIf bla.Length = 24 Then
                        Txt &= "X".ToLower
                    ElseIf bla.Length = 25 Then
                        Txt &= "Y".ToLower
                    ElseIf bla.Length = 26 Then
                    Txt &= "Z".ToLower
                Else
                    Txt &= bla
                End If
            End If
        Next
        RichTextBox1.Text = Txt
        MsgBox("Es wurde um " & blu - RichTextBox1.Text.Length & " Zeichen verkleinert!")

Erstmal wurde der Variable Code das zugewiesen was in der Richtextbox steht und Txt ist die Ausgabe. Wenn Also zwischen zwei nullen 26 Zeichen stehen und es kein ü Ü ö Ö ä Ä . , oder so ist dann ist es ein z und so auch mit jeden anderen Buchstabe, wenn also zwischen zwei nullen ein Leerzeichen steht wird ein Leerzeichen Der Txt variable hinzugefügt. Er geht also die Code Variable durch jetzt weist er nur noch der Richtextbox die Txt variable zu und zeigt in einer Messagbox an wieviele Zeichen es verkleinert wurden ist.

Hoffe es ist für euch von nutzen

Achja beim Testen
Ihr könnt folgenden Code verwenden:
http://web-banana.net/code.txt
Jetzt sollte ein Text über Romeo und Julia kommen!

Hier noch das Thema wieso ich es überhaupt geschrieben habe:
http://www.web-banana.net/Forum_Thema59566_GewinnSpiel-.html?page=3#beitrag=88362

:: Encrypter :P

» Kommentare

» Kommentar schreiben