Pascal-Cäsarverfahren

Aus ProgrammingWiki

Archivierte Version vom 2011-10-21T07:21:37+00:00. Aktuelle Version

Der Cäsar-Algorithmus

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

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

Implementation

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;
   if ascii>90 then ascii:=ascii-26;
   if ascii<65 then ascii:=ascii+26;
   wort:=wort+chr(ascii);
  end;
  result:=wort;
 end;

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

Pascal-Cäsarverfahren

Der Cäsar-Algorithmus

Implementation

Suche