# Programm Caesar-Verschlüsseln

# *************************       Prozeduren        ***************

proc caesarverschluesseln {} {
  global satz
  
  set stelle 0
  set verschluesselter_satz ""
  
  set laenge [string length $satz]
  
  while {$stelle < $laenge} {
    set zeichen [string index $satz $stelle]
    scan $zeichen %c asciizahl    

    set asciizahl [expr $asciizahl + 3]
    set zeichen [format %c $asciizahl]
    set verschluesselter_satz $verschluesselter_satz$zeichen
   
    set stelle [expr $stelle +1]
        }
  set satz $verschluesselter_satz
  }
  
proc caesarentschluesseln {} {
  global satz
  
  set stelle 0
  set entschluesselter_satz ""
  
  set laenge [string length $satz]
  
  while {$stelle < $laenge} {
    set zeichen [string index $satz $stelle]
    scan $zeichen %c asciizahl    

    set asciizahl [expr $asciizahl - 3]
    set zeichen [format %c $asciizahl]
    set entschluesselter_satz $entschluesselter_satz$zeichen
   
    set stelle [expr $stelle +1]
    }
  set satz $entschluesselter_satz

  }  

# *************************   Ende der Prozeduren   ***************
puts \n\n\n\n

puts "Ein kleines Programm zur Demonstration der Caesar-Verschlüsselung"

puts "Bitte Satz eingeben:  "
gets stdin satz

puts "Unverschluesselt:   $satz"
caesarverschluesseln
puts "Verschluesselt:     $satz"
caesarentschluesseln
puts "Entschluesselt:     $satz"

# Ende des Programmes Caesar-Verschlüsseln