Problem bei Vigenere-Verschlüsselung

[Matrix275]

Hallo,

Wir sollten in der Schule ein Programm mit Delphi zur Caesar- und Vigenere-Verschlüsselung schreiben. Meine Caesar-Verschlüsselung funktioniert einwandfrei, aber bei Vigenere kann ich meinen Fehler nicht finden. Ich habe mindestens 30 Minuten versucht in den Programmzeilen irgendwo den Fehler zu finden, habe den Code schon mehrfach umgeändert, jedoch ohne Erfolg. Ich vermute mal es liegt an den strings oder arrays, die ich benutzt habe.

Hier ist der Code von der fehlerhaften Prozedur:

Delphi-Quellcode:

procedure TForm1.Klartextverschlsseln1Click(Sender: TObject);
var a,b,key,keyadd: String;
     i,j,l,m,id1,id2,k,h:Integer;
     codeid:array of Integer;
begin
b:='';
m:=0;
key:='COOL';
keyadd:=key;
Memo1.Lines.Clear;
  for i := 0 to Memo2.Lines.Count do
    begin
      b:='';
      a := Memo2.Lines[i];
      for j  := 1 to length(a) do
        begin
          key:=key+keyadd;
          m:=m+1;
        end;
    end;
l:=i*59+j;
key:= Copy(key, 1, l);
for k := 0 to (length(key)-1) do
  begin
    codeid[k]:=ord(key[k])-65;
  end;
for h:=0 to length(a)-1 do
  begin
    b:=b+chr((ord(codeid[h]))+(ord(a[h])));
  end;
end;

Ich würde mich sehr freuen, wenn mir jemand den Fehler und die dazugehörige Korrektur zeigen könnte.

MfG Matrix275

[Coffeecoder]

Hi, erstmal Willkommen in der
Ich kann mich jetzt täuschen, aber Vigenère sollte nur mit Buchstaben funktionnieren.
Bitte besuche auch mal die beiden Links: Delphi-Treff und diesen hier.
Beide Links haben einige Erläuterungen zu diesem recht einfachen und in zwischen unsicheren Verschlüsselungsverfahren.
Mfg,

[Mathematiker]

Hallo,

Zitat von Lolf10:

SCHICKT MIR DEN QUELLCODE PER E-MAIL BITTE!!

Vergiss es!
Setze Dich gefälligst hin und programmiere erst einmal selbst etwas.
Wenn Fehler auftreten, kannst Du ja gezielt fragen.

Die DP ist kein Selbstbedienungsladen!

Beste Grüße
Mathematiker

[Namenloser]

Zitat von Mathematiker:

Die DP ist kein Selbstbedienungsladen!

Oder besser gesagt: Die DP ist ein Selbstbedienungsladen, kein Bedienungsladen

[QuickAndDirty]

Zitat von NamenLozer:

Zitat von Mathematiker:

Die DP ist kein Selbstbedienungsladen!

Oder besser gesagt: Die DP ist ein Selbstbedienungsladen, kein Bedienungsladen

wtf
stolz auf den miesen Service ???

*trollface.jpg*

[Mathematiker]

Hallo,
bevor mir mieser Service vorgeworfen wird, gibt's eine von mir im Netz gefundene Lösung. Nach Lazarus muss es einfach noch übertragen werden :

Code:

main(int n,char**a){for(n=0;putchar(a[2][n]?(a[2][n]%32+(**a%2*2-1)*
      (a[1][n++%(a[2] -a[1] -1)]%32-1)+25)%26+97:10)-10;);}

Beste Grüße
Mathematiker

Quelle: http://www.iwriteiam.nl/SigProgC.html

[QuickAndDirty]

Zitat von lolf10:

hey matrix275!

Ich muss auch in der schule ein programm mit lazarus zur cesar verschlüsselung programmieren.
Ich habe überhaupt keinen plan wie die einzelnen buchstaben erkannt werden sollen.


Bitte helft mir!

Schickt mir den quellcode per e-mail bitte!!

Danke

9/10

[ibp]

Nachdem sich nun alle über Lolf10 ausgelassen haben, scheint der TE Matrix275 hier irgendwie auf der Strecke zu bleiben.

Zitat von Matrix275:

...bei Vigenere kann ich meinen Fehler nicht finden...

kannst du denn genauer eingrenzen oder besser beschreiben was nicht funktioniert?

[p80286]

Zitat von ibp:

Nachdem sich nun alle über Lolf10 ausgelassen haben, scheint der TE Matrix275 hier irgendwie auf der Strecke zu bleiben.

Und das seit einem Jahr.

Gruß
K-H