[How To] Strings ver- und entschlüsseln (Simple Xor-Verschlüsselung)

    • VB.NET

    Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von filmee24.

      [How To] Strings ver- und entschlüsseln (Simple Xor-Verschlüsselung)

      Ich habe eine Klasse geschrieben, die ermöglicht, Strings zu verschlüsseln und entschlüsseln.

      VB.NET-Quellcode

      1. ''' <summary>
      2. ''' Eine Klasse zum Verschlüsseln von Strings
      3. ''' </summary>
      4. ''' <remarks></remarks>
      5. Public Class Crypter
      7. ''' <summary>
      8. ''' Verschlüsselt einen Text mittels Xor
      9. ''' </summary>
      10. ''' <param name="str">Zu verschlüsselnder String</param>
      11. ''' <returns>Verschlüsselte Zeichenfolge</returns>
      12. ''' <remarks></remarks>
      13. Public Function Crypt(ByVal str As String) As String
      15. Dim crypted As String = String.Empty
      16. Dim cArr As Char() = str.ToCharArray()
      18. Dim key As Integer = New Random().Next(0, 256)
      20. For Each c As Char In cArr
      21. Dim code As Integer = Asc(c)
      22. crypted &= Chr(code Xor key).ToString() & "\"
      23. Next
      25. crypted = crypted & key.ToString()
      27. Return crypted
      29. End Function
      31. ''' <summary>
      32. ''' Entschlüsselt eine verschlüsselte Zeichenfolge
      33. ''' </summary>
      34. ''' <param name="str">Verschlüsselter String</param>
      35. ''' <returns>Entschlüsselter String</returns>
      36. ''' <remarks></remarks>
      37. Public Function Decrypt(ByVal str As String) As String
      39. Dim decrypted As String = String.Empty
      41. Dim key As Integer = Integer.Parse(str.Substring(str.LastIndexOf("\") + 1))
      42. str = str.Substring(0, str.LastIndexOf("\"))
      44. Dim strArr As String() = str.Split("\"c)
      46. For Each param As Char In strArr
      47. Dim int As Integer = Asc(param)
      48. Dim c As Char = Chr(int Xor key)
      49. decrypted &= c.ToString()
      50. Next
      52. Return decrypted
      54. End Function
      56. End Class


      Wie man dies aufruft, brauche ich wohl nicht zu erklären.

      Beispiel:
      Verschlüsselt: ž\»\©\ú\³\©\®\ú\¿\³\´\ú\˜\¿\³\©\ª\³\¿\¶\ô\218
      Entschlüsselt: Das ist ein Beispiel.

      MfG

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

      Ich habe die Klasse etwas überarbeitet.

      Man muss nun einen Key (Byte [0-255]) angeben, aber es werden trotzdem unterschiedliche Verschlüsselungen angezeigt.
      Außerdem wird hier auch die Caesar-Verschlüsselung benutzt.

      VB.NET-Quellcode

      1. ''' <summary>
      2. ''' Eine Klasse zum Verschlüsseln von Strings
      3. ''' </summary>
      4. ''' <remarks></remarks>
      5. Public Class Crypter
      7. ''' <summary>
      8. ''' Verschlüsselt einen Text mittels Caesar und Xor
      9. ''' </summary>
      10. ''' <param name="str">Zu verschlüsselnder String</param>
      11. ''' <param name="bkey">Beliebiger Key (0-255) zum Verschlüsseln</param>
      12. ''' <returns>Verschlüsselte Zeichenfolge</returns>
      13. ''' <remarks></remarks>
      14. Public Function Crypt(ByVal str As String, ByVal bkey As Byte) As String
      16. Dim crypted As String = String.Empty
      18. str = CaesarCrypt(str.ToCharArray())
      20. Dim cArr As Char() = str.ToCharArray()
      22. Dim key As Integer = New Random().Next(0, 256)
      24. For Each c As Char In cArr
      25. Dim code As Integer = Asc(c)
      26. crypted &= Chr(code Xor key Xor bkey).ToString()
      27. Next
      29. crypted = crypted & "\" & Chr(key Xor bkey).ToString()
      31. Return crypted
      33. End Function
      35. ''' <summary>
      36. ''' Verschlüsselt einen Text mit der Caesar-Methode
      37. ''' </summary>
      38. ''' <param name="cArr">Zeichenfolge in einem CharArray</param>
      39. ''' <returns>Verschlüsselte Zeichenfolge</returns>
      40. ''' <remarks></remarks>
      41. Private Function CaesarCrypt(ByVal cArr As Char()) As String
      42. Dim buffer As String = String.Empty
      44. For Each c As Char In cArr
      45. Dim i As Integer = Asc(c) + 1
      46. If i = 256 Then i = 0
      47. buffer &= Chr(i)
      48. Next
      50. Return buffer
      52. End Function
      54. ''' <summary>
      55. ''' Entschlüsselt einen Text
      56. ''' </summary>
      57. ''' <param name="cArr">Verschlüsselte Zeichenfolge in einem CharArray</param>
      58. ''' <returns>Entschlüsselter Text</returns>
      59. ''' <remarks></remarks>
      60. Private Function CaesarDecrypt(ByVal cArr As Char()) As String
      61. Dim buffer As String = String.Empty
      63. For Each c As Char In cArr
      64. Dim i As Integer = Asc(c) - 1
      65. If i = 0 Then i = 255
      66. buffer &= Chr(i)
      67. Next
      69. Return buffer
      71. End Function
      73. ''' <summary>
      74. ''' Entschlüsselt eine verschlüsselte Zeichenfolge
      75. ''' </summary>
      76. ''' <param name="str">Verschlüsselter String</param>
      77. ''' <returns>Entschlüsselter String</returns>
      78. ''' <remarks></remarks>
      79. Public Function Decrypt(ByVal str As String) As String
      81. Dim decrypted As String = String.Empty
      82. Dim important As String = str.Substring(str.LastIndexOf("\") + 1)
      84. Dim key As Integer = Integer.Parse(Asc(Char.Parse(important)).ToString())
      85. str = str.Substring(0, str.LastIndexOf("\"))
      87. Dim strArr As Char() = str.ToCharArray()
      89. For Each param As Char In strArr
      90. Dim int As Integer = Asc(param)
      91. Dim c As Char = Chr(int Xor key)
      92. decrypted &= c.ToString()
      93. Next
      95. decrypted = CaesarDecrypt(decrypted.ToCharArray())
      97. Return decrypted
      99. End Function
      101. End Class


      Beispiel:
      Verschlüsselt: þê†æïüˆ‡ˆùØÜÃÙƈýÜÚÃÍ܈ùÆ‹\©
      Entschlüsselt: VB.NET - Option Strict On!

      Bin mir nicht sicher, was du mit Chiffre und Passwort meinst.

      MfG

      aber das heißt nunmal so, da es ja auch über XOR berechnet wird und er kann einen Algorithmus nicht einfach nach Lust und Laune umbenennen...
      Ich wollte auch mal ne total überflüssige Signatur:
      ---Leer---

      Was soll das für eine Verschlüsselung sein? Also: ich verschlüssele meine Bank-Pin: "5644" -> "®¯­­\~" mit dem Key "3". Jetzt denke ich, dass die Daten sicher seien, es wird ja ein Schlüssel verwendet. Nun versuche ich den Geheimtext zu entschlüsseln. Und was ist das? Ich brauche den Key gar nicht, um die PIN zu entschlüsseln? Der Key ist im Geheimtext drin? Und die verschlüsselte PIN habe ich auf meine EC-Karte geschrieben, aber die ist jetzt weg?

      Es ist sinnlos eine Verschlüsselung zu machen, die keinen Schutz bietet. Bau das raus mit dem Key im Geheimtext! Oder nimm gleich ein Feistelnetzwerk wie ich: vb-paradise.de/sonstiges/showr…elungsprogramm-fuer-texte

      Leider ein Problem beim decrypten

      Das Problem entsteht beim Aufruf durch:

      VB.NET-Quellcode

      1. Dim strValue2 As String = Space(1024)
      2. Dim sAppPath As String = Application.StartupPath
      5. GetPrivateProfileString("User Data", "Pass", "", strValue2, 1024, sAppPath & Dateiname)
      7. MessageBox.Show(strValue2)'gibt den String aus der Ini zurück. (Testweise)
      10. Dim crypten As New Crypter
      11. Form1.Password.Text = crypten.Decrypt(strValue2)


      Fehler in:


      VB.NET-Quellcode

      1. Dim key As Integer = Integer.Parse(Asc(Char.Parse(important)).ToString())

      Die Meldung:
      Die Zeichenfolge darf nur genau ein Zeichen lang sein.


      habt ihr eine Idee was da falsch sein könnte?

      Grüße
      Cyberkey

    Facebook
    Telefonspende