Decodierung

  • Allgemein

Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von fichz.

    Decodierung

    Hallo liebes VBP-Board,

    Ich erklär euch mal mein Problem.

    Ich besitze eine Textdatei von einem hohen Wert mit einem Kryptolgischen Text.
    Den Text zu entziffern ist "SEHR" leicht. Doch die Handarbeit geht einem wie mir ziemlich schnell auf den Sack.
    Um mir das ganze zu erleichtern hab ich mir VB wieder Installiert. Ich habe 2005 2008 und 2010 Express.
    Ich wollte mir ein Programm schreiben das einfach bestimmte Buchstaben gegen einen Wert ersetzt.

    Also. Stellt euch zwei Textboxen vor. Oben der Krypt Text - und unten der Entschlüsselte.

    Meine Frage, kann einer mir ein Programmcode geben (dem ein Neuling wie mir in VB) hilft so ein Programm zu schreiben.

    Es muss wirklich nur gaaanz einfach sein.

    Zb.. Ich tipp oben ein Affe und Unten kommt dann 11-62-51 raus.

    Ich bin ehrlich, ich hab kein Plan wie ich anfang oder wo ich aufhör... Hilft mir :/ Ich will VB auch lernen :) und bin bereit für jede offene Hilfe und bedanke mich auch dafür :) wenn ich auch "PSC" oda so dazu legen soll.. Nur ich brauch es Schnell es geht um Zeit.

    Vielen Dank
    Pac White :)

    Dato- Hab was verdammt wichtiges Vergessen. der Algorythmus "11-62-51"

    Besteht daraus das "A" der erste Buchstabe ist und nur einmal hintereinander vorkommt. "F" dagegen ist der 6 Buchstabe im Alphabet und kommt zweimal hintereinander vor. und "E" ist der 5te Buchstabe und kommt ebenfals nur einmal vor.

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

    Also du wirst garantiert ein Problem beim entschlüsseln haben.

    Beispiel:
    AZZZZZZZZZZZZZZZEEEEE = 11-2615-55

    Nun könnte 11-2615-55 einer der beiden Texte sein:
    - AZZZZZZZZZZZZZZZEEEEE
    - ABBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB...(u.s.w. (615 Zeichen))EEEEE

    Du solltest dir einen Algo. suchen, welcher dir beim entschlüsseln keine Probleme, und eindeutig ist.
    Da musst du halt ein bisschen knobeln.
    Oder muss es genau "diese" Verschlüsselung sein?

    PS: Solche "Verschlüsselungen" kann man nicht als sicher bezeichnen.

    Mfg Dancger
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    Der Sinn einer Verschlüsslung ist es nicht Sicher zu sein, sondern unknackbar. Was nur das Ergebnis von Sicherheit ist.

    Und der Sinn meiner Verschlüsslung kann ich euch nicht sagen. aber..

    machen wir es einfach.. Nehmen wir an A = B. Nun. dann ist C Logischer reihen Folge gleich D
    u.s.w das wiederholt ihr immer wieder nun sind wir bei Z. Was ist Z? Z wär nach der reihenfolge gleich A.

    Und so brauch ich das Decodier programm.. es muss Austauschbar sein. Nach verschiedenen Einstellungen. Die ich später halt mit Variablen berechnen kann.

    Also ich brauch ein Programm was einfach nur A = B umwandelt? :P

    Das Stichwort dazu ist die Cäsarverschlüsselung (Schreibt man hoffentlich so).

    Hier hast du sogar Sourcecode, einfach VB06. Musst du halt umschreiben, falls es nicht passt.
    tutorials.de/visual-basic-6-0/…sar-verschluesselung.html

    Mfg Dancger
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    Würdest du mir das erklären wie ich das Umschreibe und für was die einzelnen Dinge stehen?

    Ich bin nicht lange in VB und versuch das zu lernen? kannst du das für Doofe erklären so das ich damit weiter arbeiten kann?

    Damit ich den Code für mich persönlich erweitern kann?

    Ich habe kurz einen eigenen, verständlicheren geschrieben.
    Das geht auch garantiert kürzer und schöner, jedoch wirst du diese Methode höchstwahrscheindlich verstehen.

    Zuerst brauchen wir 2 Variablen, denn Input (Entweder den verschlüsselten Code oder den normalen Text) und den Output (Ergebniss).

    VB.NET-Quellcode

    1. 'Variablen
    2. Dim Input As String = ""
    3. Dim Output As String = ""

    Danach erstellst du 2 Buttons, zB. Entschlüsseln und Verschlüsseln. Meine hiessen Button1 und Button2.
    Ausserdem brauchst du 2 Textboxen, eine für den normalen Text, und die zweite für den verschlüsselten Text.
    Meine TextBoxen hiessen tb_normal (Normaler Text) und tb_verschlüsselt (Verschlüsselter Text).

    Hier nun der Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    4. Dim Input As String = ""
    5. Dim Output As String = ""
    7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    9. 'Code
    10. Input = tb_normal.Text
    11. For Each Buchstabe As Char In Input
    12. Select Case Buchstabe
    13. Case CChar("A")
    14. Output &= "B"
    15. Case CChar("B")
    16. Output &= "C"
    17. Case CChar("C")
    18. Output &= "D"
    19. 'u.s.w.
    20. Case Else
    21. MsgBox("fehler")
    22. Exit Sub
    23. End Select
    24. Next
    25. 'Ausgabe
    26. tb_verschlüsselt.Text = Output
    28. End Sub
    30. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    32. 'Code
    33. Input = tb_verschlüsselt.Text
    34. For Each Buchstabe As Char In Input
    35. Select Case Buchstabe
    36. Case CChar("A")
    37. Output &= "Z"
    38. Case CChar("B")
    39. Output &= "A"
    40. Case CChar("C")
    41. Output &= "B"
    42. 'u.s.w.
    43. Case Else
    44. MsgBox("fehler")
    45. Exit Sub
    46. End Select
    47. Next
    48. 'Ausgabe
    49. tb_normal.Text = Output
    50. End Sub
    51. End Class

    Ich hoffe du erkennst, dass ich jeden Buchstaben abfrage, schaue was für einen Buchstaben er hat, und dann den entschlüsselten Buchstaben wieder dem Output hinzufüge.
    So wird der Text Buchstabe für Buchstabe ent-/verschlüsselt.
    Ich habe den Code nur für Z - B geschrieben, falls du ihn verstanden hast kannst du ihn erweitern ;)
    Ansonsten frag das was du nicht verstehst.

    Mfg Dancger
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    CChar wandelt einen String (Einen Text) in einen Char (Einen Buchstaben) um. Würdest du oben schreiben "Option Strict Off" würde VB dir das autoamtisch in den richtigen Dateityp kovertieren, jedoch ist Option Strict On-Code "sauber" und es kommt nicht zu doofen Laufzeitfehlern.

    &= bedeutet eigentlich nur das der Text dazugehängt wird.
    Diese 2 Beispiele machen exakt das gleiche:

    VB.NET-Quellcode

    1. Dim txt1 As String = "a"
    2. Dim txt2 As String = "b"
    4. 'Möglichkeit 1
    5. txt1 = txt1 & txt2 'Ergibt "ab"
    7. 'Möglichkeit 2
    8. txt1 &= txt2 'Ergibt auch "ab"


    Das ist eine For Each Schleife.
    Heisst auf deutsch:

    Für(For) jeden(Each) Buchstaben(Variablenname) als(As) Char(Buchstabe) in(In) Eingangstext(Input)
    'Vorgang
    Next(Nächster Buchstabe)

    Wie gesagt, einfach fragen ;D

    Mfg Dancger
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    Ich habn Problem.. wenn ich den text auf der einen Seite eingebe kommt auf der anderen Nichts raus... :/

    VB.NET-Quellcode

    1. Object Strict on
    3. Public Class Form1
    4. Dim Input As String = ""
    5. Dim Output As String = ""
    7. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. End Sub
    11. Private Sub butinput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butinput.Click
    12. 'Code
    13. Input = Inputtxt.Text
    14. For Each Buchstabe As Char In Input
    15. Select Case Buchstabe
    16. Case CChar("A")
    17. Output &= "B"
    18. Case CChar("B")
    19. Output &= "C"
    20. Case CChar("C")
    21. Output &= "D"
    22. Case CChar("D")
    23. Output &= "E"
    24. Case CChar("E")
    25. Output &= "F"
    26. Case CChar("F")
    27. Output &= "G"
    28. Case CChar("G")
    29. Output &= "H"
    30. Case CChar("H")
    31. Output &= "I"
    32. Case CChar("I")
    33. Output &= "J"
    34. Case CChar("J")
    35. Output &= "K"
    36. Case CChar("K")
    37. Output &= "L"
    38. Case CChar("L")
    39. Output &= "M"
    40. Case CChar("M")
    41. Output &= "N"
    42. Case CChar("N")
    43. Output &= "O"
    44. Case CChar("O")
    45. Output &= "P"
    46. Case CChar("Q")
    47. Output &= "R"
    48. Case CChar("R")
    49. Output &= "S"
    50. Case CChar("S")
    51. Output &= "T"
    52. Case CChar("T")
    53. Output &= "U"
    54. Case CChar("U")
    55. Output &= "V"
    56. Case CChar("V")
    57. Output &= "X"
    58. Case CChar("X")
    59. Output &= "Y"
    60. Case CChar("Y")
    61. Output &= "Z"
    62. Case CChar("Z")
    63. Output &= "A"
    65. 'u.s.w.
    66. Case Else
    67. MsgBox("fehler")
    68. Exit Sub
    69. End Select
    70. Next
    71. 'Ausgabe
    72. outputtxt.Text = Output
    74. End Sub
    76. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    77. 'Code
    78. Input = outputtxt.Text
    79. For Each Buchstabe As Char In Input
    80. Select Case Buchstabe
    81. Case CChar("A")
    82. Output &= "B"
    83. Case CChar("B")
    84. Output &= "C"
    85. Case CChar("C")
    86. Output &= "D"
    87. Case CChar("D")
    88. Output &= "E"
    89. Case CChar("E")
    90. Output &= "F"
    91. Case CChar("F")
    92. Output &= "G"
    93. Case CChar("G")
    94. Output &= "H"
    95. Case CChar("H")
    96. Output &= "I"
    97. Case CChar("I")
    98. Output &= "J"
    99. Case CChar("J")
    100. Output &= "K"
    101. Case CChar("K")
    102. Output &= "L"
    103. Case CChar("L")
    104. Output &= "M"
    105. Case CChar("M")
    106. Output &= "N"
    107. Case CChar("N")
    108. Output &= "O"
    109. Case CChar("O")
    110. Output &= "P"
    111. Case CChar("Q")
    112. Output &= "R"
    113. Case CChar("R")
    114. Output &= "S"
    115. Case CChar("S")
    116. Output &= "T"
    117. Case CChar("T")
    118. Output &= "U"
    119. Case CChar("U")
    120. Output &= "V"
    121. Case CChar("V")
    122. Output &= "X"
    123. Case CChar("X")
    124. Output &= "Y"
    125. Case CChar("Y")
    126. Output &= "Z"
    127. Case CChar("Z")
    128. Output &= "A"
    130. 'u.s.w.
    131. Case Else
    132. MsgBox("fehler")
    133. Exit Sub
    134. End Select
    135. Next
    136. 'Ausgabe
    137. Inputtxt.Text = Output
    138. End Sub
    139. End Class


    Da der Code.. Ich hab den 1 zu 1 kopiert und mit meinen Wünschen auf die Schnelle ergänzt..?

    Wo liegt mein Fehler?


    PS: Was hast du für Arbeitszeiten??? xD

    Fehler gefunden!


    Du hast doch die Variable Buchstabe definiert. Aber sie ist ja oben nicht eingetragen.. somit hat er keinen Text den er Umwandeln kann. :) einfach

    Dim Buchstabe as String = ""


    Dann gehts :)

    ______________________________________________

    Nun ein anderes Problem. Der Text wird nicht richtig entschlüsselt oder Verschlüsselt.. Es funktioniert....Irgennd wie...

    Und ich muss ehrlich passen...ich hab keine Ahnung was da Funktioniert xD Der Code is immer noch der Selbe wie oben nur halt nun mit der Normal Definierten Variable "Buchstabe"

    Du hast trotzdem noch ein paar Fehler ;D

    1. Es heisst "Option Strict On" nicht "Object Strict On" ;)
    2. Bei der zweiten Auflistung der Buchstaben musst du andersrum vorgehen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Case CChar("A")
    2. Output &= "Z"
    3. Case CChar("B")
    4. Output &= "A"
    5. Case CChar("C")
    6. Output &= "B"
    7. Case CChar("D")
    8. Output &= "C"
    9. Case CChar("E")
    10. Output &= "D"
    11. Case CChar("F")
    12. Output &= "E"
    13. Case CChar("G")
    14. Output &= "F"
    15. Case CChar("H")
    16. Output &= "G"
    17. Case CChar("I")
    18. Output &= "H"
    19. Case CChar("J")
    20. Output &= "I"
    21. Case CChar("K")
    22. Output &= "J"
    23. Case CChar("L")
    24. Output &= "K"
    25. Case CChar("M")
    26. Output &= "L"
    27. Case CChar("N")
    28. Output &= "M"
    29. Case CChar("O")
    30. Output &= "N"
    31. Case CChar("P")
    32. Output &= "O"
    33. Case CChar("Q")
    34. Output &= "P"
    35. Case CChar("R")
    36. Output &= "Q"
    37. Case CChar("S")
    38. Output &= "R"
    39. Case CChar("T")
    40. Output &= "S"
    41. Case CChar("U")
    42. Output &= "T"
    43. Case CChar("V")
    44. Output &= "U"
    45. Case CChar("W")
    46. Output &= "V"
    47. Case CChar("X")
    48. Output &= "W"
    49. Case CChar("Y")
    50. Output &= "X"
    51. Case CChar("Z")
    52. Output &= "Y"

    3. Du darfst nur Grossbuchstaben eintippen ;D
    Sobald du einen Buchstaben eingibst, der nicht GROSS ist, beendet sich das Programm:

    VB.NET-Quellcode

    1. 'u.s.w.
    2. Case Else
    3. MsgBox("fehler")
    4. Exit Sub '<-- Hier wird das Programm beendet falls der Buchstabe nicht gefunden werden kann.
    5. End Select
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    Ahhhhhhh

    Wenn ich kleine Buchstaben auch noch hinzufüge dann klappt das doch oda :?

    Und WARUM muss ich das UMdrehen? Mit dem Output?

    Was das Object Strict on angeht xD "Ups..." xD



    Nun, will ich etwas aehm.. Kompliziertes probieren.

    Ich will das ich eine TextBox einfüge. in der ich Durch Komma getrennt die Verschlüsselten Buchstaben austauschen kann

    z.b A = B u.s.w und ich will jetzt das in der Textbox C,D,E,F u.s.w ausgetauscht werden und wenn ma ndas Übernimmt ist A = C. Verstehst du was ich mein? XD

    So Langsam glaub ich ich hab verdammt viele Fehler drinnen...

    Aber mir scheint nur leichtsins fehler...

    Da nochmal der Jetzige Code mit allen änderungen.

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    3. Dim Input As String = ""
    4. Dim Output As String = ""
    5. Dim Buchstabe As String = ""
    7. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. End Sub
    11. Private Sub butinput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butinput.Click
    12. 'Code
    13. Input = Inputtxt.Text
    14. For Each Buchstabe As Char In Input
    15. Select Case Buchstabe
    16. Case CChar("A")
    17. Output &= "B"
    18. Case CChar("B")
    19. Output &= "C"
    20. Case CChar("C")
    21. Output &= "D"
    22. Case CChar("D")
    23. Output &= "E"
    24. Case CChar("E")
    25. Output &= "F"
    26. Case CChar("F")
    27. Output &= "G"
    28. Case CChar("G")
    29. Output &= "H"
    30. Case CChar("H")
    31. Output &= "I"
    32. Case CChar("I")
    33. Output &= "J"
    34. Case CChar("J")
    35. Output &= "K"
    36. Case CChar("K")
    37. Output &= "L"
    38. Case CChar("L")
    39. Output &= "M"
    40. Case CChar("M")
    41. Output &= "N"
    42. Case CChar("N")
    43. Output &= "O"
    44. Case CChar("O")
    45. Output &= "P"
    46. Case CChar("Q")
    47. Output &= "R"
    48. Case CChar("R")
    49. Output &= "S"
    50. Case CChar("S")
    51. Output &= "T"
    52. Case CChar("T")
    53. Output &= "U"
    54. Case CChar("U")
    55. Output &= "V"
    56. Case CChar("V")
    57. Output &= "X"
    58. Case CChar("W")
    59. Output &= "X"
    60. Case CChar("X")
    61. Output &= "Y"
    62. Case CChar("Y")
    63. Output &= "Z"
    64. Case CChar("Z")
    65. Output &= "A"
    67. 'u.s.w.
    68. Case Else
    69. MsgBox("fehler")
    70. Exit Sub
    71. End Select
    72. Next
    73. 'Ausgabe
    74. outputtxt.Text = Output
    76. End Sub
    78. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    79. 'Code
    80. Input = outputtxt.Text
    81. For Each Buchstabe As Char In Input
    82. Select Case Buchstabe
    84. Case CChar("A")
    85. Output &= "Z"
    86. Case CChar("B")
    87. Output &= "A"
    88. Case CChar("C")
    89. Output &= "B"
    90. Case CChar("D")
    91. Output &= "C"
    92. Case CChar("E")
    93. Output &= "D"
    94. Case CChar("F")
    95. Output &= "E"
    96. Case CChar("G")
    97. Output &= "F"
    98. Case CChar("H")
    99. Output &= "G"
    100. Case CChar("I")
    101. Output &= "H"
    102. Case CChar("J")
    103. Output &= "I"
    104. Case CChar("K")
    105. Output &= "J"
    106. Case CChar("L")
    107. Output &= "K"
    108. Case CChar("M")
    109. Output &= "L"
    110. Case CChar("N")
    111. Output &= "M"
    112. Case CChar("O")
    113. Output &= "N"
    114. Case CChar("P")
    115. Output &= "O"
    116. Case CChar("Q")
    117. Output &= "P"
    118. Case CChar("R")
    119. Output &= "Q"
    120. Case CChar("S")
    121. Output &= "R"
    122. Case CChar("T")
    123. Output &= "S"
    124. Case CChar("U")
    125. Output &= "T"
    126. Case CChar("V")
    127. Output &= "U"
    128. Case CChar("W")
    129. Output &= "V"
    130. Case CChar("X")
    131. Output &= "W"
    132. Case CChar("Y")
    133. Output &= "X"
    134. Case CChar("Z")
    135. Output &= "Y"
    137. 'u.s.w.
    138. Case Else
    139. MsgBox("fehler")
    140. Exit Sub
    141. End Select
    142. Next
    143. 'Ausgabe
    144. Inputtxt.Text = Output
    145. End Sub
    147. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    148. Inputtxt.Clear()
    149. outputtxt.Clear()
    150. MsgBox("Felder wurden gelöscht!")
    151. End Sub
    152. End Class


    Kannst du sagen wo meine Fehler liegen.

    Der Text wird falsch entschlüsselt und vorallem steht er in den Falschen Textboxen...

    Wie auf deinen Wunsch, ich hab was viel Cooleres für dich ;D

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim Input As String = ""
    4. Dim Output As String = ""
    6. #Region "Neu"
    7. Private Sub btn_entschluesseln_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_entschluesseln.Click
    8. Input = tb_code.Text
    9. tb_normal.Text = Entschlüsseln(Input, CInt(tb_nr.Text))
    10. Output = ""
    11. Input = ""
    12. End Sub
    14. Private Sub btn_verschluesseln_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_verschluesseln.Click
    15. Input = tb_normal.Text
    16. tb_code.Text = Verschlüsseln(Input, CInt(tb_nr.Text))
    17. Output = ""
    18. Input = ""
    19. End Sub
    21. Private Function Verschlüsseln(ByVal Text As String, ByVal Geheimzahl As Integer) As String
    22. For x = 1 To Len(Text)
    23. Output &= Chr(Asc(Mid(Text, x, 1)) + Geheimzahl)
    24. Next
    25. Return Output
    26. End Function
    28. Private Function Entschlüsseln(ByVal Text As String, ByVal Geheimzahl As Integer) As String
    29. For x = 1 To Len(Text)
    30. Output &= Chr(Asc(Mid(Text, x, 1)) - Geheimzahl)
    31. Next
    32. Return Output
    33. End Function
    34. #End Region

    Dafür brauchst du:
    - 3 TextBoxen (tb_normal , tb_code, tb_nr)
    - 2 Buttons (btn_verschluesseln, btn_entschluesseln)

    Sobald du auf einen der Button klickst, wird wieder eine Schleife ausgeführt, die für jeden Buchstaben den (ich glaube es zumindestens) ASCII Code erweiteret. Also in dem Fall den Wert der in der TextBox tb_nr steht..
    Im Falle des anderen Buttons wird einfach wieder -1 abgezogen und du landest wieder auf dem unverschlüsselten Text ;D

    Mfg Dancger
    Dateien

    • Projekt.zip

      (156,61 kB, 127 mal heruntergeladen, zuletzt: )
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    Anstatt der ewig langen SELECT-CASE Sache gibt es 2 schönere und kürzere Möglichkeiten
    Einmal mit List(of) und einmal mit Dictonary(Of). Kannst dir aussuchen welche besser für dich ist.
    Sollte selbsterklärend sein:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private dict As New Dictionary(Of Char, Char) 'Dict
    5. Private Input As New List(Of Char) 'List
    6. Private Output As New List(Of Char) 'List
    8. Private abc As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 'Dict und List
    9. Private cde As String = "CDEFGHIJKLMNOPQRSTUVWXYZAB" 'Dict
    11. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    12. MessageBox.Show(Input(1) & " = " & Output(1)) 'List
    13. MessageBox.Show(dict("A")) 'Dict
    14. End Sub
    16. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    17. Input.AddRange(abc.ToCharArray) 'List
    18. Output.AddRange((abc.Substring(2, abc.Length - 2) & abc.Substring(0, 2)).ToCharArray) 'List
    20. For i As Integer = 0 To abc.Length - 1 'Dict
    21. dict.Add(abc(i), cde(i))
    22. Next
    23. End Sub
    24. End Class


    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

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

    Ich finde beides Genial nur kappier ichs nich.. Ich will kein Copy and Paste machen das passt nich zu mir

    Erklärt mir doch bitte, Was genau ihr mir da bietet... Ich verstehe Fremdwörter aber den Zusammenhang und ich kappier die Befehle nicht


    erklärt es mir doch bitte so das ich daraus ein Eigenes Projekt bilden kann :)

    @fichz
    Man kann das ganze auch nur mit einem Schlüssel-String machen. Einfach den Index plus die Verschiebung (z. B. 3 bei Cäsar) und das ganze Modulo die Länge des Strings. Man muss nur aufpassen, dass man die nicht im Schlüssel vorhandenen Zeichen korrekt behandelt (mit einem kleinen If ist das gegessen).

    Viele Grüße, Phil.

Facebook
Telefonspende