Rot 13

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von LaPi.

    Rot 13

    Hallo liebe Gemeinde,

    ich stehe wieder vor einem Problem:

    ich möchte ein Wort aus einer TextBox einemal verschlüsseln und einmal entschlüsseln.
    Ein Button für verschlüsseln, der Andere zum entschlüsseln.
    Die erzeugten Wörter sollen in einem Label erscheinen.




    Danke

    Danke für erue Antworten. Ich weiß wie man code einfügt usw.
    Ich verstehe auch meistens den Code, ich kann nur nichts auswendig und ich habe kein Codebeispiel gefunden.
    Ich habe auch schon ein Buch bestellt.
    Danke, was ich brauche ist nur der Code :)

    Dann mach die Bücher die in Gllileo OpenBooks stehen schonmal durch.
    Wenn dein Buch dann da ist kanst du da auch einige Übungen machen.


    jedoch wirst du hier nur Hilfestellungen bekommen.
    Niemand hat lust und zeit dir fertige Codes zu reichen.

    Aus einer meiner alten Projekte.

    VB.NET-Quellcode

    1. ''' <summary>
    2. ''' Verschlüsselt einen Text mit der Caesar-Methode
    3. ''' </summary>
    4. ''' <param name="cArr">Zeichenfolge in einem CharArray</param>
    5. ''' <returns>Verschlüsselte Zeichenfolge</returns>
    6. ''' <remarks></remarks>
    7. Private Function CaesarCrypt(ByVal cArr As Char()) As String
    8. Dim buffer As String = String.Empty
    10. For Each c As Char In cArr
    11. Dim i As Integer = Asc(c) + 1
    12. If i = 256 Then i = 0
    13. buffer &= Chr(i)
    14. Next
    16. Return buffer
    18. End Function
    20. ''' <summary>
    21. ''' Entschlüsselt einen Text
    22. ''' </summary>
    23. ''' <param name="cArr">Verschlüsselte Zeichenfolge in einem CharArray</param>
    24. ''' <returns>Entschlüsselter Text</returns>
    25. ''' <remarks></remarks>
    26. Private Function CaesarDecrypt(ByVal cArr As Char()) As String
    27. Dim buffer As String = String.Empty
    29. For Each c As Char In cArr
    30. Dim i As Integer = Asc(c) - 1
    31. If i = 0 Then i = 255
    32. buffer &= Chr(i)
    33. Next
    35. Return buffer
    37. End Function


    Ist eine einfache Verschlüsselung.

    MfG

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

  • Tags

  • 2 Benutzer haben hier geschrieben

Facebook
Telefonspende