Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Вниз

Как послать 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]

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



PVOzerski   (2002-01-08 15:59) [16]

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

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

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



SoftOne   (2002-01-08 16:51) [17]

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



Anatoly Podgoretsky   (2002-01-08 16:59) [18]

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



Anatoly Podgoretsky   (2002-01-08 17:00) [19]

SoftOne © (08.01.02 16:51)
Можно отвечать, но соучастником становиться не обязательно



Knight   (2002-01-08 18:55) [20]

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.



Дремучий   (2002-01-11 23:37) [21]

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




Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.77 MB
Время: 0.02 c
1-90606           PlaZZma               2002-02-12 17:08  2002.02.28  
Как проверить, находится ли курсор над компонентом или нет?


1-90533           tovSuhov              2002-02-11 08:59  2002.02.28  
Вопрос по TTreeNode...


1-90618           ProgrammerDelphi      2002-02-12 10:17  2002.02.28  
RichEdit


14-90661          Иван Шихалев          2002-01-15 18:11  2002.02.28  
---|Ветка была без названия|---


4-90717           Delphimun             2001-12-20 12:55  2002.02.28  
Как #0 сообщение от клавы о нажатии клавиши?