Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
[DE/GER] Vigenere Chiffre (Verschlüsselung)
program VigenereChiffre; //Verschlüsseln const Starttext='Informatik macht Freude'; //Eigenen Text zum Verschlüsseln hier eingeben Schluesselwort='KEY'; //Eigenen Schlüssel hier eingeben. (Selber Schlüssel zum Entschlüsseln benötigt) var i,ASCIICode,Push,zaehler:integer; Endtext:string; begin Endtext:=''; zaehler:=1; for i:=1 to length(Starttext) do begin ASCIICode:=ord(Starttext[i]); Push:=ord(Schluesselwort[zaehler])-ord('A'); if ASCIICode<=ord('Z') then //Verschlüsselung von Großbuchstaben if ASCIICode=ord(' ') then //Einberechnung von Leerzeichen (nicht notwendig) begin Endtext:=Endtext+chr(ASCIICode); zaehler:=zaehler-1; //Abziehen vom zähler, damit derselbe Buchstabe für die Verschlüsselung genutzt wird end else begin if ASCIICode+Push>ord('Z') then Endtext:=Endtext+chr(ASCIICode+Push-26) else Endtext:=Endtext+chr(ASCIICode+Push); end else //Verschlüsselung von Kleinbuchstaben begin if ASCIICode+Push>ord('z') then Endtext:=Endtext+chr(ASCIICode+Push-26) else Endtext:=Endtext+chr(ASCIICode+Push); end; zaehler:=zaehler+1; if zaehler>length(Schluesselwort) then zaehler:=1; //Zurücksetzen des zählers, damit der erste Buchstabe verwendet wird. end; write(Endtext); end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Overflow error
http://rextester.com/UVQV94798
program z1
Task
НОД через делители чисел
Enigma
Сумма пар чисел кратных и некратных 11
Banyaknya huruf vokal
Huong11a2@
1 2
Please log in to post a comment.