Свій спамер на Delphi, DELPHI і Хакер, Статті, Програмування - Програмування C, Delphi, C#

Як ти вже зрозумів з назви статті, ми будемо писати програму для розсилки спаму. Для нашої мети знадобиться набір компонентів SakEmail. Його легко можна знайти на www.torry.net.

Кілька слів про цей набір компонентів. Всі компоненти безкоштовні і постачаються у вихідниках, тому якщо захочеш, то зможеш їх удосконалити. З встановленням проблем виникнути не повинно, я тестував на Delphi 6,7 і в обох випадках установка пройшла як по маслу.

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

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

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

3). Один TListBox

4). Чотири TButton

5). Два TOpenDialog

6). SakMsg, SakSmtp

7). Один TProgressBar

Моєї форми ти можеш побачити на малюнку нижче.

Все, наша форма готова настав час переходити до написання коду. Створи процедуру OnClick для кнопки натискання якої ми будемо вказувати шлях до нашого спам - листа. У мене ця кнопка розташована навпроти першого рядка. Напиши у процедурі наступний код:

Тут ми привласнюємо в перший рядок шлях до нашого спаму – аркуша.

Тепер після натискання цієї кнопки буде відображатися стандартний діалог відкриття файлу. Тепер напишемо код додати до кнопки. Ця кнопка додаватиме до листів атачі. Отже, код процедури:

Видаляємо виділений шлях до файлу

Тепер створи процедуру OnClick для кнопки «Надіслати» і напиши нижче наведений код:

---