发件人邮件地址(图)

来源:韦江代博客 责任编辑:栏目编辑 发表时间:2013-07-02 02:19 点击:
发匿名邮件完全有益身心健康的,比如剑心那小子老是剥削我,我心里不爽就发邮件骂他,为了不让他知道我是谁就伪造一个邮件地址咯,再狠点,嗯,邮件地址就写成他老婆的,然后一边呆着看他们吵架(嘿嘿,好狠毒啊)。
基于此,写了一个利用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">
    发表评论
    请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
    用户名: 验证码:点击我更换图片
    最新评论 更多>>
    网站首页 - 友情链接 - 网站地图 - TAG标签 - RSS订阅 - 内容搜索
    Copyright © 2008-2015 计算机技术学习交流网. 版权所有

    豫ICP备11007008号-1