Forum: Sonstige Fragen zu Delphi
Delphi
by GuenterS,
21. Nov 2005
11/30igstel ?
Hm, dachte eigentlich, dass es fast noch schneller hätte sein müssen, als die erste Procedur.
Forum: Sonstige Fragen zu Delphi
Delphi
by GuenterS,
21. Nov 2005
Na gut, mir war eh grad fad.
function TVerschluesselung.Entschluesseln(passwort: string; Text: string):
string;
var
passwortverschluesselt, schluessel: string;
block1, block2, text2: string;
index, i, i5: Integer;
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by GuenterS,
21. Nov 2005
ich denke du brauchst nichts anhängen sondern einfach nur die Bedingung der repeat ... until schleife ändern
function TVerschluesselung.Verschluesseln(passwort: string; Text: string): string;
var
passwortverschluesselt, schluessel, block1, block2: string;
text2: string;
index, i, i2, i3, i4, i5: Integer;
begin
//ersten Schlüssel erzeugen
Forum: Sonstige Fragen zu Delphi
Delphi
by GuenterS,
21. Nov 2005
Ich hab die eine Funktion mal etwas umgeschrieben, vielleicht probierst ja mal und sagst mir den Zeitunterschied.
function TVerschluesselung.Verschluesseln(passwort: string; Text: string): string;
var
passwortverschluesselt, schluessel, block1, block2: string;
text2: string;
index, i, i2, i3, i4, i5: Integer;
begin
//ersten Schlüssel erzeugen
Forum: Sonstige Fragen zu Delphi
Delphi
by GuenterS,
21. Nov 2005
hm, du könntest die i5/32 einmal ausrechnen und dann direkt mit dem Ergebnis vergleichen. wird aber net viel bringen denk ich. Es ist aber unnötig sie bei jedem Durchgang neu zu rechnen, da du i5 nicht änderst in der Procedur.