webForumDet fria alternativet

Använda lösenords generator

ASP

1 svar · 198 visningar · startad av Hallgren

Medlem sedan dec. 19991 606 inlägg
Frågan#1

Hur får jag en lösenords generator (ska testa Brimbas) att placera lösenorden i en db. Detta skall ske när man reg. sig via cdonts mail.

Brimbas lösenGen.

<%
Passwordeller = ""

Randomize

For i = 1 to 10
intNum = Int(10 * Rnd + 48)
intBig = Int(26 * Rnd + 65)
intSmall = Int(26 * Rnd + 97)
intRand = Int(3 * Rnd + 1)

Select Case intRand
Case 1
delPasseller = Chr(intNum)
Case 2
delPasseller = Chr(intBig)
Case 3
delPasseller = Chr(intSmall)
End Select

Passwordeller = Passwordeller & delPasseller

Next

response.write(Passwordeller & "<br>")
%>

------------------
Forumledare, webForum

Medlem sedan dec. 200012 464 inlägg
#2

lägg till något liknande detta

connect = server.createobject("adodb.connection")
connect.open "DSN"

connect.execute "insert into users(username,pwd) values('" & username & "','" & passwordeller & "')",,128
connect.close

Det beror lite på hur dina tabeller är definerade.

------------------
essentitia preter non sans multiplicandum

288 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
126 ms — deklarationer (db)
0 ms — hämta statistik (cache)
147 ms — hämta tråd, inlägg och bilagor (db)
129 ms — ändringar (db)