Una funzione per la generazione di codici casuali
Ecco una funzione per la generazione di codici casuali.
E' sufficiente specificare il valore massimo e minimo dei codici ASCII corrispondenti ad i simboli ammessi, in questo caso tutte le lettere maiuscole e tutti i numeri.
Inoltre, come ultimo parametro bisogna specificare la lunghezza del codice generato.
Uno script di questo tipo può essere utilizzato per assegnare password casuali dopo la registrazione ad un servizio.
<%
Function genera(Max, Min, MaxChar)
Dim controllo, cifra, intRange
' differenza tra estremo sup e inf
intRange = Max - Min
For i = 1 To MaxChar
codice = 58
Randomize()
Do While (codice > 57 And codice < 65)
codice = Int((intRange * Rnd()) + Min)
Loop
cifra = cifra & Chr(codice)
Next
genera = cifra
End Function
Response.Write genera(91, 48, 10)
%>Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
Approfondimenti
Nessuna risorsa collegata
