Bestimmte Stelle in Textbox lesen

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Manschula.

    Bestimmte Stelle in Textbox lesen

    Hallo Leute!
    Ich arbeite gerade an einem Text-Verschlüsselungs-Programm. Dazu möchte ich einen Verschlüsselungs-Algorhythmus erstellen, indem jemand den Text schreibt und darunter ein Passwort eingibt, nach dem der Text verschlüsselt wird. Dazu hatte ich die Idee, dass halt, wenn z.B.

    VB.NET-Quellcode

    1. If <<Code den ich brauch, also nach dem Muster Zeichen 1 = a>> then
    2. <<hier werden halt die Buchstaben aus dem Text verschlüsselt ausgegeben>>


    Also ist meine Frage, ob es überhaupt klug ist nach diesem Muster vorzugehen, und wenn ja, wie denn der mögliche code aussehen könnte, wobei die einzelnen zeichen des Passworts gelesen und demnach Verschlüsselt werden.

    Hier nochmal mein aktuelles Skript:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim X As String = "", _
    3. V As String = ""
    4. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. End Sub
    8. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    9. Dim str As String, Newstr As String = Nothing
    10. str = TextBox1.Text
    11. For Each StrText As String In str
    12. Select Case True
    13. 'chars
    14. Case StrText = "a"
    15. StrText = "c"
    16. Case StrText = "b"
    17. StrText = "d"
    18. Case StrText = "c"
    19. StrText = "e"
    20. Case StrText = "d"
    21. StrText = "f"
    22. Case StrText = "e"
    23. StrText = "g"
    24. Case StrText = "f"
    25. StrText = "h"
    26. Case StrText = "g"
    27. StrText = "i"
    28. Case StrText = "h"
    29. StrText = "j"
    30. Case StrText = "i"
    31. StrText = "k"
    32. Case StrText = "j"
    33. StrText = "l"
    34. Case StrText = "k"
    35. StrText = "m"
    36. Case StrText = "l"
    37. StrText = "n"
    38. Case StrText = "m"
    39. StrText = "o"
    40. Case StrText = "n"
    41. StrText = "p"
    42. Case StrText = "o"
    43. StrText = "q"
    44. Case StrText = "p"
    45. StrText = "r"
    46. Case StrText = "q"
    47. StrText = "s"
    48. Case StrText = "r"
    49. StrText = "t"
    50. Case StrText = "s"
    51. StrText = "u"
    52. Case StrText = "t"
    53. StrText = "v"
    54. Case StrText = "u"
    55. StrText = "w"
    56. Case StrText = "v"
    57. StrText = "x"
    58. Case StrText = "w"
    59. StrText = "y"
    60. Case StrText = "x"
    61. StrText = "z"
    62. Case StrText = "y"
    63. StrText = "a"
    64. Case StrText = "z"
    65. StrText = "b"
    66. 'nums
    67. Case StrText = "1"
    68. StrText = "3"
    69. Case StrText = "2"
    70. StrText = "4"
    71. Case StrText = "3"
    72. StrText = "5"
    73. Case StrText = "4"
    74. StrText = "6"
    75. Case StrText = "5"
    76. StrText = "7"
    77. Case StrText = "6"
    78. StrText = "8"
    79. Case StrText = "7"
    80. StrText = "9"
    81. Case StrText = "8"
    82. StrText = "0"
    83. Case StrText = "9"
    84. StrText = "1"
    85. Case StrText = "0"
    86. StrText = "2"
    88. 'UPER CASE
    89. Case StrText = "A"
    90. StrText = "C"
    91. Case StrText = "B"
    92. StrText = "D"
    93. Case StrText = "C"
    94. StrText = "E"
    95. Case StrText = "D"
    96. StrText = "F"
    97. Case StrText = "E"
    98. StrText = "G"
    99. Case StrText = "F"
    100. StrText = "H"
    101. Case StrText = "G"
    102. StrText = "I"
    103. Case StrText = "H"
    104. StrText = "J"
    105. Case StrText = "I"
    106. StrText = "K"
    107. Case StrText = "J"
    108. StrText = "L"
    109. Case StrText = "K"
    110. StrText = "M"
    111. Case StrText = "L"
    112. StrText = "N"
    113. Case StrText = "M"
    114. StrText = "O"
    115. Case StrText = "N"
    116. StrText = "P"
    117. Case StrText = "O"
    118. StrText = "Q"
    119. Case StrText = "P"
    120. StrText = "R"
    121. Case StrText = "Q"
    122. StrText = "S"
    123. Case StrText = "R"
    124. StrText = "T"
    125. Case StrText = "S"
    126. StrText = "U"
    127. Case StrText = "T"
    128. StrText = "V"
    129. Case StrText = "U"
    130. StrText = "W"
    131. Case StrText = "V"
    132. StrText = "X"
    133. Case StrText = "W"
    134. StrText = "Y"
    135. Case StrText = "X"
    136. StrText = "Z"
    137. Case StrText = "Y"
    138. StrText = "A"
    139. Case StrText = "Z"
    140. StrText = "B"
    141. 'Secial Char
    143. Case StrText = "½"
    144. StrText = "#"
    145. Case StrText = "!"
    146. StrText = "¤"
    147. Case StrText = "#"
    148. StrText = "%"
    149. Case StrText = "¤"
    150. StrText = "&"
    151. Case StrText = "%"
    152. StrText = "/"
    153. Case StrText = "&"
    154. StrText = "("
    155. Case StrText = "/"
    156. StrText = ")"
    157. Case StrText = "("
    158. StrText = "="
    159. Case StrText = ")"
    160. StrText = "?"
    161. Case StrText = "="
    162. StrText = "`"
    163. Case StrText = "?"
    164. StrText = "^"
    165. Case StrText = "`"
    166. StrText = "*"
    167. Case StrText = "^"
    168. StrText = ">"
    169. Case StrText = "*"
    170. StrText = ","
    171. Case StrText = ">"
    172. StrText = "."
    173. Case StrText = ","
    174. StrText = "-"
    175. Case StrText = "."
    176. StrText = "§"
    177. Case StrText = "-"
    178. StrText = "@"
    179. Case StrText = "§"
    180. StrText = "£"
    181. Case StrText = "@"
    182. StrText = "$"
    183. Case StrText = "£"
    184. StrText = "€"
    185. Case StrText = "$"
    186. StrText = "{"
    187. Case StrText = "€"
    188. StrText = "["
    189. Case StrText = "{"
    190. StrText = "]"
    191. Case StrText = "["
    192. StrText = "}"
    193. Case StrText = "]"
    194. StrText = "\"
    195. Case StrText = "}"
    196. StrText = "´"
    197. Case StrText = "\"
    198. StrText = "¨"
    199. Case StrText = "´"
    200. StrText = "'"
    201. Case StrText = "¨"
    202. StrText = "<"
    203. Case StrText = "~"
    204. StrText = ";"
    205. Case StrText = "<"
    206. StrText = ":"
    207. Case StrText = ";"
    208. StrText = "_"
    209. Case StrText = ":"
    210. StrText = "|"
    211. Case StrText = "_"
    212. StrText = "½"
    213. Case StrText = "|"
    214. StrText = "!"
    215. Case True
    216. For I = 0 To X.Length - 1
    217. StrText = StrText.Replace(V.ElementAt(I), _
    218. X.ElementAt(I))
    219. Next
    220. End Select
    221. Newstr &= StrText
    222. Next
    223. TextBox1.Text = Newstr
    224. End Sub
    226. Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
    228. End Sub
    229. End Class

    achja und button1 ist der butten, der wenn ich etwas in textbox1 eingegeben habe, den text verschlüsselt.


    Edit by Manschula: Überlanger Codeausschnitt in Expander gepackt

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Manschula“ ()

Facebook
Telefonspende