ok, dann jetzt mal ohne fehler..
Delphi-Quellcode:
sOrginal:= 'abcde';
sKopie:='';
for i:= 1 to length( sOrginal) do
begin
Zufall:= random( Length( sOrginal))+1;
Insert( sOrginal[i], sKopie, Zufall);
end;
und neolithos:
sOrginal:= 'abcde';
sKopie:='';
while length( sOrginal)>0 do
begin
Zufall:= Random( Length( sOrginal))+1;
sKopie:= sKopie + sOrginal[Zufall];
Delete( sOrginal, Zufall, 1);
end;
wobei neolithos beispiel besser abschneidet. ~120 versuche bis das orginal und der mix übereinstimmen. im vergleich zu daniel-volks algo immer noch schwach, aber es sollte trotzdem ausreichen. in einem punkt sind sie diesem aber überlegen, der string darf ~1000mal länger bis ein integer overflow eintritt *g
nichts für ungut
mfg