Rot 13
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von LaPi.
-
-
-
-
-
wenn du nun auf einen deiner zwei button einen doppelklick machst, kommst du in den Code.
Dort musst du anfangen deinen Code zu schreiben.
wenn du weiter noch nicht bist als Controls auf deine Form zu ziehen, dann schau dir er einige Übungen in den Hier angegebenen Büchern an.
Hier im Forum -
-
-
Aus einer meiner alten Projekte.
VB.NET-Quellcode
- ''' <summary>
- ''' Verschlüsselt einen Text mit der Caesar-Methode
- ''' </summary>
- ''' <param name="cArr">Zeichenfolge in einem CharArray</param>
- ''' <returns>Verschlüsselte Zeichenfolge</returns>
- ''' <remarks></remarks>
- Private Function CaesarCrypt(ByVal cArr As Char()) As String
- Dim buffer As String = String.Empty
- For Each c As Char In cArr
- Dim i As Integer = Asc(c) + 1
- If i = 256 Then i = 0
- buffer &= Chr(i)
- Next
- Return buffer
- End Function
- ''' <summary>
- ''' Entschlüsselt einen Text
- ''' </summary>
- ''' <param name="cArr">Verschlüsselte Zeichenfolge in einem CharArray</param>
- ''' <returns>Entschlüsselter Text</returns>
- ''' <remarks></remarks>
- Private Function CaesarDecrypt(ByVal cArr As Char()) As String
- Dim buffer As String = String.Empty
- For Each c As Char In cArr
- Dim i As Integer = Asc(c) - 1
- If i = 0 Then i = 255
- buffer &= Chr(i)
- Next
- Return buffer
- End Function
Ist eine einfache Verschlüsselung.
MfGDieser Beitrag wurde bereits 1 mal editiert, zuletzt von „LaPi“ ()