Thema
:
Theorie: Rekursive Funktion Abbrechen und Fortsetzen
Einzelnen Beitrag anzeigen
Meflin
Registriert seit: 21. Aug 2003
4.856 Beiträge
#
31
Re: Theorie: Rekursive Funktion Abbrechen und Fortsetzen
27. Okt 2005, 14:03
Zitat von
alzaimar
:
Ist der Algorithmus geheim? Vielleicht können wir ihn ja iterativ umformulieren?
nein:
http://www.delphipraxis.net/internal...ct.php?t=62161
zusammenfalten
·
markieren
Delphi-Quellcode:
procedure
BruteForceFunc(
const
init, str:
string
);
var
i: integer;
npw:
string
;
begin
if
slResult.Count >= BatchSize
then
begin
if
Assigned (KeyList)
then
KeyList.AddStrings(slResult);
csThreadCounter.Enter;
Progress := Progress + slResult.Count;
csThreadCounter.Leave;
slResult.Clear;
end
;
for
i := 1
to
Length (str)
do
begin
npw := init + str[i];
if
Length (npw) >= fStartLength
then
begin
slResult.Add(npw);
ThreadInfo[arrayID].Progress := ThreadInfo[arrayID].Progress + 1;
end
;
if
Length (npw) < fEndLength
then
BruteForceFunc (npw, str);
end
;
end
;
ist das herzstück
Leo S.
https://github.com/leoschweizer
Zitat
Meflin
Öffentliches Profil ansehen
Mehr Beiträge von Meflin finden