Dall'archivio script > Classic ASP

Una funzione per la generazione di codici casuali

di Daniele BochicchioDaniele Bochicchio, in Classic ASP, Coding,

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

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn
Aggiorna

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

I più letti di oggi