Как послать e-mail, чтобы пользователь даже не знал об этом?

← →
Delphimun © (2002-01-06 09:51) [0]

Как послать e-mail, чтобы пользователь даже не знал об этом(с вложенным файлом)!

Когда я компилирую данный код он выдаёт ошибки.
Вот код модуля программы:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
function SendEmail(const RecipName, RecipAddress, Subject, Attachment: string): Boolean;

function IsOnline: Boolean;

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
function SendEmail(const RecipName, RecipAddress, Subject, Attachment: string): Boolean;
var
MapiMessage: TMapiMessage;
MapiFileDesc: TMapiFileDesc;
MapiRecipDesc: TMapiRecipDesc;
i: integer;
s: string;
begin
with MapiRecipDesc do begin
ulRecerved:= 0;
ulRecipClass:= MAPI_TO;
lpszName:= PChar(RecipName);
lpszAddress:= PChar(RecipAddress);
ulEIDSize:= 0;
lpEntryID:= nil;
end;

with MapiFileDesc do begin
ulReserved:= 0;
flFlags:= 0;
nPosition:= 0;
lpszPathName:= PChar(Attachment);
lpszFileName:= nil;
lpFileType:= nil;
end;

with MapiMessage do begin
ulReserved := 0;
lpszSubject := nil;
lpszNoteText := PChar(Subject);
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;
lpOriginator := nil;
nRecipCount := 1;
lpRecips := @MapiRecipDesc;
if length(Attachment) > 0 then begin
nFileCount:= 1;
lpFiles := @MapiFileDesc;
end else begin
nFileCount:= 0;
lpFiles:= nil;
end;
end;

Result:= MapiSendMail(0, 0, MapiMessage, MAPI_DIALOG
or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0) = SUCCESS_SUCCESS;
end;

function IsOnline: Boolean;
var
RASConn: TRASConn;
dwSize,dwCount: DWORD;
begin
RASConns.dwSize:= SizeOf(TRASConn);
dwSize:= SizeOf(RASConns);
Res:=RASEnumConnectionsA(@RASConns, @dwSize, @dwCount);
Result:= (Res = 0) and (dwCount > 0);
end;

end.

При компиляции выдаёт ошибки:
Unit.pas(30): Undeclared indentifier: "TMapiMessage"
Unit.pas(31): Undeclared indentifier: "TMapiFileDesc"
Unit.pas(32): Undeclared indentifier: "TmapiRecipDesc"
Unit.pas(37): Undeclared indentifier: "ulrecerved"
Unit.pas(38): Undeclared indentifier: "ulRecipClass"
Unit.pas(38): Undeclared indentifier: "MAPI_TO"
Unit.pas(39): Undeclared indentifier: "IpszName"
Unit.pas(40): Undeclared indentifier: "IpszAdress"
Unit.pas(41): Undeclared indentifier: "uieidsize"
Unit.pas(42): Undeclared indentifier: "IpEntyID"
Unit.pas(46): Undeclared indentifier: "ulReserved"
Unit.pas(47): Undeclared indentifier: "flFlags"
Unit.pas(48): Undeclared indentifier: "nPosition"
[Error] Unit1.pas(49): Undeclared identifier: "lpszPathName"
[Error] Unit1.pas(50): Undeclared identifier: "lpszFileName"
[Error] Unit1.pas(51): Undeclared identifier: "lpFileType"
[Error] Unit1.pas(56): Undeclared identifier: "lpszSubject"
[Error] Unit1.pas(57): Undeclared identifier: "lpszNoteText"
[Error] Unit1.pas(58): Undeclared identifier: "lpszMessageType"
[Error] Unit1.pas(59): Undeclared identifier: "lpszDateReceived"
[Error] Unit1.pas(60): Undeclared identifier: "lpszConversationID"
[Error] Unit1.pas(62): Undeclared identifier: "lpOriginator"
[Error] Unit1.pas(63): Undeclared identifier: "nRecipCount"
[Error] Unit1.pas(64): Undeclared identifier: "lpRecips"
[Error] Unit1.pas(66): Undeclared identifier: "nFileCount"
[Error] Unit1.pas(67): Undeclared identifier: "lpFiles"
[Error] Unit1.pas(74): Undeclared identifier: "MapiSendMail"
[Error] Unit1.pas(74): Undeclared identifier: "MAPI_DIALOG"
[Error] Unit1.pas(75): Undeclared identifier: "MAPI_LOGON_UI"
[Warning] Unit1.pas(75): Combining signed and unsigned types - widened both operands

[Error] Unit1.pas(75): Undeclared identifier: "SUCCESS_SUCCESS"
[Warning] Unit1.pas(75): Comparing signed and unsigned types - widened both operands
[Error] Unit1.pas(81): Undeclared identifier: "TRASConn"
[Error] Unit1.pas(84): Undeclared identifier: "RASConns"
[Error] Unit1.pas(86): Undeclared identifier: "Res"
[Warning] Unit1.pas(87): Comparing signed and unsigned types - widened both operands
[Error] Unit1.pas(13): Unsatisfied forward or external declaration: "TForm1.IsOnline"
[Fatal Error] Project1.dpr(5): Could not compile used unit "Unit1.pas"

Как мне исправить ошибки и отослать письмо с вложенным в него файлом?

← →
Polevi © (2002-01-06 10:17) [1]

Fatal error...

← →
Delphimun © (2002-01-06 10:32) [2]

Как мне устранить ошибки или послать почту с вложенным файлом, чтоб пользователь не знал об этом другим способом?

← →
Anatoly Podgoretsky © (2002-01-06 10:58) [3]

