Werte vergleichen

[Sierra]

Hi!
Ich versuche zwei Strings zu vergleichen und zwar Buchstabe um Buchstabe.
Das heißt, wenn ich zum Beispiel "Test" mit "Key" vergleichen will, soll erst "T" mit "K" verglichen werden und so weiter.
Ich habe da auch schonmal etwas programmiert, aber es funktioniert nicht, so wie ich es gerne hätte.

Delphi-Quellcode:

for i:=1 to ord(length(zPlaintext[i])) do
    begin
      j:=i mod ord(length(zSchluessel[i]));
      ...
    end;

Vielen Dank.

[gmc616]

Zitat:

Zitat von Sierra

Ich habe da auch schonmal etwas programmiert, aber es funkttioniert nicht, so wie ich es gerne hätte.

Das kann ich mir vorstellen.

Was soll das?

Delphi-Quellcode:

for i:=1 to ord(length(zPlaintext[i])) do

korrekter Weise.

Delphi-Quellcode:

for i:=1 to length(zPlaintext) do

Was soll die Schleife überhaupt bewirken ?? *verwirrtichbin*

[mkinzler]

Delphi-Quellcode:

for i = 1to length( <kleiner String>) do 
    if zPlaintext[i] = zSchluessel[i] then ...

[Sierra]

Ich weiß schon, dass es eigentlich

Delphi-Quellcode:

for i:=1 to length(zPlaintext) do

heißen müsste.
Jedoch möchte ich gerne die ASCII-Werte der beiden Buchstaben vergleichen.
Das heißt, dass ich auch nicht einfach die beiden Werte gleichsetzen kann, oder?

[mkinzler]

Ob du die chars oder die Ascii-Werte vergleichst ist doch egal oder?

[Sierra]

Nein, leider nicht, denn ich programmiere den Vigenère Algorithmus.
Nur an dieser Stelle gibt es noch ein Problem.

Delphi-Quellcode:

procedure TVigenere.Verschluesseln(pPlaintext, pSchluessel: String);
var i, j, k: integer;
    lBuchstabe: char;
begin
  zPlaintext:=pPlaintext;
  zSchluessel:=pSchluessel;
  zCiphertext:='';
  for i:=1 to ord(length(zPlaintext[i])) do
    begin
      j:=i mod ord(length(zSchluessel[i]));
      k:=(i+j) mod 26;
      lBuchstabe:=(Chr(97+k));
      zCiphertext:=zCiphertext+lBuchstabe;
    end;
end;

[gmc616]

Okay, vom Vigenère Algorithmus verstehe ich nix.

Trotzdem kommt mir die Zeile

Delphi-Quellcode:

for i:=1 to ord(length(zPlaintext[i])) do

eigenartig vor.

Du lässt dir den Ordinalwert von der Länge eines Zeichens wieder geben. Das ist i.a.R. = 1!
Das heißt, deine Schleife wird nur einmal durchlaufen. Soll das so sein? Wozu dann die Schleife ?? :gruebel:

[Sierra]

Du hast Recht.
Danke.
Aber wie mache ich das denn jetzt?
Wie gesagt, jeder Durchlauf muss einzeln jeden Buchstaben von "zPlaintext", mit "zSchluessel" vergleichen.
Um nun den verschlüsselten Wert zu erhalten, brauche ich nunmal den Ordinalwert, den ich plus 97 (ASCII für "a") rechnen muss.

[Sierra]

Man muss ja bedenken, dass man

Delphi-Quellcode:

k:=(i+j) mod 26;

rechnet.
Ein Beispiel:

Ich verschlüssele "t" mit "k".
Also (19+10) mod 26=3.
Danach rechnet man diesen Wert plus 97.
97+3=100.

Und 100 ist nun gleich "d" (ASCII).
Soweit so gut, nur komme ich durch i und j eben nicht auf (in diesem Fall) 19 und 10.

[Klaus01]

Delphi-Quellcode:

procedure TVigenere.Verschluesseln(pPlaintext, pSchluessel: String); 
var i, j, k: integer; 
    lBuchstabe: char; 
begin 
  zPlaintext:=pPlaintext; 
  zSchluessel:=pSchluessel; 
  zCiphertext:=''; 
  for i:=1 to length(zPlaintext) do 
    begin 
      j:=i mod ord(zSchluessel[i]); // ausgebessert
      k:=(i+j) mod 26; 
      lBuchstabe:=(Chr(97+k)); 
      zCiphertext:=zCiphertext+lBuchstabe; 
    end; 
end;

Sollte doch so, gehen oder?
Du solltest dann nur sicherstellen, daß der Schlüssel die gleiche
Länge wie der Klartext hat.


edit: ausgebessert

edit2: Ist bei Dir A = 0 B = 1 ... und a = 0 und b = 1 ...?
Dann mußt Du von allen ord-Werten den Ordinalwert von A abziehen, dann solltest Du auf Deine
Werte kommen.

edit3: ord(t) != 19 und ord(k) != 10, ord gibt Dir den Ascii Wert eines Zeichens zurück.
19= ord(t) - ord(a);


Grüße
Klaus