Automatisk generering af password og udsendelse via mail.

Det er i hvert fald forholdvist simpelt at lave! Hvordan vil du gerne have at passwords ser ud?

er lige med på en lytter (:

Måske noget lignende xIksYHup
Det er næsten lige meget. Bare dete r på 8 tegn. Desuden skal den være case sensitive.

Har du ikke lidt kode fra noget andet som jeg kan få lov at studere?

Er lige ved at lave noget.... Check igen ca. 12.00 :-)

Med på en lytter - det lyder rigtigt interessant go on z42cool

Jeg har med held brugt et eks fra mortenbeck@hotmail.com www.fly.to/aeblemann der genererer pw i den længde du ønsker. Hvis nogen er interesseret har jeg filerne liggende.
/brynil

filerne liggende hvor ?

På min harddisk!! Hvis du vil ha\' dem ud at ligge på nettet må du gerne gøre det. :)

Jeg ku ikke huske hvor jeg fandt den. Hent den hos ActiveServerPages.dk i download sekt. navnet er \'autopass\', evt. \'#auto/pass\'.
/brynil

Noget i stil med følgende

<%

Option Explicit

Dim autoPassWd, usrEmailAdress, conn, objNewMail

Function RandomPwd(myLength)
    Dim charType, i
    Randomize
    For i = 1 To myLength
        CharType = Int((3*Rnd)+1)
        Select Case CharType
            Case 1        \'Tal
                RandomPwd = RandomPwd & Chr(Int((9*Rnd) + 48))
            Case 2        \'Stor
                RandomPwd = RandomPwd & Chr(Int((25*Rnd) + 65))
            Case 3        \'Lille
                RandomPwd = RandomPwd & Chr(Int((25*Rnd) + 97))
        End Select
    Next
End Function

autoPassWd = RandomPwd(8)
\'Sæt denne til brugerens email adresse
usrEmailAdress = \"someone@somewhere.net\"

\'Sæt det ind i databasen
Set conn = Server.createObject(\"ADODB.Connection\")
\'Husk at ændre connection strengen
conn.open(\"Provider=Sqloledb; UID=your_user_id; PWD=your_password; Initial Catalog=your_db; Data Source=your_server_name\")
conn.Execute(\"INSERT INTO Users (email, pwd) VALUES (\'\" & usrEmailAdress & \"\', \'\" & autoPassWd & \"\')\")
conn.close()

\'Send en email
Dim myMail
Set myMail = Server.CreateObject(\"CDONTS.NewMail\")
\'Husk at sætte ønsket email adresse
myMail.From = \"boss@world.net\"
myMail.To = usrEmailAdress
myMail.Subject = \"Password\"
myMail.Body = autoPassWd
myMail.Send
Set myMail = Nothing



%>

brynil:

Vil gerne have de filer! ;0)

Laver ofte noget med password o.lign.!

>>webbe
Du kan hente dem som ovenfor nævnt. Jeg checkede stedet idag.
/brynil

Jeg har lavet lidt kode for at checke om folk eksisterer. På min Generer password-side har jeg følgende kode:

<!-- Minus AutoDato -->
<%

\' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"/cgi-bin/adresser.mdb\")
Conn.Open DSN

\' SQL forespørgsel

strSQL = \"select * from adresser where id =\" & requestQuerystring(\"elevnummer\")

\' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

\' Validér formularen
if request.Querystring(\"elevnummer\") = \"\" or request.Querystring(\"fornavn\") = \"\" or request.Querystring(\"efternavn\") = \"\" or request.Querystring(\"email\") = \"\" then

    Response.Redirect \"opret_bruger.asp\"

\' Check om person findes i elevlisten
elseif request.Querystring(\"fornavn\") = rs(\"fornavn\") and request.Querystring(\"efternavn\") = rs(\"efternavn\") then

\' Hvis ja, generer password
Option Explicit

Dim autoPassWd, usrEmailAdress, conn, objNewMail

Function RandomPwd(myLength)
    Dim charType, i
    Randomize
    For i = 1 To myLength
        CharType = Int((3*Rnd)+1)
        Select Case CharType
            Case 1        \'Tal
                RandomPwd = RandomPwd & Chr(Int((9*Rnd) + 48))
            Case 2        \'Stor
                RandomPwd = RandomPwd & Chr(Int((25*Rnd) + 65))
            Case 3        \'Lille
                RandomPwd = RandomPwd & Chr(Int((25*Rnd) + 97))
        End Select
    Next
End Function

autoPassWd = RandomPwd(8)
\'Sæt denne til brugerens email adresse
usrEmailAdress = Request.Querystring=(\"email\")

\'Sæt det ind i databasen
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"/cgi-bin/users.mdb\")
Conn.Open DSN

conn.Execute(\"INSERT INTO users (email, pwd) VALUES (\'\" & usrEmailAdress & \"\', \'\" & autoPassWd & \"\')\")

conn.close()

\'Send en email
Dim myMail
Set myMail = Server.CreateObject(\"CDONTS.NewMail\")
\'Husk at sætte ønsket email adresse
myMail.From = \"donslund@vorbasse.dk\"
myMail.To = usrEmailAdress
myMail.Subject = \"Password\"
myMail.Body = autoPassWd
myMail.Send
Set myMail = Nothing

else

\' Send til Access Denied
Response.Redirect \"accdenied.asp\"

End if

%>

Den går i stå ved linje 26.

Der opstod en Microsoft VBScript-kompileringsfejl fejl \'800a0400\'

En sætning var ventet

/gen_pwd.asp, linje 26

Option Explicit

Hvis du anvender Option Explicit skal det være den første script linie i din kode. Det den gør, er at fortælle ASP fortolkeren at alle variable skal explicit deklareres, dvs. med Option Explicit kan du ikke referere en variabel der ikke er angivet med Dim.