Problem beim Chiffrieren mit Vignere(Lazarus)

Iceberqk · 9. Mai 2017

Guten Abend,

ich arbeite derzeit mit ObjektPascal und habe angefangen mich damit zu beschäftigen, Kryptologien Codes umzusetzen.
Mein derzeitiger Code(Vignere-Crypt)

Code

procedure TForm1.Button2Click(Sender: TObject);
var i,k,intstr,intkey,x,ergebnis:integer;
begin
  label1.caption:='';
  for i:=1 to length(edit1.text) do
    for k:=1 to length(edit2.text) do
      intstr:=Ord(edit1.text[i]);
      intkey:=Ord(edit2.text[k]);
      x:=(intstr+intkey) mod 26;
      ergebnis:=(x+Ord('A'));
      label1.caption:=label1.caption+upcase(chr(ergebnis));
end;

Alles anzeigen

Das Problem ist, dass vom Klartext nur der erste Buchstabe mit dem jeweils letzten des Schlüssels verschlüsselt wird. Ich habe schon einiges probiert aber nichts hilfreiches gefunden. Vielleicht gibt es unter euch einige Experten, die mir weiterhelfen könnten.

Madd92 · 10. Mai 2017

Also dein Problem mit dem nur einen Zeichen wird sein, dass bei der For-Schleife begin und end für den Codeblock fehlen. Allerdings brauchst du keine zwei For-Schleifen, du kannst dir ja mal anschauen, was herauskommt:

Code

for k:=1 to length(edit2.text) do
begin
  intstr:=Ord(edit1.text[i]);
  intkey:=Ord(edit2.text[k]);
  x:=(intstr+intkey) mod 26;
  ergebnis:=(x+Ord('A'));
  label1.caption:=label1.caption+upcase(chr(ergebnis));
end;

So funktioniert es für mich, auch wenn nicht besonders elegant gelöst: (schau es dir nur an, wenn du eine Lösung haben möchtest)

Spoiler anzeigen

Iceberqk · 10. Mai 2017

Habe es geschafft. Danke !!

breadfish.de 12. März 2022