--- title: "slumpa fram olika lösenord" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/46269-slumpa-fram-olika-lösenord" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "ampy" published: "2002-06-19T17:48:07.000Z" updated: "2004-11-08T12:08:42.000Z" replies: 17 views: 591 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/46269-slumpa-fram-olika-lösenord" --- # slumpa fram olika lösenord ## #1 — ampy, 2002-06-19T17:48Z 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? Permalänk: https://www.webforum.nu/p/46269 ## #2 — LAMP, 2002-06-19T17:53Z Den som söker finner ;) Permalänk: https://www.webforum.nu/p/703087 ## #3 — ampy, 2002-06-19T17:58Z Tack så mycket :) Permalänk: https://www.webforum.nu/p/703089 ## #4 — pirro, 2002-06-19T18:10Z ``` <% 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%> ``` Permalänk: https://www.webforum.nu/p/703097 ## #5 — ampy, 2002-06-19T18:16Z 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å? Permalänk: https://www.webforum.nu/p/703100 ## #6 — @nders, 2002-06-19T18:20Z 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, Permalänk: https://www.webforum.nu/p/703108 ## #7 — ampy, 2002-06-19T18:22Z Just det, tänkte inte på det. Permalänk: https://www.webforum.nu/p/703110 ## #8 — LR^evil.sid, 2002-06-19T18:22Z \[r\] felpostat... Permalänk: https://www.webforum.nu/p/703111 ## #9 — WebbisNet, 2004-11-04T11:21Z > **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? Permalänk: https://www.webforum.nu/p/1475705 ## #10 — @nders, 2004-11-04T11:22Z ``` strPass = mkPwd(3) ``` Permalänk: https://www.webforum.nu/p/1475706 ## #11 — WebbisNet, 2004-11-04T11:39Z > **@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 Permalänk: https://www.webforum.nu/p/1475716 ## #12 — @nders, 2004-11-04T11:43Z 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. Permalänk: https://www.webforum.nu/p/1475720 ## #13 — WebbisNet, 2004-11-04T11:52Z Ä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. Permalänk: https://www.webforum.nu/p/1475729 ## #14 — @nders, 2004-11-04T11:53Z > Ä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å. =) Permalänk: https://www.webforum.nu/p/1475730 ## #15 — WebbisNet, 2004-11-04T11:56Z > **@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&"' Permalänk: https://www.webforum.nu/p/1475732 ## #16 — @nders, 2004-11-04T11:57Z Yes Permalänk: https://www.webforum.nu/p/1475734 ## #17 — WebbisNet, 2004-11-04T12:16Z > **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 Permalänk: https://www.webforum.nu/p/1475745 ## #18 — andreaswebb, 2004-11-08T12:08Z Råkade posta i fel tråd...sorry..:) Permalänk: https://www.webforum.nu/p/1477639 --- Tråden på webben: https://www.webforum.nu/amne/asp/46269-slumpa-fram-olika-lösenord