Naja so ungefähr hatte ich mir das vorgestellt:
Delphi-Quellcode:
function TCaesar.EnCode(Text:
string; Schl: byte):
string;
VAR
i: integer;
klartext, geheimtext :
string;
code: integer;
CONST
alphabet = ['
a'..'
z'];
BEGIN
geheimtext := '
';
klartext := AnsiLowerCase(Text);
//Umwandlung in Kleinbuchstaben
for i := 1
to length(klartext)
do //Jedes Zeichen durchgehen
begin
code := ord(klartext[i]);
//ASCII-Code ermitteln
if klartext[i]
in alphabet
then //nur verschieben, wenn Buchstabe
begin
inc(code,Schl);
//Verschiebung
while code > 122
do dec(code,26);
//damit im Buchstabenbereich
end;
geheimtext := geheimtext + chr(code);
end;
Result := geheimtext;
END;
Vielleicht bringts dir was.
lg fishly