slumpa fram olika lösenord

Den som söker finner ;)

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

Tack så mycket :)

<%

function mkPwd(IntAnt)
'##### Copyright Per Engström 2002*     #####
'##### [email]pereng@bigfoot.com[/email]               #####
'##### [url]http://pereng.cjb.net[/url]            #####
'##### Use this script while the        #####
'##### copyright text still remain!     #####
'##### Njoy!                            #####
strCode= "ÅÄÖ012345678klmnopqÄÖ012345rstuvwxABCDEFGHIJKLMNOPQRSTUVWXYZyzåabcdefghijklm9abcdefghijnopqrstuvwxyzåäöäöABCDEFGHIJKLMNOPQRSTUVWXYZÅ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%>

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

<%

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=***;option=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

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å?

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,

Just det, tänkte inte på det.

[r] felpostat...

pirro skrev:

<%


function mkPwd(IntAnt)
'##### Copyright Per Engström 2002*     #####
'##### [email]pereng@bigfoot.com[/email]               #####
'##### [url]http://pereng.cjb.net[/url]            #####
'##### Use this script while the        #####
'##### copyright text still remain!     #####
'##### Njoy!                            #####
strCode= "ÅÄÖ012345678klmnopqÄÖ012345rstuvwxABCDEFGHIJKLMNOPQRSTUVWXYZyzåabcdefghijklm9abcdefghijnopqrstuvwxyzåäöäöABCDEFGHIJKLMNOPQRSTUVWXYZÅ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%>

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

strPass = mkPwd(3)

@nders skrev:

strPass = mkPwd(3)

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

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.

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

@nders skrev:

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.

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

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å. =)

@nders skrev:

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

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å. =)

ok du menar '"&strPass&"'

Yes

WebbisNet skrev:

@nders skrev:

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

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å. =)

ok du menar '"&strPass&"'

Får inget felmeddelande med min kod nu, men inget mail kommer fram....hmmmmmmm

Råkade posta i fel tråd...sorry..:)