Pascal-Cäsarverfahren

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:'))));

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));

Der Cäsar-Algorithmus

Implementation

Suche