[Resolvido] Software de autopreenchimento de senhas aleatórias

[Arthur Webdesigner 0]

Olá, tenho vários usuários cadastrados em um banco de dados Access, e antes do natal irei disponibilizar um sistema para que possam alterar os dados de registro com senha. Porém terei que criar uma senha para cada usuário. Como são vários usuários (400 aproximadamente), será que alguém conhece um software que preenche automaticamente uma coluna do BD com senhas aleatórias?

Valeu, abraço http://forum.imasters.com.br/public/style_emoticons/default/natal_wink.gif

[xanburzum 169]

existem funcoes no lab. de script para geracao de senha automaticamente e aleatoriamente

[Arthur Webdesigner 0]

valeu, vou ver o que consigo fazer

falou abraço

[xanburzum 169]

olha um exemplo

 

<%

     Function gen_pass(max_num)

     dim gen_array(62)
  
     gen_array(0) = "0"
     gen_array(1) = "1"
     gen_array(2) = "2"
     gen_array(3) = "3"
     gen_array(4) = "4"
     gen_array(5) = "5"
     gen_array(6) = "6"
     gen_array(7) = "7"
     gen_array(8) = "8"
     gen_array(9) = "9"
     gen_array(10) = "A"
     gen_array(11) = "B"
     gen_array(12) = "C"
     gen_array(13) = "D"
     gen_array(14) = "E"
     gen_array(15) = "F"
     gen_array(16) = "G"
     gen_array(17) = "H"
     gen_array(18) = "I"
     gen_array(19) = "J"
     gen_array(20) = "K"
     gen_array(21) = "L"
     gen_array(22) = "M"
     gen_array(23) = "N"
     gen_array(24) = "O"
     gen_array(25) = "P"
     gen_array(26) = "Q"
     gen_array(27) = "R"
     gen_array(28) = "S"
     gen_array(29) = "T"
     gen_array(30) = "U"
     gen_array(31) = "V"
     gen_array(32) = "W"
     gen_array(33) = "X"
     gen_array(34) = "Y"
     gen_array(35) = "Z"
     gen_array(36) = "a"
     gen_array(37) = "b"
     gen_array(38) = "c"
     gen_array(39) = "d"
     gen_array(40) = "e"
     gen_array(41) = "f"
     gen_array(42) = "g"
     gen_array(43) = "h"
     gen_array(44) = "i"
     gen_array(45) = "j"
     gen_array(46) = "k"
     gen_array(47) = "l"
     gen_array(48) = "m"
     gen_array(49) = "n"
     gen_array(50) = "o"
     gen_array(51) = "p"
     gen_array(52) = "q"
     gen_array(53) = "r"
     gen_array(54) = "s"
     gen_array(55) = "t"
     gen_array(56) = "u"
     gen_array(57) = "v"
     gen_array(58) = "w"
     gen_array(59) = "x"
     gen_array(60) = "y"
     gen_array(61) = "z"

     Randomize
' ------- Gerar a seqüência até o comprimento de max_num for cumprida ------
     do while len(output) < max_num
          num = gen_array(Int((61 - 0 + 1) * Rnd + 0))
          output = output + num
     loop

' ------- resultado da função ------

     gen_pass = output
     End Function


     If Request.Form ("NUMGEN") <> "" THEN
       intGEN = CInt(Request.Form ("NUMGEN"))
       response.write "<pre>"&intGEN &" senha gerada= " & gen_pass(intGEN) & "</pre>" & vbcrlf
     end if  
        
    
%>
<pre>
   o = the letter "o"
   O = the Capital letter "O"
   0 = zero
   l = letter "l"
   1 = nuber 1
</pre>
<FORM NAME=FORM1 METHOD="POST" ACTION="PASSWORD.ASP">
<SELECT NAME="NUMGEN" OnChange="this.form.submit();">
<OPTION VALUE=""> Selecione o número de caracteres...
<OPTION VALUE="4"> Gerar 4 caractere de senha
<OPTION VALUE="8"> Gerar 8 caractere de senha
<OPTION VALUE="10"> Gerar 10 caractere de senha
<OPTION VALUE="15"> Gerar 15 caractere de senha
<OPTION VALUE="20"> Gerar 20 caractere de senha
</SELECT>
</FORM>

[Arthur Webdesigner 0]

valeu xanburzum, eu consegui aqui, gerei as senhas necessárias e e colei pro BD, deu certo

valeu mais uma vez, abraço