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.
Verwendung ist denke ich klar, hier ein Beispiel:
Der Text "Das ist ein verschlüsselter Text." lautet mit dieser Methode verschlüsselt:
Das ganze ist aber nicht unknackbar, daher mein Verweis auf diese Website für noch stärkere Verschlü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
- ''' <summary>
- ''' Verschlüsselt oder entschlüsselt einen Text.
- ''' </summary>
- ''' <remarks></remarks>
- Public Class Crypter
- ''' <summary>
- ''' Verschlüsselt einen Text mithilfe der Caesar-Verschlüsselung
- ''' </summary>
- ''' <param name="stext"></param>
- ''' <returns>Der verschlüsselte Text</returns>
- ''' <remarks></remarks>
- Shared Function CryptCaesar(ByVal sText As String) As String
- Dim zahlenreihe As String = ""
- Dim alphabet As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
- For i = 0 To sText.Length - 1
- If alphabet.Contains(sText.Chars(i)) Then
- Dim pos As Integer = alphabet.IndexOf(sText.Chars(i)) + 1
- If zahlenreihe = "" Then
- zahlenreihe = alphabet.Chars(pos)
- Else
- zahlenreihe = zahlenreihe + alphabet.Chars(pos)
- End If
- End If
- Next
- Return zahlenreihe
- End Function
- ''' <summary>
- ''' Entschlüsselt einen Text mithilfe der Caesar-Verschlüsselung.
- ''' </summary>
- ''' <param name="stext"></param>
- ''' <returns>Der entschlüsselte Text</returns>
- ''' <remarks></remarks>
- Shared Function DeCryptCaesar(ByVal sText As String) As String
- Dim zahlenreihe As String = ""
- Dim alphabet As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
- For i = 0 To sText.Length - 1
- If alphabet.Contains(sText.Chars(i)) Then
- Dim pos As Integer = alphabet.IndexOf(sText.Chars(i)) - 1
- If zahlenreihe = "" Then
- zahlenreihe = alphabet.Chars(pos)
- Else
- zahlenreihe = zahlenreihe + alphabet.Chars(pos)
- End If
- End If
- Next
- Return zahlenreihe
- End Function
- ''' <summary>
- ''' Verschlüsselt einen Text.
- ''' </summary>
- ''' <param name="stext"></param>
- ''' <returns>Der verschlüsselte Text</returns>
- ''' <remarks></remarks>
- Shared Function CryptNumericbased(ByVal sText As String) As String
- Dim alphabet As String = "abcdefghijklmnopqrstuvwxyz1234567890!""§$%&/()=?-.,;:_'*+#^°<> ßABCDEFGHIJKLMNOPQRSTUVWXYZäöüÄÖÜ"
- Dim zahlenreihe As String = ""
- For i = 0 To sText.Length - 1
- If alphabet.Contains(sText(i)) = True Then
- Dim pos As Integer = alphabet.IndexOf(sText(i))
- zahlenreihe = zahlenreihe & pos & "\"
- End If
- Next
- Return zahlenreihe
- End Function
- ''' <summary>
- ''' Entschlüsselt einen Text.
- ''' </summary>
- ''' <param name="stext"></param>
- ''' <returns>Der entschlüsselte Text</returns>
- ''' <remarks></remarks>
- Shared Function DeCryptNumericbased(ByVal sText As String) As String
- Dim v As Array = Split(sText, "\")
- Dim alphabet As String = "abcdefghijklmnopqrstuvwxyz1234567890!""§$%&/()=?-.,;:_'*+#^°<> ßABCDEFGHIJKLMNOPQRSTUVWXYZäöüÄÖÜ"
- Dim buchstabenreihe As String = ""
- For i = 0 To UBound(v) - 1
- buchstabenreihe = buchstabenreihe & alphabet(v(i))
- Next
- Return buchstabenreihe
- End Function
- 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“ ()