Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

shumi

Gerar senha automatica

Por , em ASP Clássico

Recommended Posts

shumi    0

shumi
Postado

Galera to precisando fazer um script que gere senha automatica, dei uma pesquisada no forum e achei esse script.

como que eu faço para usa-lo?

eu queria que o user preenchesse o login e quando ele clicasse em enviar gerasse a senha automática...

como que uso o script???

<%Function GeraString(tamString, tipo, tamParte)tamString = Int(tamString)	 'nº de caracteres em cada partetipo = Int(tipo)	   'tipo da String: 1 alfanumérica, 2 = só letras, 3 = númerostamParte = Int(tamParte)	 'nº de partes que será criadaif IsNumeric(tamString)  = False OR tamString = 0 then  tamString = 5end ifif IsNumeric(tipo) = False OR tipo = 0 then  tipo = 1end ifif IsNumeric(tamParte) = False OR tamParte = 0 then  tamParte = 3end ifif tipo = 1 then  MyArr = Array("1","2","3","4","5","6","7","8","9","0","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z")elseif tipo = 2 then  MyArr = Array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z")else  MyArr = Array("1","2","3","4","5","6","7","8","9","0")end iffor d = 1 to tamParte  for i = 1 to tamString   Randomize	StringGerada = StringGerada & MyArr(Int(Rnd*UBound(MyArr)))  next  varRand = StringGerada  if tamParte  = 1 then   StringFinal = StringFinal & "{" & varRand & "}"  else   if d = tamParte then	StringFinal = StringFinal & varRand & "}"   else	if d = 1 then	 StringFinal = StringFinal & "{" & varRand & " - "	else	 StringFinal = StringFinal & varRand & " - "	end if   end if  end if  StringGerada = ""nextGeraString = StringFinalEnd Function%>

<div align='center' style="font-family:verdana; font-size:11px"><%=GeraString(20, 1, 3)%></div>

Valeu!

 

Resolvido valeu!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

CaBo GeL    0

CaBo GeL
Postado

cara esse aki eh melhor pra se usar e muito mais enchuto...

 

para inserir no banco eh moleza... veja bem...

 

qndo você colocar os campos pra o usuario preecher... nesta mesma pagina dentro do FORM do cadastro você usa um INPUT TYPE HIDDEN...

 

----------------------------------

<%

function gera2(valores)

 

validos="0123456789ABCDRFGHIJLMNOPQRSTUVXZ"

 

Randomize

for i=1 to valores

num=mid(validos, int(35 * RND)+1, 1)

chave=chave + num

next

 

gera2=chave

end function

%>

 

---------------------------------

 

<HTML>

 

<FORM method="post" action="pagina_cadastro.asp">

 

Nome:

<input type="text" name="usuario" value="" size="40">

 

<input type="hidden" name="senha" value="<%=gera2(06)%>" size="40">

.

.

.

</form>

</html>

 

---------------------------------

 

com isso você ta criando uma senha para o usuario escondido... ou seja .. sem ele perceber... dai apois ele finalizar o cadastro... você mostra os dados dele, inclusive a senha q foi criada automaticamente...

 

espero q isso tenha te ajudado! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito