userli
副版主
帖子
1103
精华
1
无忧币 15423
积分 3306
阅读权限 140
|
发表于:2008-3-23 07:03
标题：在线更改Serv-U密码示例代码
＜上一帖 |
下一帖＞
我们利用Serv-U的obdc功能，可以把FTP用户信息存在数据库中，这样对Web操作方便了很多，下面是在线更改密码的列子，数据库为Access，表和字段的设计请参考Serv-U的帮助文件。 bvv9|!H F3s2_
加密算法为随机码与MD5 32 位加密，例如：
XL5`K`8^,oA]两个随机字母：ab51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离JAi~ X.d
用户输入密码：123456
] N;cTd$a生成的密码为：ab + MD5(ab123456)
U\i k5py,@U51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离参考：手把手教你使用 Serv-U的ODBC功能51CTO技术论坛 i p] aL+dm
Fq
补充：md5返回为32位的大写字符，附md5.asp
4V;_~S!`3F$G51CTO|计算机|网络|信息|技术|安全|路由器|网管|Windows|Vista|数据库|网站|开发|下载|灌水|零距离提示：代码仅实现更改密码的功能，并不一定完全符合或达到您的需求。
#[#v Z Q iq%}.E trim(reNewPassword) then alert("密码与确认密码不一样") end if Sql0 = "select top 1 name,[password] from [useraccounts] where name = '"& UserName &"'" set rs0 = conn.execute(Sql0) if rs0.eof and rs0.bof then alert("用户名不存在") else dbname = rs0("name") dbpassword = rs0("password") end if cdbpassword = left(dbpassword,2) & md5(left(dbpassword,2) & OldPassword) if trim(cdbpassword) trim(dbpassword) then alert("密码错误") else rndstr = MyRandc(2) '两位随机字母 newdbpassword = rndstr & md5(rndstr & NewPassword) sql2 = "update [useraccounts] set [password] = '"& newdbpassword &"' where name='"& UserName &"'" conn.execute(sql2) alert("密码已经更改，可能要几钟后才能生效") end if end if function alert(x) response.write "alert('"& replace(x,"""","""") &"');history.go(-1);" conn.close set conn = nothing response.end end function function MyRandc(n)'生成随机字符，n为字符的个数 thechr = "" for i=1 to n Randomize timer zNum = cint(25*Rnd) if zNum mod 2 = 0 then zNum = zNum + 97 else zNum = zNum + 65 end if thechr = thechr & chr(zNum) next MyRandc = thechr end function %> 更改FTP (Serv-U) 密码 - 51windows.net 更改FTP (Serv-U) 密码 用户名[√]： (FTP登陆用户名) 旧密码[√]： (必须输入旧密码) 新密码[√]： (输入新密码) 确 认[√]： (再次输入新密码)
|
|
|
| 诚征版主 | 版主堂 | 意见建议 | 大史记 | 论坛地图