slumpa fram olika lösenord

[ampy]

Jag har en tabell som innehåller ca 400 poster. I tabellen finns det en kolumn som heter pwd. I den står alla lösenord till de olika användarna.

Nu tänkte jag att fråga hur man gör ett script där man slumpar fram olika lösenord till alla användare och sätter in dem i den kolumnen.

Då måste man väl loopa och och sätta in men hur slumpar man fram ett lösenord som tex ska innehålla siffror och bokstäver?

[LAMP]

Den som söker finner

http://www.webforum.nu/showthread.php?s=&threadid=37412

[ampy]

Tack så mycket

[pirro]

[kod]
<%


function mkPwd(IntAnt)
'##### Copyright Per Engström 2002* #####
'##### [email protected] #####
'##### http://pereng.cjb.net #####
'##### Use this script while the #####
'##### copyright text still remain! #####
'##### Njoy! #####
strCode= "ÅÄÖ012345678klmnopqÄÖ012345rstuvwxABCDEFGHIJKLMNOPQRSTUVWXY Zyzåabcdefghijklm9abcdefghijnopqrstuvwxyzåäöäöABCDEFGHIJKLMN OPQRSTUVWXYZÅ6789"
for a = 1 to IntAnt
randomize
intTest = rnd * len(strCode)
strPwd= strPwd & mid(strCode,(intTest + 1),1)
next
mkPwd = strPwd
end function
%>
använd genom
<%=mkPwd(3) ' dvs 3 är längden på lösenordet%>
[/kod]

[ampy]

har nu kommit så här långt:

[kod]
<%





Function MakePwd(ByRef intPwdLength)
Dim strLetter
Dim arrLetter
Dim t_Pwd
Dim i
Dim intLetter

Randomize

' Character to build password with.
' OBS!!! Use only valid charachters.
'-----------------------------------
strLetter ="A,B,C,D,E,F,G,H,I,J,K,L,M,n,o,p,q,r,s,t,u,v,w,x,y,z," & _
"0,1,2,3,4,5,6,7,8,9,N,O,P,Q,R,S,T,U,V,W,X,Y,Z," & _
"a,b,c,d,e,f,g,h,i,j,k,l,m,"

' Create an array with all valid chars
'--------------------------------------
arrLetter = Split(strLetter,",")

' Builds a password with chosed length
'-------------------------------------
For i = 1 To intPwdLength
intLetter = CInt(RND * UBound(arrLetter))
t_Pwd = t_Pwd & arrLetter(intLetter)
Next

MakePwd = t_Pwd
End Function











Set Connect = Server.CreateObject("ADODB.Connection")

Connect.Open "Driver={Mysql};Server=***;Database=***;UID=***;PWD=***;opti on=16384"


SQL = "select * from tabell"
Set RecSet = Connect.Execute(SQL)

Do Until RecSet.EOF



strPassword = MakePwd(8)




SQL2 = "UPDATE kolumn SET pwd = '"&strPassword&"'"
Connect.Execute(SQL2)

RecSet.Movenext
Loop

Set RecSet = Nothing

Connect.Close
Set Connect = Nothing
[/kod]

Men då sätter den samma lösenord i alla poster. Men eftersom det inte går att ha en funktion i en loop, hur ska man göra då?

[@nders]

Det du har skrivit fungerar, förutom en liten sak. Du har ingen WHERE med i din UPDATE-fråga, så du uppdaterar ju alla poster på en gång.

Mvh,

[ampy]

Just det, tänkte inte på det.

[LR^evil.sid]

[r] felpostat...

[WebbisNet]

[citat=pirro][kod]
<%


function mkPwd(IntAnt)
'##### Copyright Per Engström 2002* #####
'##### [email protected] #####
'##### http://pereng.cjb.net #####
'##### Use this script while the #####
'##### copyright text still remain! #####
'##### Njoy! #####
strCode= "ÅÄÖ012345678klmnopqÄÖ012345rstuvwxABCDEFGHIJKLMNOPQRSTUVWXY Zyzåabcdefghijklm9abcdefghijnopqrstuvwxyzåäöäöABCDEFGHIJKLMN OPQRSTUVWXYZÅ6789"
for a = 1 to IntAnt
randomize
intTest = rnd * len(strCode)
strPwd= strPwd & mid(strCode,(intTest + 1),1)
next
mkPwd = strPwd
end function
%>
använd genom
<%=mkPwd(3) ' dvs 3 är längden på lösenordet%>
[/kod] [/citat]

Hur lägger man in den koden i en variabel?

[@nders]

[kod]strPass = mkPwd(3)[/kod]

[WebbisNet]

[citat=@nders][kod]strPass = mkPwd(3)[/kod] [/citat]

Jag får
Microsoft JET Database Engine error '80040e14'

Syntax error in UPDATE statement.

/sendPass.asp, line 20

med
strPass = mkPwd(10)

SET objConn = Connect()
objConn.Execute("Update tblUsers SET password=strPass where email='"&email&"'")

Rad 20 är objConn.Execute

[@nders]

1) Du måste ju konkatenera in variabeln strPass i SQL-frågan, men det vet du ju hur du gör?
2) Password är ett lite speciellt ord i jet / odbc. Byt gärna namn på fältet.

[WebbisNet]

Är inte riktigt säker på hur man gör när man konkatenerar in variabeln

[citat=@nders]1) Du måste ju konkatenera in variabeln strPass i SQL-frågan, men det vet du ju hur du gör?
2) Password är ett lite speciellt ord i jet / odbc. Byt gärna namn på fältet. [/citat]

[@nders]

[citat]Är inte riktigt säker på hur man gör när man konkatenerar in variabeln[/citat]Du har ju gjort det med variabeln email i samma SQL-fråga? Jag kan dessutom tänka mig att du gjort det massor av andra gånger också. =)

[WebbisNet]

[citat=@nders][citat]Är inte riktigt säker på hur man gör när man konkatenerar in variabeln[/citat]Du har ju gjort det med variabeln email i samma SQL-fråga? Jag kan dessutom tänka mig att du gjort det massor av andra gånger också. =) [/citat]

ok du menar '"&strPass&"'