vigerne var i;j:integer; chiff klartext:=editklar.text; schluessel:=editschluessel.text; alphabet:='a...z'(eingeben alles); l:=lengeht(klartext) geheimtext:=klartext;
for j:=1 to 1 do begin
c:=schluessel[j];
c2:=klartext[i];
for i:=1 to 26 do begin
if c=alphabet[i] then pos:=i;
if c2=alphabet[i] then posklar:=i;
end;

posgeheim:=posklar+pos-1 mod 26;
fof i:=1 to 26 do
begin if posgeheim=i then geheimtext[j]:=alphabet[i]; end; end;

editgeheim.text:=geheimtext; end;
allgemeine festlegung: var i,j:integr; pos,posklar,posgeheim,l:integer;
cs, cg:char;
schluessel, klartext, alphabet, geheimtext:string

dechifre: geheimtext:=editgeheim.text;
schluessel:=editschluessel.text;
alpahbet:='a..z(alles)';
l:length(geheimtext);
klartext:=geheimtext for j:=1 to 1 do begin
cs:schluessel[j] cg:=geheimtext[j]; for i:=1 to 26 do begin if cs=alpha.[i] then pos:=I; if cg=alh.[i] then posgeheim:=i; end;
posgeheim:=posgeheim-pos+1 mod 26;
for i:=1 to 26 do begin if posgeheim=i then klartext[j]:=alpahbet[i];
end; end; editklar.text:=klartext;