automatisk kodeord

ja det kunne jeg også godt tænke mig... altså du mener det med en tilfældig kode hver gang??

denne her laver det random password :)

<%
Dim Randchar, string, StrLen
StrLen=8

DO UNTIL Len(string)=StrLen
Randomize
Randchar = Int(Rnd*122)+1
IF (Randchar>64 AND Randchar<91) OR (Randchar>96 AND Randchar<123) OR (Randchar>47 AND Randchar<58) THEN
string=string & chr(Randchar)
END IF
LOOP

Response.Write string
%>

--> grunken
Virker den også til tilfældig brugernavn?

Ingen problem :)

men for at være helt ærlig så giv folk et brugernavn der er mere logisk :)

ex. user2012 altså : user + databaseID

tja... god ide :)

Samme koncept men her kan du hurtigt angive hvilke karakter som er gyldige i passwordet også lagt i en function.


function lavPassword(antal)
  tilladtkarakter = "abcdefghijklmnopqrstuvwxyz1234567890"
  str = ""
  for i = 1 to antal
    randomize
    index = Int(rnd * len(tilladtkarakter))+1
    str = str & Mid(tilladtkarakter,index,1)
  next
  lavPassword = str
end function


Response.Write "Test : " & lavPassword(9) & "<br>"

Hvorlange er disse kodeord så??

I det eks jeg har vist angiver du det i functions kaldet. Det skriver man antallet af karakter man vil havde:

lavPassword(9)  giver et password på 9 karakter.


Det som grunken har lavet angives det i denne linje:
StrLen=8
Og det er så 8 karakter.

I mit tilfæde er det StrLen=8(antal karakterer)

I eagleeyes tilfælde er det lavPassword(9) <-- tallet i parantesen der angiver længden !

2 slow ;)

--> eagleeye

øh... jeg har lige et problem...
hvordan får jeg den ned i databasen... den skal ikke i browseren (kun sendes pr mail og ned i databasen)

Så i stedet for Response.write så kan du ligge det ind i en variable som du gemmer i databasen eller sender med mail:

dim nytpassword

nytpassword = lavPassword(9)

SQL = "INSERT INTO xxx (navn, pass) VALUES ('"&brugernavn&"','" & nytpassword & "')"
osv.

øh...:D

hjælp....

hvad med noget der ligner denne?
rs("password") = strPassword

Ja ok, så får du passwordet ind sådan her:

strPassword = lavPassword(9)

rs("password") = strPassword

det virker sku... :)
men eagleeye du skal lige svare med mindre jeg skal beholde pointene...

Ok det gøre jeg da gerne :)

æv... nu havde jeg lige set frem til at beholde dem.... :)