[Delphi] Закачка файлов через сокеты

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
[Delphi] Закачка файлов через сокеты

Опции темы

Поиск в этой теме

Опции просмотра

[Delphi] Закачка файлов через сокеты

03.02.2007, 15:51

Navern

Новичок

Регистрация: 30.01.2007

Сообщений: 17

С нами: 10146554

Репутация: 2

[Delphi] Закачка файлов через сокеты

День добрый. Помогите, кто чем может, пожалуйста. Есть такая проблема:

Написал брут (как мог, но зато сам) для веб-формы. Отправляю POST-запрос на сервак, оттуда мне приходит ответ: хэдер, где находится нужная мне инфа (если в хэдере есть спец-знак, то значит пароль не подходит) + тело документа.

Как мне сделать так, чтобы после получения хэдера вся страница дальше не качалась? Насколько я понял, именно из-за этого и возникают проблемы со скоростью, поскольку у меня (я мерял) 14-16 вариантов в минуту, а, например, в wwwhack для той же формы и при той же скорости соединения 90-100 вариантов в минуту.

// Ответ от сервера приходит вот так:

Код:

procedure TForm1.ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
begin
  FResult:=FResult+Socket.ReceiveText;
end;

Вот как мне из Socket.ReceiveText скачать только первые 500-600 символов? Этого должно хватить, чтобы отловить символ. Ну, или как сделать поиск нужного символа прямо "на лету" во время качалки?

Если нужна какие-то дополнительные данные по исходнику - я дам.

𝕏 Twitter Reddit Telegram Копировать ссылку

Последний раз редактировалось Navern; 03.02.2007 в 15:58..

03.02.2007, 17:55

~~qPhoenix~~

Banned

Регистрация: 15.12.2005

Сообщений: 95

С нами: 10738406

Репутация: 132

Код:

procedure TForm1.ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
begin
  FResult:=FResult+Socket.ReceiveText;
  if pos('искомые_данные', FResult)>0 then ClientSocket.Close;
end;

04.02.2007, 14:21

W!z@rD

Reservists Of Antichat - Level 6

Регистрация: 12.02.2006

Сообщений: 891

С нами: 10653446

Репутация: 836

Цитата:

Сообщение от Navern

1. Вот как мне из Socket.ReceiveText скачать только первые 500-600 символов?
2. Ну, или как сделать поиск нужного символа прямо "на лету" во время качалки?

Код:

var i:Word;
I:=i+Length(Socket.ReceiveText);
if i=>500 then ClentSocket1.Close;

итог: заводишь новую переменную (почeму Word а не SmallInt/Integer? длинна не может быть отрицательной!!!)
2.

Код:

var str:string;
str:=Socket.ReceiveText;
if pos('authorization ok',LowerCase(str))>0 then ClientSocket1.Close;

итог: в str помещаем данные полученные от сокета, функцией pos ищем данные, при том если функция возвращает >0 значит дынне есть. притом все данные переводятся в нижний регистр...

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...

Последний раз редактировалось Dr.Check; 04.02.2007 в 14:31..

04.02.2007, 16:13

Navern

Новичок

Регистрация: 30.01.2007

Сообщений: 17

С нами: 10146554

Репутация: 2

Спасибо, ребят, буду пробовать.

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Проблемы защиты мгновенной передачи сообщений	Noman	Мировые новости. Обсуждения.	0	29.12.2006 02:34
Закачка файлов с одного сайта на другой	Grey	PHP	5	10.06.2006 21:38
Microsoft через неделю выпустит исправление уязвимости в обработке WMF файлов	dinar_007	Мировые новости. Обсуждения.	0	05.01.2006 16:16
Если папка окрытая для закачки файлов. Можно ли залить файл через приложения?	indikatdupena	Уязвимости	17	12.04.2005 20:49

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход