| Das Folgende ist das Codefragment: <% Funktion makePassword (Byval Maxlen) Dimer Strnewpass Schwaches WhatsNext, obere, untere, intcounter Randomisieren Für intcounter = 1 bis maxlen WhatsNext = int ((1-0 1) * Rnd 0) Wenn WhatsNext = 0 dann obere = 90 Niedriger = 65 Anders obere = 57 Niedriger = 48 Ende wenn Strnewpass = Strnewpass & chrt (Zoll -Lower 1) * RND niedriger) Nächste MakePassword = striewpass Endfunktion 'Geben Sie die Passwortlänge an und rufen Sie die Funktion auf Antwort.Write MakePassword (16) %> |