Creazione dinamica di pwd

[zoccolo]

Ciao,
dovrei creare dinamicamente una password per un utente
E dovrei usare una codifica particolare.

Sapreste consigliarmi come fare a prendere un carattere a caso (tra quelli che che voglio io) e inserirlo?

Grazie in anticipo

[Roby_72]

Function genera(Max, Min, MaxChar)
	Dim controllo, cifra, intRange
	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

pwd = lcase(genera(91, 48, 10)) '10 = numero caratteri di cui è composta

Roby

[zoccolo]

Non ho capito.
Cosa fa di preciso questo pezzo di codice..

Io ho tre valori

$ e % e &

Ogni volta che si genera la password devo far ein modo che si scriva uno di questi tre caratteri a caso


Ma cos'è lcase?

[Roby_72]

Originariamente inviato da zoccolo
Non ho capito.
Cosa fa di preciso questo pezzo di codice..

Io ho tre valori

$ e % e &

Ogni volta che si genera la password devo far ein modo che si scriva uno di questi tre caratteri a caso


Ma cos'è lcase?

E poi in base a quale principio recuperi la pwd originaria?

Roby

[zoccolo]

L'utente inserisce nel form il nome scelto , quando invia


Si avvia la procedura:

Il primo carattare scelto a caso fra quei 3 le prime sei lettere del nome scritto (delle quali una caso in maiuscolo) una serie di 4 numeri random e nuovamente uno dei tre caratteri a caso.

[rixx]

eh? ma cosè un domanda trabocchetto?
fai un esempio pratico!

[Sammy73]

forse ho capito

simb(0)="$"
simb(1)="%"
simb(2)="&"

randomize()

password=simb(2* Rnd()) & Mid(nome,1,6) (eventualmente riempiendo se <6 ) & 10000 * rnd() (sempre rienpiendo eventuali buchi) & simb(2* Rnd())


Algoritmo stupido ma la logica funza, o no?

[zoccolo]

No io l'ho fatto in altro modo (stupido) ma funzionante

In una stringa ho messo "$%&$%&$%&" , poi con la funzione random e la substring prendo dalla stringa solo il valore che mi interessa.e funziona pure bene..