PMG1/Quelltext Caesar

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
== Quelltext zur Caesarverschlüsselung in Pascal ==


<br>



<run id="4dc8e6c252fe5">
l:=length(text);
for K:=1 to l do begin
  ascii:=ord (text[k];
  if (ASCII<91) and (ascii>64)
  then begin
   ascii:= ASCII + vzahl;
   if ASCII>90 then ASCII:= ASCII-26;
  text[k]:= chr(ASCII);
end;
</run>
<br>