Generér tilfældigt password

hvad med denne:
<%
    randomize
    pwdlen=10     
    pwd=""
    pwdchr="abcdefghjkmpqrstuvwxyz123456789" 
    chrlen=len(pwdchr)
    for n=1 to pwdlen
    x=Int((chrlen - 1 + 1) * Rnd + 1)
    pwd=pwd & mid(pwdchr,x,1)
    next
response.write pwd
%>

\Dan

Denne bygger et password på følgende måde:

kvkttkvk

k=konsonant v=vokal t=tal

f. eks. mir24top d.v.s at kodeordet altid er til at udtale og
dermed nemmere at huske. Du kan teste det på http://www.ffforening.dk
på "Din side"

<znip>
Function LavEnVokal()
'------------------
' Rettet 27-01-2005
'------------------
Dim arrVokal, iPP
    'Randomize
    iPP = Int(6 * Rnd)
    arrVokal = Array("a", "e", "i", "o", "u", "y")
    LavEnVokal = arrVokal(iPP)
End Function

Function LavEnKonsonant()
'------------------
' Rettet 27-01-2005
'------------------
Dim arrKonsonant, iPP
    Randomize
    iPP = Int(18 * Rnd)
    arrKonsonant = Array("b", "c", "d", "f", "g", "h", "j", "k", "l", "m", "n", "p", "r", "s", "t", "v", "x", "z")
    LavEnKonsonant = arrKonsonant(iPP)
End Function

Function LavEtKodeOrd()
Dim Kode
    Kode = Kode & LavEnKonsonant()
    Kode = Kode & LavEnVokal()
    Kode = Kode & LavEnKonsonant()
    if datepart("s",now()) < 10 then
        Kode = Kode & "0" & datepart("s",now())
        else
        Kode = Kode & datepart("s",now())
    end if
    Kode = Kode & LavEnKonsonant()
    Kode = Kode & LavEnVokal()
    Kode = Kode & LavEnKonsonant()
    LavEtKodeOrd = cstr(Kode)
End Function
</znip>

Mange tak til jer begge! =D Jeg har benyttet en løsning, som kombinerer begge jeres koder.. Så hvis du osse lige opretter et svar, Dannielsen, så kan i begge få point. =)

- OK - her et svar...

\Dan