Sistema de Login que utilize hash (md5)

[DionDu 0]

Olá, alguém sabe onde posso encontrar um sistema de login que utilize hash (md5) onde tenha a lógica do login, do cadastro e da geração de nova senha para envio ao usuário?

 

Att

 

Fernando

[xanburzum 169]

olha este exemplo

 

Username: teste
Password: teste
Encriptado: 05a671c66aefea124cc08b76ea6d30bb no databse.

<!--#include file="md5.asp"-->
<%
'filepath = Server.MapPath(Seu DB Access File)
dim filepath
filePath = Server.MapPath("seudir/seufile.mdb")

'PWD definido no banco de dados Access
PWD = "password"

strConnect = "Provider=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)};"& _
"DBQ=" & filepath & ";" & _
"password=" & PWD & ";"

Dim conn,rs,strsql, form_username, form_password
set conn = server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")
conn.Open AdmConnect

form_username = request.form("username")
form_password = request.form("password")

epassword = form_username + form_password

'parse the password throught the md5.asp file
password = md5(epassword)

strsql = "Select * From tblusers where username = '" & Request.Form("username") & "' and Password = '" & password & "'"
set rs = conn.Execute (strsql)
......


-----------Adicionando um novo registro para a tabela de usuário e encypting e salga a senha

'senha antes de criptografar
strpassword = password + form_username

'senha antes encypting
strpassword = form_username + form_password

set cn = server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")
cn.Open AdmConnect

rs.open "tblusers", cn, adOpenKeySet, adLockPessimistic, adCmdTable
'add database
rs.AddNew
rs("username") = form_username
rs("firstname") = form_fname
rs("lastname") = form_lname
rs("email") = form_email
rs("password") = md5(strpassword)
rs("status") = "Active"
rs("authid") = form_permissions
rs.Update
rs.MoveLast

Dim strID
strID = rs("recordid")