А если пользователь узнает об этом, что тогда?

← →
Knight © (2002-01-06 11:12) [4]

Тогда троян обнаружат...:)))

Шутка!

С уважением Knight.

← →
Anatoly Podgoretsky © (2002-01-06 11:23) [5]

Если это внутри организации, тогда кроме обнаружения может быть и еще кое что другое, для других случаев аналогично. Ну последствия могут быть разные, например повреждение носов, увольнение и попадание в черный список, судебное преследование, etc

← →
Romul © (2002-01-06 13:35) [6]

А ты никакой модуль не забыл подключить?

← →
Delphimun © (2002-01-06 14:30) [7]

Которые у меня выше написаны, те и подключил.

← →
Romul © (2002-01-06 14:39) [8]

Так эти МАПИ-функции они в модуле Windows есть?

← →
Delphimun © (2002-01-06 18:50) [9]

Спасибо всем, я уже разобрался!

← →
MadBurro © (2002-01-06 23:35) [10]

Заходя сюда, я почти угодал что ответит Anatoly Podgoretsky :)

← →
MadBurro © (2002-01-06 23:38) [11]

Он в таких случаях очень беспокоится за наше здоровье :)))

← →
Anatoly Podgoretsky © (2002-01-06 23:41) [12]

Нет за свое, не дай бог он сумеет что нибудь написать, естественно пустит это в производство, но надежда есть судя по вопросам. :-)

← →
skaminski~~~ (2002-01-07 00:23) [13]

Ну вы тут и даете. Нужно было (пару вопросов назад) сказать ему, что енто невозможно принципиально. а то вот, будем опять лишнее г.... выгребать из ящика.

← →
skaminski~~~ (2002-01-07 00:25) [14]

кстати, сравнивая вопрос и код.... не его код. а вопрос его

← →
Вадим © (2002-01-07 02:40) [15]

Код, имхо, из ФАК"а

Вообще говоря, надо бы завести что-нибудь вроде пункта в правилах пользования форумом, где должно
быть примерно следующее:

"Вопросы, имеющие своей целью получение помощи в разработке компьютерных вирусов или троянских
программ, не должны обсуждаться. Если заданный вопрос вызывает подозрения в этом отношении у
Модератора, последний помещает в данной нити уведомление, на которое автор вопроса должен дать
разъяснение по поводу целей разрабатываемой программы в ?-дневный срок. Если разъяснение не будет
получено или сочтено Модератором неубедительным, обсуждение закрывается".

Конечно, не мне правила вводить, но посоветовать я считаю себя вправе. Понятно, что умный
троянописатель найдет сто безобидных интерпретаций своего вопроса, но хоть менее умных отсечь
удастся...

Вполне достаточно просто не отвечать!

Так правила не могут, можно судить по данному вопросу, он был потом переформулирован, так что выглядел как вполне безобидный.
Потом любым инструментом можно и строить и можноиспользовать как орудие убийства.
А суть скажем моего постинга состоит в том, что бы он призадумался над последствиями, по телевизору часто показывают таких героев, когда они потом слезы льют, "невиноватая я". И уж его дело писать или нет.

2 PVOzerski

Если это сделают то теперь каждый раз когда я буду задавать вопрос для вируса/троянца то мне перед этим придётся потратить ещё минут 5 на то чтобы придумать причну для модератора...

2 ALL
Чтобы не открывать новую ветку, задаю вопрос сюда.
Кто-нибудь видел форму добавки сообщения в гостевуху на НАРОД.РУ НЕ ИЗ НЕТА ??? Пытаюсь сделать, иногда добалвяет, иногда нет... Код скопирован из оригинала и путь дополнен.

<form action=" http://narod.yandex.ru/guestbook/leave_message.xhtml" method="post" target=_self><input type="hidden" name="owner" value="2900662"> <table cellspacing=0 cellpadding=0 border=0 width=100%> <tr><td background=" http://narod.yandex.ru/images/dotted-bg.gif"><img src=" http://narod.yandex.ru/images/d-t.gif" width=1 height=14></td></tr> </table> <table border=0> <tr valign=top> <td colspan=4>Ваше имя:</td> </tr> <tr> <td><img src="/images/d-t.gif" width=50 height=1></td> <td><input type=text size=20 name="your_name"></td> <td><img src="/images/d-t.gif" width=50 height=1></td> <td><img src="/images/d-t.gif" width=50 height=1></td> </tr> <tr valign=top> <td colspan=2>Адрес (e-mail):</td> <td colspan=2>URL:</td> </tr> <tr> <td><img src="/images/d-t.gif" width=50 height=1></td> <td><input type=text size=20 name="your_email"></td> <td><img src="/images/d-t.gif" width=30 height=1></td> <td><input type=text size=30 name="your_url"></td> </tr> <tr> <td colspan=4>Сообщение:</td> </tr> <tr> <td><img src=" http://narod.yandex.ru/images/d-t.gif" width=50 height=1></td> <td colspan=3><textarea rows=5 cols=55 name="your_message"></textarea><br> <input type=submit value="Добавить сообщение"></td> </tr> </table> </form>

В качестве полигона желающие могут использовать гостевуху http://narod.yandex.ru/guestbook/?owner=2900662 - моя... временная...

Заранее благодарю.
С уважением Knight.

принадлежность к троянству необъязательна -
мне, например, такая фишка мне нужна была при обнаружении
несанкционированного(подозрительного) доступа к компу(серверу).
только мыло шлется на мобилу.

Как послать e-mail, чтобы пользователь даже не знал об этом? Найти похожие ветки