Zufallspassword

[Catbytes]

Hi,

du könntest auch noch Mnemoische Wörter berücksichtigen.

Dazu mußt Du in der Regel nur große/kleine Konsonanten durch große/kleine Vokale ersetzten.

z.B.

Delphi-Quellcode:

  const
    Vokale: string[5] = 'aeiou';
if Vokal then
            if (Ord(Zeichen) > 64) and (Ord(Zeichen) < 91) then
              Zeichen := AnsiUpperCase(Vokale)[Succ(Random(5))]
            else
              Zeichen := Vokale[Succ(Random(5))];
          Vokal := not Vokal;
        end;