Quelltext Caesar

Aus ProgrammingWiki

Archivierte Version vom 2016-04-07T20:10:58+00:00. Aktuelle Version

Quelltext zur Caesarverschlüsselung in Pascal

Wir realisieren die einfache Addition zweier ganzer Zahlen. Dazu müssen wir die Werte eingeben, verarbeiten lassen und ausgeben (EVA-Prinzip!).

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;
   i ASCII>90 then ASCII:= ASCII-26;
  text[k]:= chr(ASCII);
end;

Quelltext Caesar

Quelltext zur Caesarverschlüsselung in Pascal

Suche