Generer kodeord

Jeg har engang lave denne function som laver en tilfældig streng på X antal karakter, og den indeholder de karakter man tillader i functionen:


<%
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>"

Tak for hurtigt og præcist svar - god jul :-)

<%
Dim Arr(), strValidChar, intTimes
strValidChar = "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,x,y,z,0,1,2,3,4,5,6,7,8,9"
Arr = Split(strValidChar, ",")
intTimes = 10

Randomize
For i = 0 To intTimes
  intTmp = Int(UBound(Arr) * Rnd)
  strPass = strPass & Arr(intTmp)
Next
%>

Er ikke lige helt 100 paa at det virker, lige noget jeg hurtigt skrev, er IKKE testet

ups, havde ikke lige faaet opdateret mit vindue, undskyld og god jul