Delphi: Как я делал убийцу червей со съемных носителей...

Procedure AutoRunKill(s: string; var fin: boolean);
var
  mi,mj,mij,ms: integer;
  mNameVir, mNameDir: array[1..40] of string;
  mni,mnv,mnd: shortInt;
  virName,lineAR,NameAR,DelDir,s1,s2: string;
  MyEXE,MyMid: string[5];
  DesctopHandle: HWND;
  DesctopDC: HDC;
  thisFirst, finWL, mnb, witeLst: boolean;
  label MyJump;
begin
  fin:=false;
  witeLst:=false;
  //очищаем массивы
  mnv:=0;
  mnd:=0;
  //увеличиваем счетчик: "Проверено"
  AutoRunKiller.QPanel1.Edit;
  AutoRunKiller.QPanel1.Fields.Fields[1].Value:=AutoRunKiller.QPanel1.Fields.Fields[1].Value+1;
  AutoRunKiller.QPanel1.Post;
  //начинаем лечить
  NameAR:='autorun.inf';
  if FileExists(s+NameAR) then begin
    AutoRunKiller.Memo2.Lines.Clear;
    AutoRunKiller.Memo2.Lines.LoadFromFile(s+NameAR);
    virName:=''; fin:=true;
    mi:=1; //индекс строки текста авторана
    AutoRunKiller.Faily.First;
    while AutoRunKiller.Faily.Eof=false do begin
      if AutoRunKiller.Faily.Fields.Fields[1].Value=Null then MyEXE:='' else
      MyEXE:=AutoRunKiller.Faily.Fields.Fields[1].Value; //искомое расширение файла
      if MyEXE<>'' then repeat //если искать есть что, продолжаем
        mj:=0; //точка отсчета mid
        lineAR:=AutoRunKiller.Memo2.Lines[mi]; //строка авторана
        repeat
          MyMid:=MidStr(lineAR,mj,Length(MyEXE)); //отрезок строки авторана
          if MyMid=MyEXE then begin
            mij:=mj-2; //захватим уменьшенный на 2 индекс точки отсчета
            repeat //будем искать индекс, стоящий перед именем файла
              MyMid:=MidStr(lineAR,mij,1); //получаем символ
              DelDir:=''; //сбрасываем память переменной "директория на удаление"
              if MyMid='=' then begin //если мы наткнулись на возможное завершение имени файла
                ms:=mij+1; //возможная начальная точка, содержащая начало имени файла/директории
                thisFirst:=true;
                while ms<Length(lineAR) do begin //пока индекс меньше всей длинны строки
                  MyMid:=MidStr(lineAR,ms,1); //получаем символ для исследования
                  //Если ПЕРВОЕ время встречаем пробелы, исключаем их из имени файла/директории
                  if (MyMid=' ') then begin
                    if (thisFirst=true) then begin
                      mij:=mij+1;
                    end else thisFirst:=false
                  end else if (MyMid='\') then begin //если он означает конец имени директории
                    DelDir:=MidStr(lineAR,mij+1,ms-mij-1); //выдираем папку из корня диска
                    Break; //прекращаем цикл, цель достигнута
                  end else thisFirst:=true;
                  ms:=ms+1;
                end;
                mij:=mij+1;
                finWL:=false;
                virName:=MidStr(lineAR,mij,mj+Length(MyEXE)-1);
                //----------------------создание списка файлов на удаление
                if FileExists(s+virName) then begin
                  if AutoRunKiller.QPanel6.Fields.Fields[0].Value=true then begin
                    //белый лист
                    AutoRunKiller.QPanelTable6.First;
                    while AutoRunKiller.QPanelTable6.Eof=false do begin
                      s1:=AutoRunKiller.QPanelTable6.Fields.Fields[0].Value;
                      s2:=virName;
                      MyUpperCase(s1);
                      MyUpperCase(s2);
                      if s1=s2 then begin
                        finWL:=true;
                        witeLst:=true;
                        Break;
                      end;
                      AutoRunKiller.QPanelTable6.Next;
                    end;
                  end;
                  //если нет в белом листе
                  if finWL=false then begin
                    virName:=s+virName;
                    mnb:=false;
                    for mni := 1 to mnv do if mNameVir[mni]=virName then begin
                      mnb:=true;
                      Break;
                    end;
                    //добавляем в список на удаление
                    if mnb=false then begin
                      mnv:=mnv+1;
                      mNameVir[mnv]:=virName;
                      mnb:=false;
                      if DelDir<>'' then begin
                        for mni := 1 to mnd do if mNameDir[mni]=DelDir then begin
                          mnb:=true;
                          Break;
                        end;
                        if mnb=false then begin
                          mnd:=mnd+1;
                          mNameDir[mnd]:=DelDir;
                        end;
                      end;
                    end;
                  end;
                end;
                //--------------------------------------------------------
                goto MyJump;
              end;
              mij:=mij-1;
            until mij=0;
          end;
          mj:=mj+1;
        until mj>length(lineAR)-length(MyEXE)+1;
        MyJump:
        mi:=mi+1; //следующая строка
      until mi>=AutoRunKiller.Memo2.Lines.Capacity-1;
      AutoRunKiller.Faily.Next;
    end;
    //добавляем в список имя самого авторана
    if witeLst=false then begin
      mnv:=mnv+1;
      mNameVir[mnv]:=s+NameAR;
    end;
    //начинаем удалять файлы по списку
    for mni := 1 to mnv do begin
      if AutoRunKiller.QPanel3.Fields.Fields[0].Value=false then begin
        Form6.Label2.Caption:='Имя файла:';
        Form6.Label3.Caption:=mNameVir[mni];
        DesctopHandle := GetDesktopWindow;
        DesctopDC := GetDC(DesctopHandle);
        try
          Form6.Left := GetDeviceCaps(DesctopDC, HORZRES) - Form6.Width;
          Form6.Top := GetDeviceCaps(DesctopDC, VERTRES) - Form6.Height;
        finally
          if ReleaseDC(DesctopHandle, DesctopDC) = 0 then RaiseLastOSError;
        end;
        AutoRunKiller.Timer2.Enabled:=true;
        if mrOk=Form6.ShowModal then begin
          SetFileAttributes(PChar(mNameVir[mni]),FILE_ATTRIBUTE_NORMAL);
          DeleteFile(mNameVir[mni]);
        end;
      end else begin
        if mni=1 then AutoRunKiller.Timer2.Enabled:=true;
        SetFileAttributes(PChar(mNameVir[mni]),FILE_ATTRIBUTE_NORMAL);
        DeleteFile(mNameVir[mni]);
      end;
    end;
    //начинаем удалять директории по списку
    for mni := 1 to mnd do begin
      if AutoRunKiller.QPanel3.Fields.Fields[0].Value=false then begin
        Form6.Label2.Caption:='Имя директории:';
        Form6.Label3.Caption:=mNameDir[mni];
        DesctopHandle := GetDesktopWindow;
        DesctopDC := GetDC(DesctopHandle);
        try
          Form6.Left := GetDeviceCaps(DesctopDC, HORZRES) - Form6.Width;
          Form6.Top := GetDeviceCaps(DesctopDC, VERTRES) - Form6.Height;
        finally
          if ReleaseDC(DesctopHandle, DesctopDC) = 0 then RaiseLastOSError;
        end;
        if mrOk=Form6.ShowModal then begin
          RemoveAll(s+mNameDir[mni]+'\');
        end;
      end else begin
        RemoveAll(s+mNameDir[mni]+'\');
      end;
    end;
  end;
  //автономное удаление каталогов и файлов (black list)
  AutoRunKiller.QPanelTable5.First;
  if AutoRunKiller.QPanel5.Fields.Fields[0].Value=true then
  while AutoRunKiller.QPanelTable5.Eof=false do begin
    if (AutoRunKiller.QPanelTable5.Fields.Fields[0].Value<>Null) and (AutoRunKiller.QPanelTable5.Fields.Fields[0].Value<>'') then begin
      DelDir:=AutoRunKiller.QPanelTable5.Fields.Fields[0].Value;
      if DirectoryExists(s+DelDir) then RemoveAll(s+DelDir+'\'); //если папка
      if FileExists(s+DelDir) then begin //если файл
        SetFileAttributes(PChar(s+DelDir),FILE_ATTRIBUTE_NORMAL);
        DeleteFile(s+DelDir)
      end;
    end;
    AutoRunKiller.QPanelTable5.Next;
  end;
end;