autogeneret adgangskode

Et eksempel på et autogenereret password:

<%
function lavPassword(antal)
tilladtkarakter = "abcdefghijklmnopqrstuvwxyz1234567890"
str = ""
for i = 1 to antal
randomize
index = Int(rnd * len(tilladtkarakter))+1
str = str & Mid(tilladtkarakter,index,1)
next
lavPassword = str
end function
%>

Og den kaldes eks sådan her:

Response.Write "Test med 4 karakter : " & lavPassword(4) & "<br>"

Response.Write "Test med 1 karakter : " & lavPassword(1) & "<br>"

/Goose

jeg har faktisk selv lavet et...
men du får pointene for ulejligheden ;)

- jamen jeg bukker og skraber :o)

/Goose