<%

' ## Din array med tecken
Dim sTkn(68) ' ANge hur många olika tecken att slumpa mellan
Dim i
Dim iAntTkn
Dim strPass

'## Stora bokstäver
sTkn(0) = "A":sTkn(1) = "B":sTkn(2) = "C":sTkn(3) = "D":sTkn(4) = "E":sTkn(4) = "F"
sTkn(5) = "G":sTkn(6) = "H":sTkn(7) = "I":sTkn(8) = "J":sTkn(9) = "K":sTkn(10) = "L"
sTkn(11) = "M":sTkn(12) = "N":sTkn(13) = "O":sTkn(14) = "P":sTkn(15) = "Q":sTkn(16) = "R"
sTkn(17) = "S":sTkn(18) = "T":sTkn(19) = "U":sTkn(20) = "V":sTkn(21) = "W":sTkn(22) = "X"
sTkn(23) = "Y":sTkn(24) = "Z"

'## Små bokstäver
sTkn(25) = "a":sTkn(26) = "b":sTkn(27) = "c":sTkn(28) = "d":sTkn(29) = "e":sTkn(30) = "f"
sTkn(31) = "g":sTkn(32) = "h":sTkn(33) = "i":sTkn(34) = "j":sTkn(35) = "k":sTkn(36) = "l"
sTkn(37) = "m":sTkn(38) = "n":sTkn(39) = "o":sTkn(40) = "p":sTkn(41) = "q":sTkn(42) = "r"
sTkn(43) = "s":sTkn(44) = "t":sTkn(45) = "u":sTkn(46) = "v":sTkn(47) = "w":sTkn(48) = "x"
sTkn(49) = "y":sTkn(50) = "z"

'## Siffror
sTkn(51) = "0":sTkn(52) = "1":sTkn(53) = "2":sTkn(54) = "3":sTkn(55) = "4":sTkn(56) = "5"
sTkn(57) = "6":sTkn(58) = "7":sTkn(59) = "8":sTkn(60) = "9"

'## Specialtecken
sTkn(61) = "_":sTkn(62) = "-":sTkn(63) = "?":sTkn(64) = "!":sTkn(65) = "(":sTkn(66) = ")"
sTkn(67) = "="

iAntTkn = 8 ' Antal Tecken i lösenordet
strPass = ""

'## Slumpningen
Randomize
FOR i = 1 to iAntTkn
strPass = strPass & sTkn(CInt(Rnd * 68))
NEXT

'##Skriver ut lösenordet på skärmen
Response.Write strPass ' Ditt lösenord

%>