Como encryptar y desencriptar para una tabla de usuarios y passwords

26/05/2004 - 14:29 por Luis E Valencia | Informe spam
Tengo este codigo cuando el usario se registra

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open strconn
login = Trim(request.form("login"))

'password= Cstr(EncryptString(Trim(request.form("password"))))


Randomize
RandomNumber = Int(Rnd * 100000) + 1
activacion = Cstr(RandomNumber)
response.write password
tipousuario = request.form("usuario")
fechanacimiento = request.form("fechanacimiento")
nombrereal = Trim(request.form("nombrereal"))
email = Trim(request.form("email"))
set rs = server.CreateObject("adodb.recordset")
sql= "select * from tblusuarios where login='"&login&"'"
rs.open sql, Conn, 2, 3

if not rs.eof then
response.write "Este usuario ya existe"
rs.close
set rs =nothing
conn.close
set conn= nothing
else
rs.addnew
rs("login") = login
rs("contraseña") = Conn.Execute("SELECT pwdencrypt('" &
Trim(request.form("password")) & "')")(0)
rs("clavedeactivacion") = activacion
rs("nombrereal") = nombrereal
rs("tipousuario") = "Usuario"
rs("aprobado") = "NO"
rs("fechanacimiento") = Cdate(fechanacimiento)
rs("emaiL") = email
rs.update
rs.close
set rs = nothing
response.write "En los proximos minutos le llegara un correo con la
activacion"
end if


Y este codigo para verificar si el password es igual al que digito cuando va
a activar su membresia

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open strconn
usuario = request.form("login")
contrasena = Trim(request.form("contraseña"))
codigodeactivacion = Trim(request.form("CodigodeactivacioN"))
set rs = server.createobject("adodb.recordset")
sql = "select * from tblusuarios where login = '"&usuario&"'"
rs.open sql, Conn
if rs.eof then
response.write "Usuario Invalido"
rs.close
set rs=nothing
conn.close
set conn=nothing
else
if Cstr(codigodeactivacion)=Trim(rs("clavedeactivacion")) then
resp = conn.execute("SELECT pwdcompare('"&contrasena&"', '" &
Trim(rs("contraseña")) & "', 0)")(0)
if resp=1 then
sql="update tblusuarios set aprobado='SI' where id="&rs("id")&""
conn.execute(sql)
conn.close
else
response.write "Los passwords no son iguales"
end if
else
response.write "Codigo de activacion Invalido"
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
end if




Pero a pesar de que digito la misma contraseña siempre dice que los
Passwords no son iguales. Alguna ayuda.
 

Leer las respuestas

#1 Adrian D. Garcia
26/05/2004 - 16:06 | Informe spam
Creo que en el grupo de Visual Basic podran responderte mejor y mas rapido.

Saludos

Adrian D. Garcia
NDSoft
MCSD
"Luis E Valencia" escribió en el mensaje
news:
Tengo este codigo cuando el usario se registra

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open strconn
login = Trim(request.form("login"))

'password= Cstr(EncryptString(Trim(request.form("password"))))


Randomize
RandomNumber = Int(Rnd * 100000) + 1
activacion = Cstr(RandomNumber)
response.write password
tipousuario = request.form("usuario")
fechanacimiento = request.form("fechanacimiento")
nombrereal = Trim(request.form("nombrereal"))
email = Trim(request.form("email"))
set rs = server.CreateObject("adodb.recordset")
sql= "select * from tblusuarios where login='"&login&"'"
rs.open sql, Conn, 2, 3

if not rs.eof then
response.write "Este usuario ya existe"
rs.close
set rs =nothing
conn.close
set conn= nothing
else
rs.addnew
rs("login") = login
rs("contraseña") = Conn.Execute("SELECT pwdencrypt('" &
Trim(request.form("password")) & "')")(0)
rs("clavedeactivacion") = activacion
rs("nombrereal") = nombrereal
rs("tipousuario") = "Usuario"
rs("aprobado") = "NO"
rs("fechanacimiento") = Cdate(fechanacimiento)
rs("emaiL") = email
rs.update
rs.close
set rs = nothing
response.write "En los proximos minutos le llegara un correo con la
activacion"
end if


Y este codigo para verificar si el password es igual al que digito cuando


va
a activar su membresia

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open strconn
usuario = request.form("login")
contrasena = Trim(request.form("contraseña"))
codigodeactivacion = Trim(request.form("CodigodeactivacioN"))
set rs = server.createobject("adodb.recordset")
sql = "select * from tblusuarios where login = '"&usuario&"'"
rs.open sql, Conn
if rs.eof then
response.write "Usuario Invalido"
rs.close
set rs=nothing
conn.close
set conn=nothing
else
if Cstr(codigodeactivacion)=Trim(rs("clavedeactivacion")) then
resp = conn.execute("SELECT pwdcompare('"&contrasena&"', '" &
Trim(rs("contraseña")) & "', 0)")(0)
if resp=1 then
sql="update tblusuarios set aprobado='SI' where id="&rs("id")&""
conn.execute(sql)
conn.close
else
response.write "Los passwords no son iguales"
end if
else
response.write "Codigo de activacion Invalido"
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
end if




Pero a pesar de que digito la misma contraseña siempre dice que los
Passwords no son iguales. Alguna ayuda.



Preguntas similares