Die Codekopie lautet wie folgt:
<%
'Das System weist zufällige Passwörter zu
FunctionCreatepass ()
DiMran, I, Länge
Länge = 6
Createpass = ""
Fei = 1tolengthnum
Randomisieren
Ran = cint (rnd*2)
Randomisieren
Ifran = 0Then
Ran = cint (rnd*25) +97
Createpass = CreatePass & UCase (chr (ran))
Elseifran = 1Then
Ran = cint (rnd*9)
CreatePass = CreatePass & Ran
Elseifran = 2Then
Ran = cint (rnd*25) +97
Createpass = CreatePass & chrt (Ran)
Endif
Nächste
Endfunktion
response.writecreatepass ()
%>