Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
[DE/GER] Caesar Chiffre (Entschlüsseln)
program CaesarChiffre; //Entschlüsseln const Starttext='Sxpybwkdsu wkmrd Pboeno'; //Eigenen Text zum Entschlüsseln hier eingeben var i,ASCIICode,Key:integer; Endtext:string; begin Endtext:=''; Key:=10; //Eigenen Schlüssel hier eingeben for i:=1 to length(Starttext) do begin ASCIICode:=ord(Starttext[i]); if ASCIICode<=ord('Z') then if ASCIICode=ord(' ') then Endtext:=Endtext+chr(ASCIICode) else begin if ASCIICode-Key<ord('A') then Endtext:=Endtext+chr(ASCIICode-Key+26) else Endtext:=Endtext+chr(ASCIICode-Key); end else begin if ASCIICode-Key<ord('a') then Endtext:=Endtext+chr(ASCIICode-Key+26) else Endtext:=Endtext+chr(ASCIICode-Key); end end; write(Endtext); end.
run
|
edit
|
history
|
help
0
basketball_player_training
Huong11a2@
practica 7 ejercicio B8
Random Numbers
Huong11a2@
Calculatrice 1.0
Giu
Луноход-4
3
Sorting