E-Mail флудер :)

[Никита]

Спойлер

Выпустил вторую версию программы...

Список изменений:
• Полностью переработан интерфейс.
• Настройки сохраняются в файл. (SendSetting.cfg)
• Годится для рассылки спама (в файл EMailList.txt нужно закинуть список e-mail'ов)
• Можно свернуть в трей.
• Исправлено много багов.
• Она полностью работает!

Скрытый текст. Для просмотра скрытого текста - войдите или зарегистрируйтесь.

Старые версии:

Спойлер

Версия 1.0

Спойлер

Спойлер

Программа позволяющая отправить вашему другу хоть 500, хоть 1000 одинаковых сообщений на почтовый ящик, что бы, так сказать, подсластить другу жизнь.
Скрытый текст. Для просмотра скрытого текста - войдите или зарегистрируйтесь.

P.S. А вообще, когда я это делал, я e-mail клиент написать хотел.

[Крон]

Nikita Rabykin, зарегай себе на майле новый ящик и себе отправь на настоящий - заодно и проверишь!

[Никита]

Крон, у меня 10 ящиков на яндексе, 2 на гмыле и 1 на мыле. И на всех то работает, то не работает. Хрень какая то
Урааа! Работает! Блин, как то 500 писем это многовато удалять придётся  И как на зло не сделал кнопочку отмены

[Крон]

Nikita Rabykin, поздравляю!  Сам себя заспамил!

[Никита]

Крон, ага, причём 2 раза. второй раз я попытался ещё раз отправить, но уже своему другу, и случайно опечатался в адресе друга. Следовательно "яша" вывел 1000 уведомлений на почту что моё сообщение не было доставлено.

[Крон]

1000 уведомлений на почту что моё сообщение не было доставлено

Мама! Тебя если вычислят....

[kilot]

Nikita Rabykin, для таких целей регят ящики на левых хостах, например, какие-нибудь ящики на сервисе, который предлагает ящик на сутки, а потом удаляет

[Никита]

Крон, пускай вычисляют, я это, прокси использовал, наверное
kilot, а можешь дать пару таких сервисов, пожалуйста, в ЛС?

[kilot]

Nikita Rabykin, я не пользовался, просто видел рекламы. Спроси у Яши или Гоши

Ну, вот, например, тот, что висит, как реклама, на руторе (трекер такой, без реги и рейтинга ) http://shitmail.me/

[Tw]

1000 уведомлений на почту что моё сообщение не было доставлено

умираю 
экспериментатор)))

[Никита]

kilot, хм, спасибо
Tw, смешно то как, а мне грустить хочется 

[Tw]

Не грусти) теперь знаешь, что работает 

[Никита]

Tw, правильно, во всём есть свои плюсы

[Mira]

Такие программы создаются, чтобы узнать твой майл и пароль от него.  Итог - спамить будут тебя  А ещё твоих друзей по мылу и много чего другого могут сотворить.... отдуваться в итоге тебе 

[Никита]

Mira, исходники скинуть?
Короче вот, действие при клике на кнопку:

Код: [Выделить]

procedure TMainForm.SendButtonClick(Sender: TObject);
var
i: integer;
begin
IdSMTP.Host:=Host.Text;
IdSMTP.Port:=StrToInt(Port.Text);
IdSMTP.Username:=Login.Text;
IdSMTP.Password:=Password.Text;
IdMessage.From.Text:=EMail.Text;
IdMessage.Subject:=Subject.Text;
IdMessage.Recipients.EMailAddresses:=Who.Text;
IdMessage.ContentType:='text/html; charset=windows-1251';
IdMessage.ContentTransferEncoding:='8bit';
IdMessage.Body.Assign(MessageMemo.Lines);
SendButton.Visible:=False;
ProgressBar.Visible:=True;
ProgressBar.Max:=StrToInt(MessageCount.Text);
try
 IdSMTP.Connect;
except
 IdSMTP.Disconnect();
 ProgressBar.Visible:=false;
 SendButton.Visible:=true;
 ShowMessage('Не удалось соеденится с сервером '+IdSMTP.Host+' :(');
end;
try
 try
  for i:=1 to StrToInt(MessageCount.Text) do
  begin
   IdSMTP.Send(IdMessage);
   ProgressBar.Position:=i;
  end;
 except
  IdSMTP.Disconnect();
  ProgressBar.Visible:=false;
  SendButton.Visible:=true;
  ShowMessage('Неудача :(');
 end;
finally
 IdSMTP.Disconnect();
 ProgressBar.Visible:=false;
 SendButton.Visible:=true;
 ShowMessage('Успешно отправлено! :)');
end;
if IdSMTP.Connected=true then
 IdSMTP.Disconnect;
end;


[Lana★]

Такой идиотизм Смешно, конечно, только если не я и не мне

[Mira]

Nikita Rabykin, об этом хоть много раз можно спорить, но в серый софт я не ногой)))  Есть ICQ флудер, в курсе? 

[Никита]

Есть ICQ флудер, в курсе?

В курсе, руки дойдут - свой напишу
Обновил программу, теперь она крутая

[Mira]

руки дойдут - свой напишу

Вот так флудеры плодятся)))