<%
'*********************************
'Funktion: Generator (Länge)
'Parameter: Länge, willkürlicher Längenwert, Anzahl der Zufallscode -Ziffern
'Autor: Alixi
'Datum: 2007/7/15
'Beschreibung: Generieren Sie zufällige Codefunktionen einer englischen + Ziffernlänge
Beispiel: Generator (80)
'*********************************
FunktionGenerator (Länge)
Dimi, Temperaturen
temps = "abcdefghijklmnopqrstuvwxyz1234567890"
Generator = ""
Ifisnumeric (Länge) = falsethen
Ausgangsfunktion
Endif
Fei = 1tolength
Randomisieren
Generator = Generator & Mid (Temps, int ((Len (Temps)*Rnd) +1), 1), 1)
Nächste
Endfunktion
%>