USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Enviando senha aleatória para e-mail do usuário.
Postada em 7/10/2003 por ^HEAVY-METAL^            
<%

' Primeiro lugar é necessário recuperar os dados
' email do usuário, nome, login para efetuar uma
' tarefa desse tipo.
' Recuperando os dados

strEmail = Request.Form("Email")

strNome = Request.Form("Nome")

strLogin = Request.Form("Login")

' Agora vamos criar a senha para este usuário
' que esta sendo cadastrado
' Em primeiro lugar vamos criar uma função chamada GerarChave()
' esta função ira criar e definir um array  alfanumérico de
' 0 a 9 e A a Z.

Function GerarChave(valores)

Dim chr_Array(35)

chr_array(0)      =     "0"

chr_array(1)     =     "1"

chr_array(2)     =     "2"

chr_array(3)     =     "3"

chr_array(4)     =     "4"

chr_array(5)     =     "5"

chr_array(6)     =     "6"

chr_array(7)     =     "7"

chr_array(8)     =     "8"

chr_array(9)     =     "9"

chr_array(10)     =     "A"

chr_array(11)     =     "B"

chr_array(12)     =     "C"

chr_array(13)     =     "D"

chr_array(14)     =     "E"

chr_array(15)     =     "F"

chr_array(16)     =     "G"

chr_array(17)     =     "H"

chr_array(18)     =     "I"

chr_array(19)     =     "J"

chr_array(20)     =     "K"

chr_array(21)     =     "L"

chr_array(22)     =     "M"

chr_array(23)     =     "N"

chr_array(24)     =     "O"

chr_array(25)     =     "P"

chr_array(26)     =     "Q"

chr_array(27)     =     "R"

chr_array(28)     =     "S"

chr_array(29)     =     "T"

chr_array(30)     =     "U"

chr_array(31)     =     "V"

chr_array(32)     =     "W"

chr_array(33)     =     "X"

chr_array(34)     =     "Y"

chr_array(35)     =     "Z"

' 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 10 o loop continua gerando ela.

do while len(chave) < 10

num = chr_array(Int(35 * Rnd ))

chave = chave + num

loop

' Chave gerada com sucesso então definimos a
' função GerarChave

GerarChave = chave

End Function

' Finalizando a função
' Agora vamos armazenar a senha do usuário na
' variável strSenha
' Obs: O número dez significa o tamanho da senha em
' carateres que será criado

strSenha = GerarChave(10)

' Agora vamos enviar por email imediatamente a
' senha e o seus dados de cadastro
' Utilizaremos o ASPMail como exemplo

Set objMail = Server.Createobject("CDONTS.Newmail")

objMail.RemoteHost = "smtp.do.provedor.com.br" ' SMTP do provedor

objMail.FromName = "Cláudio Hickstein"

objMail.FromAddress = "Webmaster@aspsemdemora.net"

objMail.AddRecipient strEmail, strNome

objMail.Subject = "Seu cadastro no Site"

' Vamos pré-formatar a mensagem que será

' enviada para o usuário

strBody = "Olá " & strNome & ", " & vbcrlf & vbcrlf

strBody = strBody & "Bem vindo ao site!" & vbcrlf & vbcrlf

strBody = strBody & "Sua Senha é: " & strSenha

' Definimos o corpo

objMail.BodyText = strBody
objMail.SendMail

  ' Email enviado com a senha para o usuário cadastrado

  Set objMail = nothing

  ' Fim :)
%>

T+,

 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página