Caesar Verschlüsselung Probleme

[Khabarakh]

Zitat:

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 :mrgreen: .

[Nikolas]

Der Code ist wirklich schlecht.
- keine Kommentare,
- die Zahlen (88, 64..) fallen einfach so vom Himmel.

Versuch lieber einen eigenen Code zu schreiben, als da durchzusteigen. Mach am besten mal ein paar Trockenübungen bei denen du nur einen Buchstaben mit einem anderen verschlüsselst und ihn wieder entschlüsselst, bevor du dich an einen ganzen Text wagst. Schreib erst mal eine Umkehrfunktion zu meinem Beispiel, also überleg dir, wie du aus '2' wieder 'b' machst.