Generer en licensnøgle

keyss = "abcdefghijklmnopqrstuvwxyz0123456789"
Randomize
For i = 1 to 20
  keys = keys & mid(keyss,round(rnd*35)+1,1)
Next

counter = 1
Do while counter < Len(keys)
    udskriv=udskriv&Mid(keys, counter, 4) & "-"
counter = counter + 4
Loop

udskriv=Left(udskriv,Len(udskriv)-1)

response.write udskriv


Kunne være en løsning

Følgende gør det:
---------------------------------
<%Randomize()
aChars="a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,w,v,x,y,z,0,1,2,3,4,5,6,7,8,9"
aChars=Split(aChars,",")
iLength=20
For i=1 To iLength
    sKey=sKey&aChars(Int(Rnd()*UBound(aChars))+1)
    If Len(i/4)=1 And i<iLength Then sKey=sKey&"-"
Next
Response.Write sKey%>

Men det kan selvfølgelig også gøres mere kompakt:
-------------------------------------------------
<%Randomize()
sChars="a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,w,v,x,y,z,0,1,2,3,4,5,6,7,8,9"
For i=1 To 20
    sKey=sKey&Mid(sChars,Int(Rnd()*Len(sChars))+1,1)
    If Len(i/4)=1 And i<20 Then sKey=sKey&"-"
Next
Response.Write sKey%>

men w13's løsning er dog kortere, så tag du den:)

Hov, den sidste skulle så være:
-------------------------------
<%Randomize()
sChars="abcdefghijklmnopqrstuwvxyz0123456789"
For i=1 To 20
    sKey=sKey&Mid(sChars,Int(Rnd()*Len(sChars)),1)
    If Len(i/4)=1 And i<20 Then sKey=sKey&"-"
Next
Response.Write sKey%>

Hej w13, somme tider giver din løsning denne fejl ved reload,

Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument: 'Mid'
/key.asp, line 4

Kan du se hvad der går galt, tak.

Jeg tror bare, det skal være følgende så:

<%Randomize()
sChars="a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,w,v,x,y,z,0,1,2,3,4,5,6,7,8,9"
For i=1 To 20
    sKey=sKey&Mid(sChars,Int(Rnd()*Len(sChars)),1)
    If Len(i/4)=1 And i<20 Then sKey=sKey&"-"
Next
Response.Write sKey%>

Det fylder også to tegn mindre. =)

En licensnøgle plejer normalt at have en indbygget mekanisme sådan at programmet kan tjekke om det er en lovlig nøgle, eller om det blot er en række tilfældige tal og bogstaver som er blevet indtastet. Jeg synes ikke rigtig at nogen af de foreløbige løsninger tager højde for det.

Og det skulle være uden kommaer:
--------------------------------
<%Randomize()
sChars="abcdefghijklmnopqrstuwvxyz0123456789"
For i=1 To 20
    sKey=sKey&Mid(sChars,Int(Rnd()*Len(sChars)),1)
    If Len(i/4)=1 And i<20 Then sKey=sKey&"-"
Next
Response.Write sKey%>
--------------------------------
Nielle>> Jeg går da ud fra, at denne licensnøgle gemmes i databasen, så når den indtastes af brugeren, kan den slåes op deri og bekræftes.

Hej Nielle, det var ikke tanken der skulle genereres en licensnøgle ud fra navn, email osv, jeg har blot brug for en lille funktion der kunne generere en række tilfældige tal og tegn som en licensnøgle.

Herefter bliver der slået op i en tabel og tjekket for dubletter.

Tak for hjælpen