Strings fangen bei Index 1 ein und hören bei Length auf:
Delphi-Quellcode:
function Crypt(Klar : String):String;
var S, K, G, I : Integer;
Ergebnis, schluessel : string;
begin
SetLength(Schluessel,Length(Klar));
SetLength(Ergebnis,Length(Klar));
for I:=1 to Length(Klar) do begin
Schluessel[i]:=Chr(Random(26)+97);
end;
for I:=1 to Length(Klar) do begin
K:=Ord(Klar[I]);
S:=Ord(Schluessel[I])-97;
G:=K+S;
if G>122 then
G:=G-26;
Ergebnis[I]:=Chr(G-32);
end;
key1:=schluessel;
Result:=Ergebnis;
end;
Desweiteren solltest du dem Programm noch sagen, wo in welchem Verzeichnis es die Ini-Datei abspeichern soll.