Forum: Sonstige Fragen zu Delphi
by Sierra,
5. Dez 2006
Weiß denn niemand, wie ich das Problem lösen könnte?
Vielen Dank.
Forum: Sonstige Fragen zu Delphi
by Sierra,
5. Dez 2006
Wenn aber
19= ord(t) - ord(a);
ist, wie komme ich dann auf die 10?
Und wie realisiere ich das?
Forum: Sonstige Fragen zu Delphi
by Sierra,
5. Dez 2006
Meinst du diese Zeile?
j:=i mod ord(zSchluessel);
Die habe ich nämlich schon hinzugefügt und es ergibt sich das Ergebnis, welches ich in meinem vorigen Beitrag erwähnt habe.
Forum: Sonstige Fragen zu Delphi
by Sierra,
5. Dez 2006
Danke, das hat mich schon einen Schritt weiter gebracht, aber es funktioniert leider noch nicht.
Am Ende hat k (bei "t" und "k") den Wert 2 und nicht 3.
Meiner Meinung nach hat das noch mit i und j zu tun.
Ich weiß nur noch nicht, wie ich nun auf 3 statt auf 2 komme.
Forum: Sonstige Fragen zu Delphi
by Sierra,
5. Dez 2006
Man muss ja bedenken, dass man
k:=(i+j) mod 26;
rechnet.
Ein Beispiel:
Ich verschlüssele "t" mit "k".
Forum: Sonstige Fragen zu Delphi
by Sierra,
5. Dez 2006
Nein, leider nicht, denn ich programmiere den Vigenère Algorithmus.
Nur an dieser Stelle gibt es noch ein Problem.
procedure TVigenere.Verschluesseln(pPlaintext, pSchluessel: String);
var i, j, k: integer;
lBuchstabe: char;
begin
zPlaintext:=pPlaintext;
zSchluessel:=pSchluessel;
Forum: Sonstige Fragen zu Delphi
by Sierra,
5. Dez 2006
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.
for i:=1 to ord(length(zPlaintext)) do
begin
j:=i mod...