Mit diesem Programm lässt sich ein Text mit einer beliebigen Codezeile (z. B. QAYWSXEDCRFVTGBZHNUJMIKOLP) verschlüsseln. Diese wird links eingetragen, oben kommt der Text rein, unten erscheint der verschlüsselte.
Name: Mono-Verschlüsselung
Beschreibung: s. O.
Screenshot:
Systemvorraussetzungen: Net Framework 2.0
Sprache: VB 2008 .NET
Dateigröße: Aus einem (Mir unbekannten) Grund ist es etwas (ist relativ ) größer: 9.646 KB
Download: Programm
Spoiler anzeigen
Lizenz: Ihr dürft die Verschlüsselung gerne in euren Programmen verwenden, wenn ihr in euren INFO-Dialog (o. ä) schreibt:
ToDo:
- If durch Select Case ersetzen
- Probleme mit Umlauten beheben
Leseratte
EDIT: Ist virenfrei: VirusTotal (0 %)
Name: Mono-Verschlüsselung
Beschreibung: s. O.
Screenshot:
Systemvorraussetzungen: Net Framework 2.0
Sprache: VB 2008 .NET
Dateigröße: Aus einem (Mir unbekannten) Grund ist es etwas (ist relativ ) größer: 9.646 KB
Download: Programm
VB.NET-Quellcode
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim Oben_Feld As String 'Oberes Feld deklarieren
- Dim Schleife As Integer
- Dim Letter As String
- Dim CodedLetter As String
- Dim Out As String = ""
- Oben_Feld = RichTextBox1.Text
- CodedLetter = ""
- For Schleife = 0 To Oben_Feld.Length - 1
- Letter = Oben_Feld.Substring(Schleife, 1)
- If Letter = "A" Or Letter = "a" Then CodedLetter = TextBox1.Text
- If Letter = "B" Or Letter = "b" Then CodedLetter = TextBox2.Text
- If Letter = "C" Or Letter = "c" Then CodedLetter = TextBox3.Text
- If Letter = "D" Or Letter = "d" Then CodedLetter = TextBox4.Text
- If Letter = "E" Or Letter = "e" Then CodedLetter = TextBox5.Text
- If Letter = "F" Or Letter = "f" Then CodedLetter = TextBox6.Text
- If Letter = "G" Or Letter = "g" Then CodedLetter = TextBox7.Text
- If Letter = "H" Or Letter = "h" Then CodedLetter = TextBox8.Text
- If Letter = "I" Or Letter = "i" Then CodedLetter = TextBox9.Text
- If Letter = "J" Or Letter = "j" Then CodedLetter = TextBox10.Text
- If Letter = "K" Or Letter = "k" Then CodedLetter = TextBox11.Text
- If Letter = "L" Or Letter = "l" Then CodedLetter = TextBox12.Text
- If Letter = "M" Or Letter = "m" Then CodedLetter = TextBox13.Text
- If Letter = "N" Or Letter = "n" Then CodedLetter = TextBox14.Text
- If Letter = "O" Or Letter = "o" Then CodedLetter = TextBox15.Text
- If Letter = "P" Or Letter = "p" Then CodedLetter = TextBox16.Text
- If Letter = "Q" Or Letter = "q" Then CodedLetter = TextBox17.Text
- If Letter = "R" Or Letter = "r" Then CodedLetter = TextBox18.Text
- If Letter = "S" Or Letter = "s" Then CodedLetter = TextBox19.Text
- If Letter = "T" Or Letter = "t" Then CodedLetter = TextBox20.Text
- If Letter = "U" Or Letter = "u" Then CodedLetter = TextBox21.Text
- If Letter = "V" Or Letter = "v" Then CodedLetter = TextBox22.Text
- If Letter = "W" Or Letter = "w" Then CodedLetter = TextBox23.Text
- If Letter = "X" Or Letter = "x" Then CodedLetter = TextBox24.Text
- If Letter = "Y" Or Letter = "y" Then CodedLetter = TextBox25.Text
- If Letter = "Z" Or Letter = "z" Then CodedLetter = TextBox26.Text
- If Letter = "!" Then CodedLetter = "!"
- If Letter = """" Then CodedLetter = """"
- If Letter = "§" Then CodedLetter = "§"
- If Letter = "$" Then CodedLetter = "$"
- If Letter = "%" Then CodedLetter = "%"
- If Letter = "&" Then CodedLetter = "&"
- If Letter = "/" Then CodedLetter = "/"
- If Letter = "(" Then CodedLetter = "("
- If Letter = ")" Then CodedLetter = ")"
- If Letter = "=" Then CodedLetter = "="
- If Letter = "?" Then CodedLetter = "?"
- If Letter = "1" Then CodedLetter = "1"
- If Letter = "2" Then CodedLetter = "2"
- If Letter = "3" Then CodedLetter = "3"
- If Letter = "4" Then CodedLetter = "4"
- If Letter = "5" Then CodedLetter = "5"
- If Letter = "6" Then CodedLetter = "6"
- If Letter = "7" Then CodedLetter = "7"
- If Letter = "8" Then CodedLetter = "8"
- If Letter = "9" Then CodedLetter = "9"
- If Letter = "0" Then CodedLetter = "0"
- If Letter = "." Then CodedLetter = "."
- If Letter = ":" Then CodedLetter = ":"
- If Letter = "," Then CodedLetter = ","
- If Letter = ";" Then CodedLetter = ";"
- If Letter = "-" Then CodedLetter = "-"
- If Letter = "_" Then CodedLetter = "_"
- If Letter = "ä" Then CodedLetter = "ä"
- If Letter = " " Then CodedLetter = " "
- If Letter = "Ä" Then CodedLetter = "Ä"
- If Letter = "ö" Then CodedLetter = "ö"
- If Letter = "Ö" Then CodedLetter = "Ö"
- If Letter = "ü" Then CodedLetter = "ü"
- If Letter = "Ü" Then CodedLetter = "Ü"
- Out = Out & CodedLetter
- RichTextBox2.Text = Out
- Next
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- For i As Integer = 1 To 26
- Me.Controls("TextBox" & i).Text = ""
- Next
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- RichTextBox1.Text = ""
- RichTextBox2.Text = ""
- End Sub
- End Class
Lizenz: Ihr dürft die Verschlüsselung gerne in euren Programmen verwenden, wenn ihr in euren INFO-Dialog (o. ä) schreibt:
Wenn ihr Fehler findet, sagt mir Bescheid. Wie findet ihr das? Ich weiß, die ganzen If-Abfragen hätte ich besser machen können.Die Mono-Verschlüsselung wurde im Jahr 2010 von Leseratte programmiert.
ToDo:
- If durch Select Case ersetzen
- Probleme mit Umlauten beheben
Leseratte
EDIT: Ist virenfrei: VirusTotal (0 %)
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Leseratte“ () aus folgendem Grund: VB-Version und Dateigröße nachgetragen TextBoxEn leeren verbessert VirusTotal-Ergebnis Nachgetragen