Algotithmus für Permutationen?

[AtWork]

@ Toxman: Vielen Dank für die Mühe!. Leider funktioniert Dein Algorithmus so nicht. Habs mal ausprobiert, aber er liefert nur (000), (120) oder (100). Verbessern konnte ich es aber bisher auch nicht. Hat irgendwas damit zu tun, dass die Werte in der zweiten FOR-Schleifen auf Null gesetzt werden...