基于Sendmail与Perl的邮件附件过滤系统(4)
发表时间：2025-09-09 来源：浏览器大全整理相关软件相关文章人气：
网络技术是从1990年代中期发展起来的新技术，它把互联网上分散的资源融为有机整体，实现资源的全面共享和有机协作，使人们能够透明地使用资源的整体能力并按需获取信息。资源包括高性能计算机、存储资源、数据资源、信息资源、知识资源、专家资源、大型数据库、网络、传感器等。 当前的互联网只限于信息共享，网络则被认为是互联网发展的第三阶段。
我拷贝了suggested-minimum-filter-for-
windows-clients到/etc/mail下且改成下面的：
$Administrator = 'itsecurity@yourdomain.com';
$DaemonAddress = 'itsecurity@yourdomain.com';
$Stupidity{"flatten"} = 0;
$Stupidity{"NoMultipleInlines"} = 0;
sub filter_begin {
}
sub filter {
my($entity, $fname, $ext, $type) = @_;
if (re_match_ext($entity, '^\.(exe com bat vbs scr shs dll vxd pif reg ocx)$')) {
action_discard();
action_notify_sender("Your message with attachment '$fname' had been deleted by our mail server because of security issue\n");
return action_quarantine($entity, "The message with attchment '$fname' was deleted by mail server.");
}
return action_accept();
}
1;
上面的过滤规则表示删除带上面所列出的扩展名的邮件且通知发送者邮件被删除，接收其它所有的邮件。我也更改/usr/local/bin/mimedefang.pl文件以致不要保留邮件附件在/var/spool/MIMEDefang目录中，该文件有详细的自我解释，请编辑该文件去掉保留一份被删除邮件附件在硬盘上的部分。
f. 启动系统并测试
简单地拷贝example目录下的为redhat而写的redhat-sendmail-init-script到 /etc/rc.d/init.d/sendmail并且更改Sendmail启动部分为
/usr/sbin/sendmail -L sm-mta -bd -q30m
/usr/sbin/sendmail -L sm-msp-queue -Ac -q30m
如果你的邮件服务器每天需要处理成千上万的邮件，则考虑拷贝另一个脚本redhat-sendmail-init-script-with-multiplexor到/etc/rc.d/init.d/sendmail，加快处理速度。
最后用/etc/rc.d/init.d/sendmail start启动sendmail，发送带.exe的附件进行测试。
网络的神奇作用吸引着越来越多的用户加入其中，正因如此，网络的承受能力也面临着越来越严峻的考验―从硬件上、软件上、所用标准上......，各项技术都需要适时应势，对应发展，这正是网络迅速走向进步的催化剂。
