Guten Morgen liebe DPs!
Leider habe ich ein paar Probleme beim nachvollziehen des folgenden Quelltextes.
Delphi-Quellcode:
var klar,geheim:string;
laenge,i,key: integer;
z1:byte;
z2:char;
begin
geheim:='';
klar:=edit1.text;
laenge:=lenth(klar);
key:=strtoint(edit2.text);
for i:=1 to laenge do
begin
z1:=ord(klar[i]); {1.}
z1:=z1-65; {Grossbuchstaben ?? - 2.}
z1:=(key+z1) mod 26; { 3. }
z1:=z1+65; { 4.}
z2:=chr(z1); {5.}
geheim:=geheim+z2; {6.}
end;
panel1.caption:=geheim;
end;
Wie der Caesar-Chiffre (verbal formuliert) funktioniert ist mir natuerlich klar.
Habe meinen Quelltext mal an den mir unverstaendlichen Stellen nummeriert.
Vielleicht koennte mir einer kurz erklaeren was an diesen Stellen genau funktioniert.
Waere jedenfalls sehr nett, denn ich moechte ja auch verstehen was da genau passiert.
1. ord(klar[i]) - liefert das die Position des Buchstabens im Alphabet ?
2. z1-65 - warum - 65 ?
Besten dank!