Keygenerator maken

[Niicky]

Goedemorgen,

Ik heb een klein vraagje, hoe maak ik een "Keygen" in asp. Ik heb dit nodig omdat de klanten die een inlogaccount willen aanmaken eerst een activatiesleutel moeten invoeren.
Na dat deze sleutel is gegenereerd wordt hij verzonden via email.

De sleutel bestaat Letters en cijfers. Hiervan worden er 20 aangemaakt. De cijfers zullen 0 t/m 9 zijn en de letters A t/m Z. Hier zullen zich ook hoofdletters in bevinden.

- Voorbeeld : X8k5V1os18Ps0q3Mz4gl

Ik weet wel ongeveer hoe ik de cijfers kan krijgen via : (CInt(Rnd * (8) + 1))

maar hoe krijg ik de letters er tussen?

Alvast bedankt! :thumb:

Nick van Dam

 

[Niicky]

Het is al gelukt :thumb:.

Voor de mensen die het zelfde zoeken :

Function generatePassword()
NUMLOWER = 48 ' 48 = 0
NUMUPPER = 57 ' 57 = 9
LOWERBOUND = 65 ' 65 = A
UPPERBOUND = 90 ' 90 = Z
LOWERBOUND1 = 97 ' 97 = a
UPPERBOUND1 = 122 ' 122 = z
PASSWORD_LENGTH = 20


' initialize the random number generator
newPassword = ""
count = 0
DO UNTIL count = PASSWORD_LENGTH
Randomize()
If count=4 or count =5 or count=9 or count=11 or count=14 or count=18 Then
pwd = Int( ( NUMUPPER - NUMLOWER ) * Rnd + NUMLOWER )
Else
' generate a num between 2 and 10 ;
' if num > 4 create an uppercase else create lowercase
If Int( ( 10 - 2 + 1 ) * Rnd + 2 ) > 4 Then
pwd = Int( ( UPPERBOUND - LOWERBOUND + 1 ) * Rnd + LOWERBOUND )
Else
pwd = Int( ( UPPERBOUND1 - LOWERBOUND1 + 1 ) * Rnd + LOWERBOUND1 )
End If
End If

newPassword = newPassword + Chr( pwd )
count = count + 1
Loop

generatePassword = newPassword
End Function
Serial = generatePassword

Groetjes,

Nick van Dam

 

[JHx]

Ik vind jou code toch wel een beetje overbodig ingewikkeld :shocked:
Onderstaande code doet precies hetzelfde, maar is wat eenvoudiger.
Door bron="..." en paswoord_lengte=... aan te passen kan je gemakkelijk de vorm van het paswoord aanpassen.

<%
function GenereerPaswoord()
  bron="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
  paswoord_lengte=20
  nieuw_paswoord=""
  bron_lengte=len(bron)
  randomize()
  for i=1 to paswoord_lengte
    nieuw_paswoord=nieuw_paswoord+mid(bron,cint(rnd*bron_lengte)+1,1)
  next
  GenereerPaswoord=nieuw_paswoord
end function
%>

 

[Niicky]

Deze code hing nog erger rond op de server, werd me ook pas verteld op het laatste moment.

Maar bedankt voor je reactie, alles loopt perfect! :thumb:

groetjes

Nick