Mono-Verschlüsselung

    • Beta

    Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Quadsoft.de.vu.

      Mono-Verschlüsselung

      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

      VB.NET-Quellcode

      1. Public Class Form1
      5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      7. Dim Oben_Feld As String 'Oberes Feld deklarieren
      8. Dim Schleife As Integer
      10. Dim Letter As String
      12. Dim CodedLetter As String
      14. Dim Out As String = ""
      16. Oben_Feld = RichTextBox1.Text
      17. CodedLetter = ""
      18. For Schleife = 0 To Oben_Feld.Length - 1
      20. Letter = Oben_Feld.Substring(Schleife, 1)
      22. If Letter = "A" Or Letter = "a" Then CodedLetter = TextBox1.Text
      24. If Letter = "B" Or Letter = "b" Then CodedLetter = TextBox2.Text
      26. If Letter = "C" Or Letter = "c" Then CodedLetter = TextBox3.Text
      28. If Letter = "D" Or Letter = "d" Then CodedLetter = TextBox4.Text
      30. If Letter = "E" Or Letter = "e" Then CodedLetter = TextBox5.Text
      32. If Letter = "F" Or Letter = "f" Then CodedLetter = TextBox6.Text
      34. If Letter = "G" Or Letter = "g" Then CodedLetter = TextBox7.Text
      36. If Letter = "H" Or Letter = "h" Then CodedLetter = TextBox8.Text
      38. If Letter = "I" Or Letter = "i" Then CodedLetter = TextBox9.Text
      40. If Letter = "J" Or Letter = "j" Then CodedLetter = TextBox10.Text
      42. If Letter = "K" Or Letter = "k" Then CodedLetter = TextBox11.Text
      44. If Letter = "L" Or Letter = "l" Then CodedLetter = TextBox12.Text
      46. If Letter = "M" Or Letter = "m" Then CodedLetter = TextBox13.Text
      48. If Letter = "N" Or Letter = "n" Then CodedLetter = TextBox14.Text
      50. If Letter = "O" Or Letter = "o" Then CodedLetter = TextBox15.Text
      52. If Letter = "P" Or Letter = "p" Then CodedLetter = TextBox16.Text
      54. If Letter = "Q" Or Letter = "q" Then CodedLetter = TextBox17.Text
      56. If Letter = "R" Or Letter = "r" Then CodedLetter = TextBox18.Text
      58. If Letter = "S" Or Letter = "s" Then CodedLetter = TextBox19.Text
      60. If Letter = "T" Or Letter = "t" Then CodedLetter = TextBox20.Text
      62. If Letter = "U" Or Letter = "u" Then CodedLetter = TextBox21.Text
      64. If Letter = "V" Or Letter = "v" Then CodedLetter = TextBox22.Text
      66. If Letter = "W" Or Letter = "w" Then CodedLetter = TextBox23.Text
      68. If Letter = "X" Or Letter = "x" Then CodedLetter = TextBox24.Text
      70. If Letter = "Y" Or Letter = "y" Then CodedLetter = TextBox25.Text
      72. If Letter = "Z" Or Letter = "z" Then CodedLetter = TextBox26.Text
      74. If Letter = "!" Then CodedLetter = "!"
      76. If Letter = """" Then CodedLetter = """"
      78. If Letter = "§" Then CodedLetter = "§"
      80. If Letter = "$" Then CodedLetter = "$"
      82. If Letter = "%" Then CodedLetter = "%"
      84. If Letter = "&" Then CodedLetter = "&"
      86. If Letter = "/" Then CodedLetter = "/"
      88. If Letter = "(" Then CodedLetter = "("
      90. If Letter = ")" Then CodedLetter = ")"
      92. If Letter = "=" Then CodedLetter = "="
      94. If Letter = "?" Then CodedLetter = "?"
      96. If Letter = "1" Then CodedLetter = "1"
      98. If Letter = "2" Then CodedLetter = "2"
      100. If Letter = "3" Then CodedLetter = "3"
      102. If Letter = "4" Then CodedLetter = "4"
      104. If Letter = "5" Then CodedLetter = "5"
      106. If Letter = "6" Then CodedLetter = "6"
      108. If Letter = "7" Then CodedLetter = "7"
      110. If Letter = "8" Then CodedLetter = "8"
      112. If Letter = "9" Then CodedLetter = "9"
      114. If Letter = "0" Then CodedLetter = "0"
      116. If Letter = "." Then CodedLetter = "."
      118. If Letter = ":" Then CodedLetter = ":"
      120. If Letter = "," Then CodedLetter = ","
      122. If Letter = ";" Then CodedLetter = ";"
      124. If Letter = "-" Then CodedLetter = "-"
      126. If Letter = "_" Then CodedLetter = "_"
      128. If Letter = "ä" Then CodedLetter = "ä"
      130. If Letter = " " Then CodedLetter = " "
      132. If Letter = "Ä" Then CodedLetter = "Ä"
      134. If Letter = "ö" Then CodedLetter = "ö"
      136. If Letter = "Ö" Then CodedLetter = "Ö"
      138. If Letter = "ü" Then CodedLetter = "ü"
      140. If Letter = "Ü" Then CodedLetter = "Ü"
      142. Out = Out & CodedLetter
      144. RichTextBox2.Text = Out
      146. Next
      148. End Sub
      152. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      153. For i As Integer = 1 To 26
      154. Me.Controls("TextBox" & i).Text = ""
      155. Next
      157. End Sub
      161. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
      163. RichTextBox1.Text = ""
      165. RichTextBox2.Text = ""
      167. End Sub
      168. End Class

      Lizenz: Ihr dürft die Verschlüsselung gerne in euren Programmen verwenden, wenn ihr in euren INFO-Dialog (o. ä) schreibt:
      Die Mono-Verschlüsselung wurde im Jahr 2010 von Leseratte programmiert.
      Wenn ihr Fehler findet, sagt mir Bescheid. Wie findet ihr das? Ich weiß, die ganzen If-Abfragen hätte ich besser machen können.

      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

      If durch Select Case ersetzen? Von wegen...
      das geht ja noch viel einfacher:

      VB.NET-Quellcode

      1. Dim Text As String = "Test"
      2. Dim Liste As String = "abcdefghijklmnopqrstuvwxyz..."
      3. Dim ListeErsetzen As String = "zyxwvutsrqponmlkjihgfedcba"
      4. dim output As string
      5. For Each chr As Char in text
      6. output &= ListeErsetzen(Liste.IndexOf(chr))
      7. Next

      ...
      Ich wollte auch mal ne total überflüssige Signatur:
      ---Leer---

      Verschlüsselung

      Ich empfehle dir, dass User nicht selber eine Verschlüsselung erstellen müssen, sondern das dein Programm jedes mal eine neue Verschlüsselung erstellt mit Buchstarben, Zahlen und Sonderzeichen.

      Das kannst du z.B. mit dem Befehl Random realisieren.

      Des weiteren könntest du den Verschlüsselten Text, abspeichern in einer dll oder txt Datei.

      Wünsche dir noch viel Gück, mit deiner Anwendung. :D

      Anmerkung: Es ist zwar kein Algorithmen Verschlüsselung, aber für den Anfang tu es das auch. :D

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Smackdown“ ()

      Naja ich weiß nicht ob man das als "sichere" Verschlüsselung zählen kann. Sie dir mal z.B. Rijandael oder das hier . Sind deutlich sicherer.

      Mfg
      Firestorm

      Verschlüsselung

      Ich weiß, dass das nicht so eine sichere Verschlüsselung ist, aber es ist besser, als was er vorher hatte.

      Eine sichere Verschlüsselung ist, wenn er z.B. Algorithmen Verschlüsselung nutzt, aber das ist schwer und geht mal eben nicht so schnell. :D

    Facebook
    Telefonspende