<%
'*********************************
'Funktion: makePassword (byvalmaxlen)
'Parameter: Maxlen, die Länge der zu generierten Kennwortdiffitionen
'Autor: Alixi
'Datum: 2007/7/12
'Beschreibung: Generieren Sie zufällige Passwörter mit einer beliebigen Anzahl von Ziffern
Beispiel: <%= makePassword (8)%>
'*********************************
FunctionMakePassword (Byvalmaxlen)
Dimstrnewpass
dimwhatsnext, obere, untere, intcounter
randomisieren
Forintcounter = 1Tomaxlen
whatsNext = int ((1-0+1)*rnd+0)
ifWhatsNext = 0Then
'Charakter
obere = 90
niedriger = 65
anders
obere = 57
niedriger = 48
Endif
Strnewpass = Strnewpass & chrt (int ((obere niedriger+1)*rnd+unter))
nächste
makePassword = striewpass
Endfunktion
%>