BackDoor - удалённое администрирование 2

if not RecvThread.Terminated then
begin
  while not RecvThread.Terminated do
  begin
    try
      RecvThread.Terminate;
    except
    end;
    sleep(100);
    Application.ProcessMessages;
  end;
end;
LstRbeg:=nil;
LstRend:=nil;

// Выход из проги
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caNone;
  if constat then
    Form1.Button1Click(Sender);
  Application.ProcessMessages;
  Application.Terminate;
  Halt(1);
end;

// Scaner
procedure TForm1.Button2Click(Sender: TObject);
begin
  Form2.WindowState := wsNormal;
  Form2.Visible := true;
  Form2.SetFocus;
end;

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, ScktComp;

type
  TForm2 = class(TForm)
  Edit1: TEdit;
  Edit2: TEdit;
  Edit3: TEdit;
  Edit4: TEdit;
  Edit5: TEdit;
  Edit6: TEdit;
  Button1: TButton;
  Memo1: TMemo;
  ProgressBar1: TProgressBar;
  ProgressBar2: TProgressBar;
  ClientSocket1: TClientSocket;
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure Button1Click(Sender: TObject);
  procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
end;

var
  Form2: TForm2;
  Rez11: Boolean = false;
  Bool: Boolean = false;

implementation

{$R *.DFM}

//Close Scaner
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // если запущен, то прерываем процесс
  if Rez11 then
  begin
    Action := caNone;
    Form2.Button1Click(Sender);
  end;
end;

// Включить/отключить сканер
procedure TForm2.Button1Click(Sender: TObject);
var
  I, J, K: Integer;
  DopStr: string;
begin
  if Rez11 then
  begin
    // прервать сканирование
    if Application.MessageBox('Прервать сканирование?', 'Сканер', mb_YesNo + mb_IconQuestion) = idYes then
    begin
      Rez11 := false;
      Bool := false;
    end;
  end
  else
  begin
    // запуск сканера
    if StrToInt(Form2.Edit2.Text) < StrToInt(Form2.Edit1.Text) then
    begin
      Application.MessageBox('Неверно указан диапазон для портов','Сканер', mb_Ok + mb_IconStop);
      exit;
    end;

    if StrToInt(Form2.Edit5.Text) < StrToInt(Form2.Edit4.Text) then
    begin
      Application.MessageBox('Неверно указан диапазон IP-адресов','Сканер', mb_Ok + mb_IconStop);
      exit;
    end;

    Form2.Caption:='Идет сканирование...';
    Form2.Memo1.Lines.Clear;

    try
      DopStr := trim(Form2.Edit3.Text);
      Rez11 := true;
      Form2.Button1.Caption := 'Отмена';
      Form2.Memo1.Lines.Add('-------------' + #13 + #10 + '===========');

      // начальные значения для порта и адреса
      I := StrToInt(Form2.Edit1.Text);
      J := StrToInt(Form2.Edit4.Text);

      try
        Form2.ProgressBar1.Max := StrToInt(Form2.Edit2.Text) - StrToInt(Form2.Edit2.Text) + 2;
        Form2.ProgressBar1.Position := 1;
        Form2.ProgressBar2.Max := StrToInt(Form2.Edit5.Text) - StrToInt(Form2.Edit4.Text) + 2;
        Form2.ProgressBar2.Position := 1;

        // цикл по адресам
        while I <= StrToInt(Form2.Edit2.Text) do
        begin
          J := StrToInt(Form2.Edit4.Text);
          // цикл по портам
          while J <= StrToInt(Form2.Edit5.Text) do
          begin
            Application.ProcessMessages;
            if not Rez11 then
              break;
            Form2.ClientSocket1.Active := false;
            Form2.ClientSocket1.Port := I;
            Form2.ClientSocket1.Address := trim(DopStr) + '.' + trim(IntToStr(J));

            try
              // попытка соедениться
              Form2.ClientSocket1.Active := true;
              Application.ProcessMessages;

              // время ожидания
              Bool := true;
              K := round(StrToInt(Form2.Edit6.Text) * 1000 / 50);
              while Bool do
              begin
                Sleep(50);
                Application.ProcessMessages;
                dec(K);
                if K=0 then
                begin

                  try
                    Form2.ClientSocket1.Active:=false;
                  except
                  end;
                  break;
                end;
              end;
            except
            end;

            Application.ProcessMessages;
            Form2.ProgressBar2.Position := Form2.ProgressBar2.Position + 1;
            inc(J);
          end;
          inc(I);
          Application.ProcessMessages;

          if not Rez11 then
            break;

          Form2.ProgressBar1.Position := Form2.ProgressBar1.Position + 1;
        end;
        Form2.ProgressBar2.Position := Form2.ProgressBar1.Position + 1;
        Form2.ProgressBar1.Position := Form2.ProgressBar1.Position + 1;
      except
        Application.MessageBox('Ошибка выполнения операции', 'Сканер', MB_Ok + mb_IconStop);
      end;
      Form2.Button1.Caption := 'Сканер';
      Form2.ProgressBar1.Position := 0;
      Form2.ProgressBar2.Position := 0;
      Form2.Caption := 'Сканер по адресам и портам';
      if Rez11 then
      begin
        Application.MessageBox('Процедура сканирования по адресам и портам закончена.', 'Сканер', mb_Ok + mb_IconAsterisk);
        Form2.Memo1.Lines.Add('-----------------'+#13+#10+'========== ВСЕ АДРЕСА И ПОРТЫ ОТСКАНИРОВАНЫ'+#13+#10+#13+#10);
        Rez11 := false;
      end
      else
        Form2.Memo1.Lines.Add('------------'+#13+#10+'============== ПРЕРВАНО НА порт-'+IntToStr(I)+', адрес-'+trim(DopStr)+'.'+IntToStr(J-1)+#13+#10+#13+#10);
    except
      Application.MessageBox('Ошибка инициализации процесса.','Сканер',mb_Ok+mb_IconStop);
    end;
    Form2.Caption:='Сканер по адресам и портам';
  end;
end;

// Есть ответ сервера
procedure TForm2.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
  // если соеденились вывести сообщение
  Form2.Memo1.Lines.Add('***' + #13 + #10 + 'Порт: ' + IntToStr(Form2.ClientSocket1.Port) + ' ' + 'Адрес: ' + Form2.ClientSocket1.Address + ' - ЕСТЬ ОТВЕТ' + #13 + #10);
  Application.ProcessMessages;
  // прервать время ожидания
  try
    Form2.ClientSocket1.Active := false;
  except
  end;
  Bool := false;
end;

// Ошибка при соединении
procedure TForm2.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  // прервать время ожидания если ошибка
  ErrorCode := 0;
  Bool := false;
end;

end.