String "mischen"

[anku]

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