Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
[DE/GER] Vigenere Chiffre (Entschlüsselung)
program VigenereChiffre; //Entschlüsseln const Starttext='Srdyvkkxgu qymlr Pvcehc'; //Eigenen Text zum Entschlüsseln hier eingeben. Schluesselwort='KEY'; //Eigenen Schlüssel hier eingeben. (Muss derselbe wie beim Verschlüsseln sein) 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üsseln von Großbuchstaben if ASCIICode=ord(' ') then //Einberechnen von Leerzeichen (nicht notwendig) begin Endtext:=Endtext+chr(ASCIICode); zaehler:=zaehler-1; end else begin if ASCIICode-Push<ord('A') then Endtext:=Endtext+chr(ASCIICode-Push+26) else Endtext:=Endtext+chr(ASCIICode-Push); end else //Verschlüsseln von Kleinbuchstaben begin if ASCIICode-Push<ord('a') 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 wieder der erste Buchstabe verwendet wird. end; write(Endtext); end.
run
|
edit
|
history
|
help
0
НОД по моему
sandogh 1
Lab1SumWithRepeat
Ipis unazad ulancana lista
test22
test31
Игра НИМ
факторизация 2019
Урок 6. Задача 9 (1533). Два самых маленьких числа
08 for