Caesar-Verfahren in Coffeescript:

(ausführbar in der IDE Pencilcode)

	
console.log "Programm      Caesar-Verschlüsselung "
console.log "~"

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

  while stelle < laenge
    asciizahl = satz.charCodeAt stelle
    asciizahl = asciizahl + versatz
    zeichen = String.fromCharCode(asciizahl)
    verschluesselter_satz = verschluesselter_satz + zeichen
    stelle = stelle + 1
  satz = verschluesselter_satz
  return satz

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

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

# ------------------------------------------------------------

console.log "Das Programm ist gestartet"

write "PROGRAMM Caesar-Verschlüsselung"
write "~"
versatz = 3

await read  'Satz eingeben:      ', defer satz
write "~"

write "Unverschluesselt:   " + satz
satz = caesarverschluesseln satz, versatz
write "Verschluesselt:     " + satz
satz = caesarentschluesseln satz, versatz
write "Entschluesselt:     " + satz


console.log "Das Programm ist beendet mit dem Satz:  #{satz}"