Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
Sss
Ex5b20
Blanko char
Why do not work?
Урок 6. Задача 1 (1525). Номер самого большого числа
4546
nombre_completo
Angles
Tugas2
program z1
Please log in to post a comment.