Text mit Atbash codieren + Text in Konsole zentrieren

    • VB.NET

      Text mit Atbash codieren + Text in Konsole zentrieren

      Hi
      ich poste hier ein simple Lösung, um Wörter mit Atbash zu verschlüsseln.
      Das Programm ist eine Konsolen-Anwendung und funktioniert ganz simple nach dem EVA-Prinzip
      (Eingabe-Verarbeitung-Ausgabe)
      Gleichzeitig ist in dem Programm noch eine Lösung zu finden, die zeigt, wie man einen Text in der Konsole zentriert.
      :?: Info zu Atbash:
      :?: Atbash ist ursprünglich eine hebräische Geheimschrift, näheres dazu hier (Wikipedia.de: de.wikipedia.org/wiki/Atbash).
      :?: Man hat damals einfach das Alphabet umgedreht und es auf das normale Alphabet übertragen.
      :?: D.h. Aus a wurde z, aus b wurde y, usw.

      Quellcode

      1. abcdefghijklmnopqrstuvwxyz
      3. zyxwvutsrqponmlkjihgfedcab


      Das so als kleine Hintergrundinfo.
      Hier ist der Programmcode:

      VB.NET-Quellcode

      1. Module Module1
      3.   Private Text_Old, Text_New As String 'Speichern den uncodierten und den codierten Text 
      5.   Sub Main()
      6.   Console.ForegroundColor = ConsoleColor.Yellow
      7.   CenterText("Atbash")
      8.   For i As Integer = 1 To 80
      9.   Console.Write("*")
      10.   Next
      11.   Console.WriteLine()
      12.   CenterText("Geben sie den zu codierenden Text ein!")
      13.   CenterText("Satz- und Sonderzeichen sind nicht erlaubt!")
      14.   Console.WriteLine()
      15.   Console.Write("Text: ")
      16.   Text_Old = Console.ReadLine 'den uncodierten Text einlesen
      17.   Console.WriteLine("Der neue Text lautet: " & Atbash(Text_Old)) 'den unkodierten Text an die "Codierungs-Funktion" übergeben
      18.   Console.ReadKey()
      19.   End Sub
      21.   Sub CenterText(ByVal Text As String)
      22.   Const Width As Integer = 40 'Die halbe Breite der Konsole
      23.   Dim TextLength As Integer 'Speichert die Länge des Textes
      24.   Dim Value As Integer 'Speichert die Anzahl der Leerstellen
      26.   TextLength = Text.Length
      27.   Value = Width - Math.Round(TextLength / 2)
      29.   For i As Integer = 1 To Value
      30.   Console.Write(" ")
      31.   Next
      33.   Console.WriteLine(Text)
      35.   End Sub
      37.   Function Atbash(ByVal Text As String)
      38.   Dim MyArray() As Char
      39.   Dim iAsc As Integer
      40.   MyArray = Text.ToCharArray 'Der Text wird in einen Array convertiert, dadurch ist er leichter zu verarbeiten
      41.   For i As Integer = 0 To MyArray.Length - 1
      42.   iAsc = Asc(MyArray(i)) 'Der entsprechende Buchstabe wird in ASCII-Zeichencode umgewandelt
      43.   iAsc += 25 'Der Buchstabe wird um 25 Stellen im Alphabet verschoben
      44.   If iAsc > 90 Or iAsc > 122 Then
      45.   'Falls der Buchstabe kein a/A ist und mit einer Verschiebung um 25 Stellen nicht das gewünschte Ergebnis
      46.   'erzielt wird, wird hier jeweils für den Groß - oder Kleinbuchstaben der richtige "Code-Buchstabe" ermittelt
      47.   If iAsc > 90 And iAsc < 122 Then
      48.   iAsc = (25 - (iAsc - 90)) + 65
      49.   Else
      50.   iAsc = (25 - (iAsc - 122)) + 97
      51.   End If
      52.   End If
      53.   Text_New += Chr(iAsc).ToString 'Der Array wird wieder in einen String "umgewandelt" - durch "Addition"
      54.   Next
      55.   Return Text_New
      56.   End Function
      58. End Module



      Das ist nur eine von vielen Lösungen. - die aber trotzdem ganz hilfreich sein kann, da man z.B. in der Schule oft dieses Verfahren im Informatikunterricht braucht.
      MFG
      Fab
      ;)
      Dateien

      • Atbash.zip

        (4,73 kB, 297 mal heruntergeladen, zuletzt: )

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Fab“ ()

    Facebook
    Telefonspende