Kryptologie - Informatik

PROCEDURE PROCEDURE sichern;
VAR V VAR A R Datei : text;
i : integer;
BEGIN
BEGIN
rewrite(Datei, dateiname);
FOR F FOR O R i := 1 TO T TO O textlaenge DO
DO
write(Datei, textvorlage[i]);
close(Datei);
END E END N D; { sichern_als }
PROCEDURE PROCEDURE caesar (codieren: boolean);
VAR V VAR A R v, i: integer;
BEGIN
BEGIN
IF I IF F codieren = true THEN
THEN
BEGIN
BEGIN
writeln;
write(‚Um wieviel Stellen im Alphabet wollen sie den Text verschieben ?‘);
readln(v);
FOR F FOR O R i := 1 TO T TO O textlaenge DO
DO
BEGIN
BEGIN
textvorlage[i] := verschiebe(textvorlage[i], v);
END END END; END
END E END N D{Codierung}
ELSE
ELSE
BEGIN
BEGIN
write(‚Um wieviel Stellen im Alphabet wurde der Text verschoben ?‘);
readln(v);
FOR F FOR O R i := 1 TO T TO O textlaenge DO
DO
BEGIN
BEGIN
IF I IF F textvorlage[i] IN I IN N [‚a‘..’z’] THEN
THEN
BEGIN
BEGIN
textvorlage[i] := verschiebe(textvorlage[i], 26 - (v MOD MOD M MOD O D 26));
END
END
ELSE ELSE IF I IF F textvorlage[i] IN I IN N [‚A‘..’Z’] THEN
THEN
BEGIN BEGIN
BEGIN
textvorlage[i] := verschiebe(textvorlage[i], 26 - (v MOD MOD M MOD O D 26));
END
END
ELSE ELSE IF I IF F textvorlage[i] IN I IN N [‚0‘..’9'] THEN
THEN
textvorlage[i] := verschiebe(textvorlage[i], 10 - (v MOD MOD M MOD O D 10));
END END E END N D;{Decodierung}
END END; END
text_ausgeben;
END E END N D; { caesar }
33