• 🚨 24 часа до повышения цены на курс «Пентест Active Directory: от теории к практике» от Академии Кодебай

    🔍 Изучите реальные техники атак на инфраструктуру Active Directory: от первоначального доступа до полной компрометации.
    🛠️ Освойте инструменты, такие как BloodHound, Mimikatz, CrackMapExec и другие.
    🧪 Пройдите практические лабораторные работы, имитирующие реальные сценарии атак.
    🧠 Получите знания, которые помогут вам стать востребованным специалистом в области информационной безопасности.

    Последний день записи в текущий поток по старой цене Подробнее о курсе ...

Получить список серверов

  • Автор темы Автор темы Shouldercannon
  • Дата начала Дата начала
S

Shouldercannon

Пытаюсь получить список серверов
PHP:
100.[TBBC] Master Server Version 0.5.6.101.24.151.80.35.226:27666
212.159.59.104:27888
212.159.59.104:27889
212.159.59.104:27890
163.158.166.243:27888
163.158.166.243:27891
163.158.166.243:27893
163.158.166.243:27889
163.158.166.243:28000
31.31.73.85:28777
163.158.166.243:27897
163.158.166.243:27890
212.159.59.104:27891
79.184.26.134:26667
163.158.166.243:27896
188.221.75.206:27888
155.133.34.252:27888
94.45.222.106:27816
94.45.222.106:27888
94.45.222.106:27864
94.45.222.106:27880
94.45.222.106:27850
94.45.222.106:27840
94.45.222.106:27872
.
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  IdTCPClient1.Host := '163.158.182.243';
  IdTCPClient1.Port := 28900;
  IdTCPClient1.Connect;
end;

procedure TForm1.IdTCPClient1Connected(Sender: TObject);
begin
  IdTCPClient1.Socket.Write('001');
  IdTCPClient1.IOHandler.ReadStrings(Memo1.Lines);
  IdTCPClient1.Disconnect;
end;
Дальше этого места выполнение кода не происходит
Код:
IdTCPClient1.IOHandler.ReadStrings(Memo1.Lines);
Получаю всё, но программа повисает намертво. Где допущена ошибка?
 
Как минимум не использовать индюка. Есть synapse, он проще в использовании и проблем меньше.
 
  • Нравится
Реакции: randrange
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab

Курс AD