Автозагрузка — HackZona.Ru

Автозагрузка

Автозагрузка

Тип статьи:
Со старой ХакЗоны.
Источник:
V1S
Решил написать КАК сделать програмно так, чтобы при загрузке компа загружалась твоя прога.
(Пишу это потому, как сам давненько искал подобную статью, но к сожалению находил, но все они почемуто не работали...).
И так, начнем, о5-же писать будем в Delphi.
Чтобы прога загружалась при загрузке компа, надо«изменить реестр».
Вот ключи в реестре, где обычно «автозапускаются» проги:

HKEY_CURRENT_USERSoftware MicrosoftWindowsCurrentVersionRun
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunServices
HKEY_USERS.DEFAULTSoftwareMicrosoftWindowsCurrentVersionRun

НАПОМНЮ, чтобы зайти в реестр надо зайти: Пуск-Выполнить-regedit
или regedit.exe и нажать Enter.
Также список автозапускающихся прог можно увидеть в «msconfig'e».
Для этого: Пуск-Выполнить-msconfig-автозагрузка.

НАПОМИНАЮ!!!
НЕ удаляйте в мсконфиге программ, которые вы считаете вам не нужными!!!
Удалять конечно можно, но не советую.

И так, чтобы прога запустилась создадим в делфи новую форму, и в онсрейте (FormCreate(Sender: TObject);) этой формы пишем следующий код:

procedure TForm1.FormCreate(Sender: TObject);
var
reg: TRegistry;
path: String;
begin
path:=Application.ExeName;
reg:=Tregistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
if(reg.OpenKey('SoftwareMicrosoftWindows' + 'CurrentVersionRun', True)) then begin
reg.WriteString('Joker', path);
reg.CloseKey;
reg.Free;
end;
end;
end.

НО обязательно в Uses добавить запись: registry!!!!
uses
Windows, ..., Registry;

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

П.С. если вам нужна прога-приветствие, то пишите в коменты, я ее добавлю, кому надо, или же на Email 'ы.

Email 'ы:
1)[email protected] ;
2)[email protected] ;

о5 же, это моя всего то 2 статья, несудите строго.
И скажем «НЕновечки» просто в коменты нечего не пишите, я понимаю, что вы это должны и так знать… .
Нравится
Не нравится

10 комментариев

V1S
12:26
reg.WriteString('Joker', path);
Joker, так называлась моя прога, можно написать типо:
reg.WriteString('virys', path);
и т.д.)
09:26
полный хрень!
11:48
Можно в 100 раз легче(если это именно то о чем я подумал). Заходишь в папку C:Documents and [email protected] менюПрограммыАвтозагрузка закидываешь файл который надо, и все. ))
Если я не о том - извините. Только начинаю.
14:05
что тут добавить.. палевный способ.. но вообще намного компактнее и хитрей выглядит такой исходник:

[code]{$M 1000000}
uses
windows;
begin
winexec(PChar('cmd /c REG ADD HKLMSOFTWAREMicrosoftWindowsCurrentVersionRun /v Virus /t REG_SZ /d "'+paramstr(0)+'"'),0);
end.[/code]

и не каких окон не надо)))
14:46
Я на4енающий и с4етаю ету тему норм) потому как особа она не о4 пригадится) но лишнее не помешает знать да и всё токи ей мона найти применение)
14:40
а можно и так.. в uses добавляем RegisTry; В обработчике событий (можно в OnClick у формы или в OnCreate у кнопки) прописываем код приведенный ниже:

var reg: tregistry;
begin
reg := tregistry.create;
reg.rootkey := hkey_local_machine;
reg.lazywrite := false;
reg.openkey('softwaremicrosoftwindowscurrentversionrun', false);
reg.writestring('progrmma', application.exename); {вместо programma можно вставить что нибудь своё}
reg.closekey;
reg.free;
end;

//=) Удачи
14:27
А мне кажется что данные ключи реестра палят все кому не лень, поэтому я прописываю автозапуск в HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionWinlogon ключ Shell значение explorer.exe, VIRUS.exe
23:11
Норм. статейка))
14:39
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerRun]
Программно мы добавим в эту ветви реестра строковой параметров виде пути к нашей.
11:52
Статья конечно для новичка норм. Самое главное что ты всеже начал изучать самую сложную и интересную профессию хакинг. Жилаю успехов если будет что то непонятно пиши мне постараюсь помочь и посоветовать. УДАЧИ.