Registriert seit: 3. Mai 2004
Ort: Österreich > Bad Vöslau
760 Beiträge
Turbo Delphi für Win32
|
Re: 2 Prozeduren zu langsam
21. Nov 2005, 20:59
Ich hab die eine Funktion mal etwas umgeschrieben, vielleicht probierst ja mal und sagst mir den Zeitunterschied.
Delphi-Quellcode:
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
passwortverschluesselt := MD5Print(MD5String(Passwort));
passwortverschluesselt := MD5Print(MD5String(passwort + passwortverschluesselt
+ passwort));
schluessel := passwortverschluesselt;
//erster Schlüssel erzeugt
block1 := '';
block2 := '';
i5 := length(Text) div 32;
text2 := text;
index := 0; //BlockIndex
//verschlüsseln
repeat
block1 := copy(text2, index * 32 + 1, 32);
//Block verschlüsseln
for i := 1 to length(Block1) do
begin
i2 := ord(Schluessel[i]);
i4 := ord(Block1[i]);
i3 := i4 + i2;
Block2 := Block2 + char(i3);
end;
index := index + 1;
//Neuer Schlüssel
schluessel := MD5Print(MD5String(Block1 + schluessel + Block1));
until index >= i5;
result := Block2;
end;
Günter Pünktlichkeit ist die Fähigkeit vorherzusagen um wieviel sich der Andere verspäten wird.
|
|
Zitat
|