Pascal-Cäsarverfahren

Aus ProgrammingWiki

Der Cäsar-Algorithmus

1. Teste das Programm mit verschiedenen Eingaben.
2. Erkläre mit eigenen Worten, was das Programm macht.

function caesar_test(klar: string; v: integer): string; var a, i, ascii: integer; wort, gross: string; begin wort:=''; gross:=''; a:=length(klar); for i:=1 to a do gross:=gross+uppercase(klar[i]); for i:=1 to a do begin ascii:=gross[i]; //ord noch nicht bekannt, einfach weglassen, dann wird automatisch umgewandelt if (ascii<91) and (ascii>64) then begin ascii:=ascii+v; while ascii>90 do ascii:=ascii-26; wort:=wort+chr(ascii); end else wort:=wort+'*'; end; result:=wort; end;

writeln(caesar_test(inputDialog('Klartext:'), StrToInt(inputDialog('Verschiebezahl:'))));

ausführen

Implementation

1. Implementiere den beschriebenen Algorithmus derart, dass die Funktion caesar sowohl zum Ver- als auch Entschlüsseln gentutzt werden.

function caesar(klar: string; v, richtung: integer): string; var a, i, ascii: integer; wort, gross: string; begin wort:=''; gross:=''; a:=length(klar); for i:=1 to a do gross:=gross+uppercase(klar[i]); for i:=1 to a do begin ascii:=ord(gross[i])+richtung*v; while ascii>90 do ascii:=ascii-26; while ascii<65 do ascii:=ascii+26; wort:=wort+chr(ascii); end; result:=wort; end;

writeln(caesar('HALLO',2,1));

ausführen