<%
function generatepassword(intPwdLength)

' Denna funktion skapar ett lösenord med angiven längd "intPwdLength"
' och blandar stora och små bokstäver samt siffror mellan
' 2-9(A-Z, a-z och 2-9). Jag tar bor tecken som kan se
' likadana ut med vissa typsnitt (ex. O 0).

Dim i, intChar, strPassword, intCharType

For i = 1 To intPwdLength
' Generera 0, 1, eller 2 slumpmässigt för att bestämma vilken
' typ av tecken som kommer härnäst
Randomize
intCharType = int((2-0+1)*rnd+0)

' Generera slumptal mellan 65- 90 och 97-122 eller 49-57
' ASCII koder.
select case intCharType
case 0
Randomize
intChar = int((26)*rnd+65)
case 1
Randomize
intChar = int((26)*rnd+97)
case 2
Randomize
intChar = int((8)*rnd+50)'Inga nollor eller ettor
case else
end select

' Ta bort l, I, O. backa loopen ett steg
if intChar=73 or intChar=79 or intChar=108 then
i=i-1
else
strPassword = strPassword & Chr(intChar)
end if
Next

' Returnera strängen med färdigt password
generatepassword= strPassword
end function

' Anropa funktionen och testa.
Response.Write generatepassword(8)
%>