Quelltext Caesar

Aus ProgrammingWiki

Quelltext zur Caesarverschlüsselung in Pascal

l:=length(text);
vzahl:=int;
for k:=1 to l do begin
  ascii:=ord (text[k];
  if (ascii<91) and (ascii>64)
  then begin
   ascii:= ascii+vzahl;
   if ascii > then ascii-26;
  text[k]:= chr(ascii);
end;

Suche