Como generar una cadena de letras aleatorias...

Iniciado por Danieldark, 15 Agosto 2007, 04:46 AM

0 Miembros y 1 Visitante están viendo este tema.

HaDeS, -

Cita de: Sirdarckcat en 17 Agosto 2007, 05:27 AM
62!!!!

Código (javascript) [Seleccionar]
s=i="9";while(i--){s+=(location+"")[(new Date).getTime()%9^i]}

^^ aunqe la cadena no es muy aleatoria xD

Empate ^^

Código (vb) [Seleccionar]

Sub r():While Len(a)<Len(t):a=a &Chr(Rnd*65):Wend:t=a
End Sub


t=por ejemplo text1
tiene tambien una limitacion, y es que mas o menos a las 100 llamadas a las funciones, los valores se comienzan a poner a cero, y ni idea de porque xD.
saludos!

HaDeS, -

#11
Cita de: .HaDeS. en 17 Agosto 2007, 05:53 AM
Cita de: Sirdarckcat en 17 Agosto 2007, 05:27 AM
62!!!!

Código (javascript) [Seleccionar]
s=i="9";while(i--){s+=(location+"")[(new Date).getTime()%9^i]}

^^ aunqe la cadena no es muy aleatoria xD

Empate ^^

Código (vb) [Seleccionar]

Sub r():While Len(a)<Len(t):a=a &Chr(Rnd*65):Wend:t=a
End Sub


t=por ejemplo text1
tiene tambien una limitacion, y es que mas o menos a las 100 llamadas a las funciones, los valores se comienzan a poner a cero, y ni idea de porque xD.
saludos!

Bueno, definitiva :P, como sirdar no estaba usando funciones, entonces pego la mia sin funcion, y tampoco le sacaba de la longitud de otra cadena xD ahi va
Código (vb) [Seleccionar]

While Len(a)<9:a=a &Chr(Rnd*65):Wend:t=a

Total caracteres: 40


sirdarckcat - G3 [[ sirdarckcat.net ]] dice:
ya, me ganaste xD, me rindo