Свой спамер на Delphi

Как ты уже понял из названия статьи мы будем писать программу для рассылки спама. Для осуществления нашей цели понадобится набор компонентов SakEmail. Его легко можно найти на www.torry.net.

Пару слов об этом наборе компонентов. Все компоненты бесплатны и поставляются в исходниках, так что если захочешь, то сможешь их усовершенствовать. С установкой проблем возникнуть не должно, я тестировал на Delphi 6,7 и в обоих случаях установка прошла как по маслу.

Все, со всеми мелкими вопросами разобрались теперь переходим к написанию самой программы. Создавай новый проект, и на главную форму брось следующие компоненты:

1). Семь компонентов TEdit

2). Один компонент TMemo

3). Один TListBox

4). Четыре TButton

5). Два TOpenDialog

6). SakMsg, SakSmtp {они находятся на закладке «Internet»}

7). Один TProgressBar

Мою форму ты можешь увидеть на рисунке ниже.

Все, наша форма готова пора переходить к написанию кода. Создай процедуру OnClick для кнопки по нажатию которой мы будем указывать путь к нашему спам – листу. У меня эта кнопка расположена напротив первой строки. Напиши в процедуре следующий код:

If OpenDialog1.Execute then
  Edit1.Text:=OpenDialog1.FileName; 

Здесь мы присваиваем в первую строку путь к нашему спам – листу.

Теперь по нажатию этой кнопки будет появляться стандартный диалог открытия файла. Теперь напишем код для кнопки добавить. Эта кнопка будет добавлять к письмам аттачи. Итак, код процедуры:

If OpenDialog2.Execute then
  ListBox1.Items.Add(OpenDialog2.FileName);

Я не стал приводить комментарии, потому что код похож на предыдущий, только здесь мы добавляем в ListBox путь к файлу который нужно будет прикрепить к письму. По нажатию кнопки «Удалить» пишем:

ListBox1.Items.Delete(ListBox1.ItemIndex);

Удаляем выделенный путь к файлу

Теперь создай процедуру OnClick для кнопки «Отправить» и напиши ниже приведенный код:

var
Spam:TStringList;
I,B:Integer;
begin
 SakSmtp1.Host:=Edit6.Text;//Имя  smtp сервера
 SakSmtp1.Port:=Edit7.Text;//Порт smtp сервера

 SakMsg1.Date:=FormatDateTime('dddddd',now);//Дата отправки
 SakMsg1.UserName:=Edit2.Text;//Имя отправителя
 SakMsg1.From:=Edit3.Text;//Адрес отправителя
 SakMsg1.XMailer:=Edit4.Text;//Программа отправитель
 SakMsg1.Subject:=Edit5.Text;//Тема письма
 SakMsg1.Text.Assign(Memo1.Lines);//Копирую текст из тела письма
 For I:=0 to ListBox1.Items.Count-1 do
 SakMsg1.AttachedFiles.Add(ListBox1.Items.Strings[i]);//Добавляю в письмо аттачи

 Spam:=TStringList.Create;//Инициализирую переменную
 Spam.LoadFromFile(Edit1.Text);//Загружаю в переменную список адресов
  try
 SakSmtp1.Connect;//Соединяемся с smtp сервером
 if Not sakSmtp1.SMTPError then//если не произошло никаких ошибок тогда
  begin
   For B:=0 to Spam.Count-1 do
    begin
     SakMsg1.SendTo:=Spam.Strings[b];//Адресу получателя присваиваю адрес из нашего списка
     SakSmtp1.SendTheMessage(SakMsg1);//Отправляю письмо
   end;
  end;
   finally
   end;
  SakSmtp1.Disconnect;//Отсоединяюсь от сервера
  ShowMessage('Отправка закончена');//Сообщение об успешной отправке
end;

В этой процедуре нет ничего сложного и все ты должен понять по комментариям. Наша программа почти готова, осталось только сделать состояние отправки, что бы видеть, сколько процентов письма отправлено. Выдели компонент SakSmtp и создай для него процедуру OnSendProgress и напиши всего одну строчку кода:

ProgressBar1.Position:=Percent;

Все наша программа готова! Теперь можешь создать свой список адресов и начать рассылку спама. Можешь модернизировать пример добавить выбор кодировки, приоритета письма и т.д. Если возникнут вопросы, то пиши мне spider_NET@inbox.ru буду рад помочь. Все пока!

Исходники примера забирай здесь