teilweise permutation

[grenzgaenger]

so in etwa ...

Delphi-Quellcode:

while solangeduwillst do
  ergebnis = copy(sourcestring,1,1) + permutation(copy(sourcestring,2,length(sourcestring)-2) + copy(sourcestring,length(sourcestring)-1,1);