求教：输入邮箱找回密码的原理？
密码是md5加密的不可逆算法
输入用户名和邮箱地址后，将密码发送到邮箱！
（最好不修改原密码）

------解决方案--------------------
那就在数据库中再加一个字段 存上原来的不加密的密码 到时候就查出来给发过去
------解决方案--------------------
需要直接发送用户名及其原密码？
或只发送一个修改密码的链接让用户回来改？

楼主的难点在发邮件？
在密码解密？
或整个流程？
------解决方案--------------------
如果你没保存没加密的密码的话，那基本上不可能把原密码解密后发出去的

这样做的原理基本上是
输入用户名和邮箱后，随机生成一个密码，更新数据库密码字段，把新生成的密码用邮件发出去
------解决方案--------------------
附送一段发邮件的JMAIL代码

''发送电子邮件函数
'siteEmail 发送方邮箱
'smtp 邮箱主机地址
'emailUserName 邮箱用户名
'emailUserPWD 邮箱密码
'inceptEmail 接受邮件的邮箱地址
'sendName 发送人的名称
'sendTitle 邮件标题
'sendContent 邮件正文
sub EmailSend(siteEmail,smtp,emailUserName,emailUserPWD,inceptEmail,sendName,sendTitle,sendContent)
dim jmail
set jmail = CreateObject ("jmail.message") ''创建对象
jmail.Silent = true ''一般不用改
jmail.Charset = "gb2312" ''信件的语言编码
jmail.ContentType = "text/html" ''信件的格式html或纯文本
jmail.From = siteEmail ''发信人邮箱
jmail.FromName = sendName ''发信人姓名
jmail.Subject = sendTitle ''信件主题
jmail.AddRecipient inceptEmail ''收信人地址
jmail.Body = sendContent ''信件正文
jmail.MailServerUserName = emailUserName ''服务器登陆用户名(您的邮件地址)
jmail.MailServerPassWord = emailUserPWD ''服务器登陆密码(您的邮件密码)
jmail.Send(smtp) ''服务器地址
jmail.Close
set jmail = nothing
end sub
------解决方案--------------------

探讨

那就在数据库中再加一个字段 存上原来的不加密的密码 到时候就查出来给发过去

------解决方案--------------------
www.jcja0707.com
------解决方案--------------------
大哥，我没权力又没关系，但想要既轻松又赚钱的工作，有没有？
有是有，但那是要付出代价的，自己去想！！！！！！
真的服了现在的“程序员”！！！！！！！！！！！！！！！！！！！！！！！！

探讨

密码是md5加密的不可逆算法
输入用户名和邮箱地址后，将密码发送到邮箱！
（最好不修改原密码）

------解决方案--------------------
http://blog.csdn.net/ahshow/archive/2007/12/25/1965981.aspx
------解决方案--------------------
MD5不可逆，但是在设计数据库时很定有权限分配的，有一张表是存没有加密过的密码，有权限的人才能去查看，普通表时事加密的，一般管理人员无法查看。。。我想应该是这样。。。
------解决方案--------------------

探讨

看来大家的意见是只能去修改密码了？