# ---------------------------------------------
# caesar3b
# caesar2g-Abwandlung 
# Ver-/Entschlüsselungsroutinen für die
# Nutzung auf der Leinwand
# in Pencilcode
# 21.1.2024/10.6.2026
# ---------------------------------------------

caesarverschluesseln = (satz) ->
  verschluesselter_satz = ""
  laenge = satz.length
  stelle = 0

  while stelle < laenge
    asciizahl = satz.charCodeAt stelle
    asciizahl = asciizahl + 3
    zeichen = String.fromCharCode(asciizahl)
    
    verschluesselter_satz = verschluesselter_satz + zeichen
    
    stelle = stelle + 1
 
  satz = verschluesselter_satz
  return satz
# ende caesarverschluesseln  


caesarentschluesseln = (satz)->
  entschluesselter_satz = ""
  laenge = satz.length
  stelle= 0

  while stelle < laenge
    asciizahl = satz.charCodeAt stelle
    asciizahl = asciizahl - 3
    zeichen = String.fromCharCode(asciizahl)
    
    entschluesselter_satz = entschluesselter_satz + zeichen

    stelle = stelle + 1

  satz = entschluesselter_satz
  return satz
# ende caesarentschluesseln

# =======================================

ausgabe = (satz) ->
  write "Der Satz ist:  ",satz

# ========== Hauptprogramm ==============

    
await read 'Satz eingeben', defer satz
ausgabe satz
satz = caesarverschluesseln satz
  
write "Verschlüsselt: ",  satz