Lösenordslumpare

Ska lösenordet innehålla både siffror och bokstäver eller bara siffror eller bara bokstäver?

Jag kan nog pula ihop ett script

------------------
Mvh Rickard
www.ricki.nu

typ ngt såhär:

<%
Randomize Timer
For i = 1 to 10
s = s & Chr(Int(Rnd * 25) + 65)
Next
Response.Write s
%>

Det får gärna innehålla sifror också...

Tack för hjälpen löste det på följande sätt:

<%
'Börjar slumpfunktionen
Randomize Timer

'liten bokstav
s = s & LCASE(Chr(Int(Rnd * 25) + 65))
'stor bokstav
s = s & Chr(Int(Rnd * 25) + 65)
s = s & Chr(Int(Rnd * 25) + 65)
'liten bokstav
s = s & LCASE(Chr(Int(Rnd * 25) + 65))
'siffra
s = s & LEFT(Int(Rnd * 25),1)
s = s & LEFT(Int(Rnd * 25),1)
'liten bokstav
s = s & LCASE(Chr(Int(Rnd * 25) + 65))
s = s & LCASE(Chr(Int(Rnd * 25) + 65))

'Skriver ut resultatet
Response.Write s
%>

(Och det funkar), men finns det något smartare sätt?

För att bygga på koden lite :)

<%
Randomize Timer

For i = 1 to 6
if t < 5 then 
  'Stor bokstav
  s = s & Chr(Int(Rnd * 25) + 65)
elseif 5<t and t < 10 then
  'Siffra
  s = s & (Int(Rnd * 25) Mod 10)
else
  'liten bokstav
  s = s & LCASE(Chr(Int(Rnd * 25) + 65))
end if
t = (Int(Rnd * 50) Mod 15)
Next
Response.Write s
%>

Då får man ett slumpartat utseende på lösenordet med stora och små bokstäver om vartannat...

/Håkan

Vad sägs om den här. Den borde fungera:

Function getRandomPassword(ByVal iNoChars)

	Dim sChars, sPassword
	Dim i
	
	Randomize(Timer())
	sChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
	
	For i = 1 to iNoChars
		sPassword = sPassword & Mid(sChars, Rnd * Len(sChars) + 1, 1)
	Next

	getRandomPassword = sPassword

End Function

Response.Write getRandomPassword(10)

Då kan man ange antal tecken som den slumpade strängen skall innehålla och ange vilka tecken som den skall innehålla i funktionsvariabeln "sChars".

------------------
/ Torbjörn Hansson, webbutvecklare/gränssnittsprogrammerare
Spetsdata AB

[Redigerat av toha den 04 jul 2000]

Många nyttiga tips... Tack!

------------------
fencing for you?
http://www.fencing4u.nu/"]http://www.fencing4u.nu/

En fråga:

Varför använder ni Timer överallt?

------------------
www.webeye.nu

Timer används för att generera ett "frö" för slumptalsgenereringen. Om inte man gör det så blir det inte slumpmässigt eftersom slumptalsgeneratorn startar på samma tal...

Hur kan det starta på samma tal om man bara använder Randomize? den tar ju sina nummer ifrån systemklockan... och det är inte ofta ett tal blir lika där...

------------------
www.webeye.nu