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
String compare
quadratic equation
practica 1 ejercicio 8
practica 2 ejercicio 10
formato_real
P170808A
zadacha1
practica 7 ejercicio B3
test23
test29