Automatisk generering av password

Hvor mange har du brug for

http://www.aspin.com/home/tutorial/usermanage/randompa

:-)

<%
'******************************************
'* danner et password på intAntalTegn, dog minimum 4 tegn
'******************************************
function passGen(intAntalTegn)
   
    randomize timer
    if intAntalTegn < 4 then
        intAntalTegn = 4
    end if   
    dim strReturn, strAlt, intTegn
    strReturn = ""
    strAlt = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUWVXYZ"
    intTegn = len(strAlt)
    for i = 1 to intAntalTegn       
        strReturn = strReturn & mid(strAlt, (intTegn*rnd)+1, 1)
    next
    passGen = strReturn
end function

response.write(passGen(8))
%>