16 numeros REALMENTE aleatorios

[-_KIKO_- 0]

galera to com um pequeno problema

quase nunca mexi com randomize, rnd, etc...e to com um problema

 

eu fiz um codigo pra gerar uns numeros aleatorios

randomizevalor = rnd(valor)valor = replace(valor,"0,","")response.write clng(valor)

 

problema é que de vez em qdo eles repetem, e outra ta meio esquisito o codigo neh? fiz ele sem querer mas naum tenho otra ideia

 

a ideia mesmo era rotacionar DE VERDADE MESMO uns 16 numeros aleatorios...tpo TERIA QUE SEMPRE TER 16 numeros na repetição

 

do tipo

 

4678546315420150

0316497946132589

3164975412012478

3164979854120365

4785963625147485

1234567890123456

9741364754521457

 

 

entenderam? to me batendo pra fazer coisa tao simples

[Graymalkin 0]

Acho que você poderia fazer assim:

 

randomizev1 = CLng(rnd()*99999999)v2 = CLng(rnd()*99999999)response.write v1 & v2

Certo? ;)

 

Graymalkin

[Holy Demons 0]

Bom ve se te ajuda eu achei esse script aqui algum tempo e sempre uso ele pra gerar senha e tal dei uma modifica nele pra você pois eu sempre uso letras e numeros mais ta ai pra ti dei uma embaralhado nos numeros para ficar mais dificil de ocorrer repetição de numeros ok?

<%Function gera_rand(quantidade)Dim Senha(9) Senha(0) = "3"Senha(1) = "9"Senha(2) = "1"Senha(3) = "7"Senha(4) = "0"Senha(5) = "6"Senha(6) = "4"Senha(7) = "8"Senha(8) = "2"Senha(9) = "5"Randomizedo while len(chave) < quantidadenum = Senha(Int(9 * Rnd ))chave = chave + num loop gera_rand = Trim(chave)end functionResponse.Write gera_rand(16)%>