Auto generering af passwords ved kunde oprettelse

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

password =  lavPassword(10)

Response.Write(password)

//>Rune

Du kunne lave en streng, hvor du indsætter den gyldige tegn (f.eks. "0-9,a-z,A-Z,-,_", osv..), og laver en loop der går fra 0 og til max længden af passwordet.. for hver gang loopen afvikles, tilføjer den et tilfældigt tegn fra strengen..

/theSurfer

Hej Mark... Du kunne evt. gøre det sådan her.....

Randomize
For i = 1 to 6
intNum = Int(10 * Rnd + 48)
intUpper = Int(26 * Rnd + 65)
intLower = Int(26 * Rnd + 97)
intRand = Int(3 * Rnd + 1)
  Select Case intRand
  Case 1
    strPwd = Chr(intNum)
  Case 2
    strPwd = Chr(intUpper)
  Case 3
    strPwd = Chr(intLower)
  End Select
Response.Write (strPwd)
Next

/CP Outpost