Gera senha, mas números diferentes

[AlexCT 0]

Preciso de uma ajuda, meio que URGENTE.

 

pois estou usando este código para gerar senhas de 4 caracteres com numeros 1 , 3 , 5 e 7

 

mas eu gostaria de fazer uma forma que os numeros naos e repetissem.

De forma que não seja possivel gerar numeros Ex.: 1557 ou 5557 ou 3333 ou 1371

 

Que entre os 4 numeros, nenhum se repetisse na senha, sempre sendo obrigatório aparecer ou numeros 1, 3, 5 e 7

 

Já tentei varios recursos e nao tive sucesso.

 

'######## GERA SENHA  #########Function GerarChave(valores)Dim chr_Array(4)        chr_array(0)  =	"1"  chr_array(1)	=	"3"  chr_array(2)	=	"5"  chr_array(3)	=	"7"' Agora vamos fazer um Randomize em todo Array	Randomize' Ok, feito a bagunça no Array vamos preparar' para gerar a senha' Enquanto a chave tiver a quantidade de caracteres' menor que 4 o loop continua gerando ela.     do while len(chave) < 4               num = chr_array(Int(4 * Rnd ))      chave = chave + num    loop	GerarChave = chaveEnd Function%>

[Salgado 4]

Crie um outro array para armazenar os numeros que sairam e assim você pode testar.

[AlexCT 0]

Crie um outro array para armazenar os numeros que sairam e assim você pode testar.

não entendi...cara jã tentei de tudo... esta F.....estou quebrando a cabeça e nada....

[AlexCT 0]

alguém pode me dar uma ajuda?????

[d.eleete 0]

Naum pode repetir nunca?

[AlexCT 0]

Naum pode repetir nunca?

o mesmo numero na senha nao exemplo é usado 1 , 3, 5 e 7a senha é de 4 digitoscada numero tem que pararecer, nenhum pode aparecer duas vezestornando muitas senhas impossiveis tipo 1111 1137 7357pois repete numerossendo obrigado a ficar ex: 1357 7531 3571 5713

[AlexCT 0]

tentei fazer uma adaptaão para o que quero no código descrito acima, mas nao consegui.... o que errei?

 

    Dim num2    num2 = 10     do while len(chave) < 4     	         num = chr_array(Int(4 * Rnd ))            do            Select Case num               Case Mid(chave,1,1)                   num2 = chr_array(Int(4 * Rnd ))               Case Mid(chave,2,1)                   num2 = chr_array(Int(4 * Rnd ))               Case Mid(chave,3,1)                  num2 = chr_array(Int(4 * Rnd ))             end select     loop While num = num2        chave = chave + num    loop  

[Aeglos 0]

Tenta esse aqui:

Note o If no seu loop

<%######## GERA SENHA  #########'Function GerarChave(valores)Dim chr_Array(4)       chr_array(0)  = "1" chr_array(1) = "3" chr_array(2) = "5" chr_array(3) = "7"' Agora vamos fazer um Randomize em todo ArrayRandomize' Ok, feito a bagunça no Array vamos preparar' para gerar a senha' Enquanto a chave tiver a quantidade de caracteres' menor que 4 o loop continua gerando ela.    do while len(chave) < 4             num = chr_array(Int(4 * Rnd ))     If num <> Right(chave,1) Then chave = chave + num   loopGerarChave = chaveEnd Function%>

[AlexCT 0]

s s s

[AlexCT 0]

Valeu pela ajuda, Mas nao funcionou, continua repetindo !entendi o que tentou fazer, mas o problema que ele só compara o ultimo numero da palavra chave e nao verifica os anteriores. ;) se alguem tiver algum sugestão!

[AlexCT 0]

Valeu pela ajuda, Mas nao funcionou, continua repetindo !entendi o que tentou fazer, mas o problema que ele só compara o ultimo numero da palavra chave e nao verifica os anteriores. ;) se alguem tiver algum sugestão!