Caesar Verschlüsselung Probleme

[Khabarakh]

Zitat von issejal:

hab nen quellcode gefunden für den festen schlüssel 3:

Delphi-Quellcode:

for i:=0 to richedit1.lines.count-1 do
  begin
    for j:=1 to length(richedit1.lines[i]) do
      if ((ord((richedit1.lines[i])[j])>64) and (ord((richedit1.lines[i])[j])<88))
        then s:=s+chr(ord((richedit1.Lines[i])[j])+3)
        else if ((ord((richedit1.lines[i])[j])>87) and (ord((richedit1.lines[i])[j])<91))        then s:=s+chr(ord((richedit1.Lines[i])[j])-23)
        else s:=s+(richedit1.lines[i])[j];
        richedit2.Lines[i]:=s;
        s:='';
  end;

ich glaub ich hab zu wenig mit delphi programmiert, denn schon bei dem code sehe ich nicht mehr durch.
warum schreibe ich bei ord: "ord((richedit1.lines[i])[j])"?

danke für die all die hilfe, aber ich glaub, dass ich das nie hinkriegen werde

Da hast du dir aber nicht gerade den besten Code rausgesucht . Der erzeugt eher eine abschreckende Wirkung .