:: 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
Mfg
Blackman
» Kommentare
Es wurden noch keine Kommentare verfasst. |
» Kommentar schreiben
Um ein Kommentar schreiben zu können, müssen Sie eingeloggt sein.
