用Ｐｅｒｌ写一个ＳＭＴＰ透明代理

menei

我在用Ｐｅｒｌ写一个ＳＭＴＰ代理程序，要实现一个功能就是能够把来自普通的ＳＭＴＰ用户认证信息传递给后台的真实ＳＭＴＰ服务器，然后取回验证结果，根据结果拒绝或者接受用户的ＳＭＴＰ邮件发送。我对这个ＳＭＴＰ代理的部分不清楚。请问哪位知道？

welbird

偶还是比较喜欢Net::SMTP模块，你可以参考一下下面的代码。
下面代码把sina当作smtp服务器，用户输入用户名和密码，在sina网站尝试SASL认证，如果正确，可以继续发邮件，如果错误，就退出了。
你可以打开debug来看看。Debug=>;1
use Net::SMTP;
my $MailHost = "smtp.sina.com.cn";
$smtp = Net::SMTP->;new($MailHost,
                           Timeout =>; 30,
                           Debug   =>; 0,
                          );
unless($smtp->;auth($username,$password))
{
print "auth failed\n";
exit(1);
}
else
{
#认证成功！
发邮件.......
.............
}

menei

谢谢，回去试验一下