Ну назвать себя профспамером не могу, но что-то подсказать смогу.
1. Отличных программ не встречал - ни одной. Хотя спам начинал именно с программ. Сначала использовал бесплатные, потом крякнутые... Итог-качество не очень + скорость напрямую зависит от канала интернета, где установлена программа. Далее идет отдел скриптов. На мой взгляд самый приемлемый вариант. Находишь буржуйский бесплатный хостинг, заливаешь скрипт и вперед. Скорость рассылки заметно возрастает, потому что заастую на хостингах канал очень большой. Ну и завершающий этап спама - ботнет. Если знаешь о ботнете, то думаю сомневаться не будешь. А если нет, то в кратце так- это сеть из зараженных компов, которые по команде начинают спамить. Если интересует спам от миллиона получателей, то это самый лучший вариант. Правда не дешевый.

2. На мой взгляд самый просто способ обхода спам-фильтров - это рандомизация. Также слышал что хорошо помогает, когда текст письма оформлен в виде картинки приложенной к письму. Еще некоторые додумались прикреплять аудио-файл с текстом письма. Ну и по идее можно идти дальше и прикреплять видео-файл =)

3. Ну сбор мыльником это тоже чуть ли не отдельная тема. Тут все зависит от того что ты хочешь рассылать и для кого. Если будешь собирать сам с просторов интернета, то на мой взгляд тоже лучше использовать скрипты. Трафик не твой и настройки особо сложной обычно в них не требуется. Есть много бесплатных скриптов, к сожалению названий вспомнит не могу. Если же интересуют программы и на трафик тебе по..... то тут также очень большой выбор. Сам обычно собирал базы путем взламывания БД на сайте через sql-inj. Тут уже больше вероятность того что ты будешь первым кто проспамит эту базу пользователей, соответственно и откат будет лучше.

4. Не совсем понятен этот вопрос. Наверное имелось в виду где и как надыбать смтп сервера для программ для спама. Бесплатных анонимных (не требущих регистрации) смтп-серверов еще ни разу не встречал. Слышал что во времена моей молодости они существовали, но вымерли как динозавры =) Так что для минус программ еще и в том что многие из них требуют именно такие сервера. Для скриптов же такого гемороя нет. Если скрипт на php то на хостинге требуется функция mail() обычно вся рассылка идет через нее. Соответственно некоторые хозяева бесплатных хостингов либо совсем отключают эту функцию либо делают ограничение на кол-во отправленных писем. Для perl скриптов - отдельная тема.

5. Сам обычно рассылал без носков. Потому что объем был небольшой и требуется не мало отправленных писем для того что IP попал в блэклист. А если уж интересует спам с носками то лучше брать в платных сервисах, потому что те что в паблике быстро попадают в блэклист. Ну соответственно платные сервисы лучше подбирать тщательнее при этом было бы не плохо переговорить с супортом сервиса, а если интересуют бесплатные то гугл тебе в помощь.

Если есть еще вопросы задавайте, чем смогу - помогу.

#!/usr/bin/perl
#RED_EYEs antichat
use threads;
sub usage(){
print <<END
-p file with proxyies
-o output file [default stdout]
-i input file [default stdin]
-t pause between requests(seconds дробное)
-s use self
END
;
die "___";
}

use LWP::UserAgent;
use Time::HiRes qw( usleep ualarm gettimeofday tv_interval nanosleep
clock_gettime clock_getres clock_nanosleep clock
stat );
our $cc='';
my %StartKeys=(-p=>"proxys",-i=>"input",-t=>"time",-o=>"output");
our %conf=(proxys=>"",input=>"",time=>0.2,-o=>"",-s=>"");
my $i=0;
our $self;
while($i<=$#ARGV)
{

$self=1,$i++,next if($ARGV[$i] eq "-s");
usage() unless(defined $StartKeys{$ARGV[$i]});
$conf{$StartKeys{$ARGV[$i]}}=$ARGV[$i+1];
$i+=2
}

close (STDIN), open (STDIN,"<",$conf{input}) if $conf{input};
close (STDOUT),open (STDOUT,">>",$conf{output}) if $conf{output};

if ($conf{proxys}) {
open (PRX,"<",$conf{proxys});
our @proxs=<PRX>;
close(PRX)
};


# sub geturl(){
# local $z=<STDIN>;
#warn "!";
#return $z;
#}
sub MainThread($)
{
# return if(fork());
my $ua = LWP::UserAgent->new;
$zz=$_[0];
$ua->proxy(['http', 'ftp'], 'http://'.$zz.'/') if($zz);
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.1) Gecko/20090624 Firefox/3.5");
while(<STDIN>){
my $tm=Time::HiRes::time();
my $req = HTTP::Request->new(GET => "$_");

my $res = $ua->request($req);
if ($res->is_success) {
print STDOUT $_."\n" for($res->content=~/[^A-Za-z0-9._%+-]([A-Za-z0-9._%+-]+\@[A-Za-z0-9.-]+\.[A-Za-z]{2,4})[^A-Za-z]/gm);
}
usleep(($conf{time}+$tm-Time::HiRes::time())*1000000) if(Time::HiRes::time()-$tm<$conf{time});
}
exit();
}
$z=0;
for $i(@proxs)
{
$thrd[$z++]=threads->create(\&MainThread,$i);
}
MainThread('') if($self);
$_->join() for (@thrd);

Дайте ссылки на флудеры icq , а то касперский жалуется на проги в первой ссылки