"Verschlüsselung" durch Zeichen-Austausch

    • VB.NET

      "Verschlüsselung" durch Zeichen-Austausch

      ErfinderDesRades - Moderator - Notiz: Das folgende "Verschlüsselungs"-Verfahren ist gänzlich unsicher, und eher von historischem Interesse, denn es ähnelt der CaesarVerschlüsselung.
      Bitte nicht produktiv einsetzen!


      Dieses Beispiel zeigt, wie man Text relativ sicher in VB.net verschlüsseln kann. Dabei bleiben alle Sonderzeichen (auch "ß", "ö", "ä", ü" usw) bestehen. Auch die Groß und Kleinschreibung ist nach dem Entschlüsseln wie vorher vorhanden.

      VB.NET-Quellcode

      1. ''' <summary>
      2. ''' Verschlüsselt oder entschlüsselt einen Text.
      3. ''' </summary>
      4. ''' <remarks></remarks>
      6. Public Class Crypter
      8. ''' <summary>
      9. ''' Verschlüsselt einen Text mithilfe der Caesar-Verschlüsselung
      10. ''' </summary>
      11. ''' <param name="stext"></param>
      12. ''' <returns>Der verschlüsselte Text</returns>
      13. ''' <remarks></remarks>
      14. Shared Function CryptCaesar(ByVal sText As String) As String
      15. Dim zahlenreihe As String = ""
      16. Dim alphabet As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
      18. For i = 0 To sText.Length - 1
      19. If alphabet.Contains(sText.Chars(i)) Then
      20. Dim pos As Integer = alphabet.IndexOf(sText.Chars(i)) + 1
      21. If zahlenreihe = "" Then
      22. zahlenreihe = alphabet.Chars(pos)
      23. Else
      24. zahlenreihe = zahlenreihe + alphabet.Chars(pos)
      25. End If
      26. End If
      27. Next
      29. Return zahlenreihe
      31. End Function
      33. ''' <summary>
      34. ''' Entschlüsselt einen Text mithilfe der Caesar-Verschlüsselung.
      35. ''' </summary>
      36. ''' <param name="stext"></param>
      37. ''' <returns>Der entschlüsselte Text</returns>
      38. ''' <remarks></remarks>
      40. Shared Function DeCryptCaesar(ByVal sText As String) As String
      42. Dim zahlenreihe As String = ""
      43. Dim alphabet As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
      45. For i = 0 To sText.Length - 1
      46. If alphabet.Contains(sText.Chars(i)) Then
      47. Dim pos As Integer = alphabet.IndexOf(sText.Chars(i)) - 1
      48. If zahlenreihe = "" Then
      49. zahlenreihe = alphabet.Chars(pos)
      50. Else
      51. zahlenreihe = zahlenreihe + alphabet.Chars(pos)
      52. End If
      53. End If
      54. Next
      56. Return zahlenreihe
      58. End Function
      60. ''' <summary>
      61. ''' Verschlüsselt einen Text.
      62. ''' </summary>
      63. ''' <param name="stext"></param>
      64. ''' <returns>Der verschlüsselte Text</returns>
      65. ''' <remarks></remarks>
      67. Shared Function CryptNumericbased(ByVal sText As String) As String
      69. Dim alphabet As String = "abcdefghijklmnopqrstuvwxyz1234567890!""§$%&/()=?-.,;:_'*+#^°<> ßABCDEFGHIJKLMNOPQRSTUVWXYZäöüÄÖÜ"
      70. Dim zahlenreihe As String = ""
      71. For i = 0 To sText.Length - 1
      72. If alphabet.Contains(sText(i)) = True Then
      73. Dim pos As Integer = alphabet.IndexOf(sText(i))
      74. zahlenreihe = zahlenreihe & pos & "\"
      75. End If
      76. Next
      78. Return zahlenreihe
      80. End Function
      82. ''' <summary>
      83. ''' Entschlüsselt einen Text.
      84. ''' </summary>
      85. ''' <param name="stext"></param>
      86. ''' <returns>Der entschlüsselte Text</returns>
      87. ''' <remarks></remarks>
      89. Shared Function DeCryptNumericbased(ByVal sText As String) As String
      91. Dim v As Array = Split(sText, "\")
      92. Dim alphabet As String = "abcdefghijklmnopqrstuvwxyz1234567890!""§$%&/()=?-.,;:_'*+#^°<> ßABCDEFGHIJKLMNOPQRSTUVWXYZäöüÄÖÜ"
      93. Dim buchstabenreihe As String = ""
      95. For i = 0 To UBound(v) - 1
      96. buchstabenreihe = buchstabenreihe & alphabet(v(i))
      97. Next
      98. Return buchstabenreihe
      100. End Function
      101. End Class

      Verwendung ist denke ich klar, hier ein Beispiel:

      Der Text "Das ist ein verschlüsselter Text." lautet mit dieser Methode verschlüsselt:
      66\0\18\61\8\18\19\61\4\8\13\61\21\4\17\18\2\7\11\18\18\4\11\19\4\17\61\82\4\23\19\48\

      Das ganze ist aber nicht unknackbar, daher mein Verweis auf diese Website für noch stärkere Verschlüsselung.

      Dieser Beitrag wurde bereits 8 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Facebook
    Telefonspende