Random??

Skal det være cifre eller bogstaver?

det er lidt ligemeget..

...hvorfor laver du det ikke selv ?!?

\'****************************
    FUNCTION getNewPassword(construction)
\'****************************

\'*  1 : Konsonant
\'*  2 : Vokal

DIM i, forslag, newChar, kon, vok
DIM validpassword
validpassword = false

FOR i=1 TO Len(construction)
  IF Mid(construction, i, 1) = 1 THEN
    kon = konsonant(kon)
    forslag = forslag & kon
  ELSE
    vok = vokal(vok)
    forslag = forslag & vok
  END IF
NEXT

getNewPassword = forslag
\'****************************
    END FUNCTION    \' getNewPassword
\'****************************



\'****************************
    FUNCTION konsonant (sidsteKonsonant)
\'****************************
CONST konsonanter = \"bcdfghjklmnpqrstvwxz\"
DIM  nykonsonant

nykonsonant = sidsteKonsonant

Randomize
DO UNTIL nykonsonant <> sidsteKonsonant
  nykonsonant = MID(konsonanter, fix(Rnd()*LEN(konsonanter) + 1), 1)
LOOP

konsonant = nykonsonant
\'****************************
    END FUNCTION    \' konsonant
\'****************************



\'****************************
    FUNCTION vokal(sidsteVokal)
\'****************************
CONST vokaler = \"aeiouy\"\' æøå\"
DIM  nyvokal

nyvokal = sidsteVokal

Randomize
DO UNTIL nyvokal <> sidsteVokal
  nyvokal = MID(vokaler, fix(Rnd()*LEN(vokaler) + 1), 1)
LOOP

vokal = nyvokal
\'****************************
    END FUNCTION    \' vokal
\'****************************

øhhh fater ik så meget asp...

var det muligt du kunne lave det??

<%
kodeord = int(rnd*1000)
%>

Her er din kode: <%=kodeord%>

Det er altså kun med tal, håbe det kan bruges...

Lave det... du har lige fået ALT kode!

password = getNewPassword(\'1212\')