Bei deinem Probleme kann ich auch nur Pos sagen aber den Quelltext kann man kürzer schreiben
Delphi-Quellcode:
for l := 1 to length(s) do //string entschlüsseln (i ist der key der getestet wird)
begin
s[l] := char(i Xor ord(s[l]));
end;
for d := 0 to w.count-1 do //Abgleich mit der Wordlist
begin
if s = w.Strings[d] then
begin
break;
end;
end;
Diese Boolean Variable und die 2 If abfrage ist absolut überflüssig
Thorben