многопоточный Брут Rambler

[[Na`Vi]DendI]

Цитата: Сообщение от Sinyss Знаешь, все это можно записать 1 раз в функцию, а потом без проблем юзать....

А я разве не это написал в предыдущем посте ?

metraz,в друг чего пиши в скайп, помогу.

[Эмрис]

чел спасибо, по коду научился с потоками общаться! Респект тебе!

[avi2011class]

рамблер выдал блокировку айпи, скажите, как прокси навесить, желательно ссылкой (не на п.14), я в поиске на делфе не нашел((

[Роспотребнадзор]

Цитата: Сообщение от avi2011class рамблер выдал блокировку айпи, скажите, как прокси навесить

Что то типа такого:

Цитата: proxy:=TStringList.create; // создаем лист с проксями proxy.loadfromfile('proxy.txt');// загружаем их for g:=0 to proxy.count -1 do begin idhttp1.proxyparams.proxyserver:=Copy(Proxy[g], 1, Pos(':',Proxy[g])-1); //Копируем адрес idhttp1.proxyparams.proxyport:=strtoint(Copy(Proxy[g], Pos(':', Proxy[g])+1, Length(Proxy[g]))); //Копируем порт end;

Если попадется хоть 1 не рабочая прокся, то программа оффнется, этот момент надо предусмотреть

[Sinyss]

Цитата: Сообщение от Samp1k Как программно проверить прокси на работоспособность?

Да куда угодно запрос послать и посмотреть что придет в ответе..

[Роспотребнадзор]

Цитата: Сообщение от Sinyss Да куда угодно запрос послать и посмотреть что придет в ответе..

А как можно пускать прокси по кругу, что бы бан по ip не получить?
Получилось что то типа такого, но оно походу не работает:

Цитата: idhttp1.proxyparams.proxyserver:=Copy(Proxy[g], 1, Pos(':',Proxy[g])-1); //Копируем адрес idhttp1.proxyparams.proxyport:=strtoint(Copy(Proxy[g], Pos(':', Proxy[g])+1, Length(Proxy[g]))); //Копируем порт inc(g); if g=proxy.Count-1 then g:=0 ;

[Sinyss]

Цитата: Сообщение от РОСПОТРЕБНАДЗОР А как можно пускать прокси по кругу, что бы бан по ip не получить? Получилось что то типа такого, но оно походу не работает:

Просто прокси надо очень много...

[Samp1k]

Цитата: Сообщение от Sinyss Да куда угодно запрос послать и посмотреть что придет в ответе..

Если прокся не рабочая, то в ответ ничего не придется и программа зависнет. как этого избежать?

[Skrillex3]

Цитата: Сообщение от РОСПОТРЕБНАДЗОР А как можно пускать прокси по кругу, что бы бан по ip не получить? Получилось что то типа такого, но оно походу не работает:

if (получен бан по ип) then inc(g);
if (g>proxy.size) then g:=0;
Всё очень просто

[Sinyss]

Цитата: Сообщение от Samp1k Если прокся не рабочая, то в ответ ничего не придется и программа зависнет. как этого избежать?

Вообще то ответ будет... либо вылетит Exeption либо T/O вылезет где то...

[VeTaL_UA]

Однажды мне посоветовали разделить всю туеву кучу проксей на группы, и слать запрос через эти группы проксей, если запрос прошёл, значит вся цепочка валидная, если нет, то разбиваем на меньшие и дальше по тому же принципу. Я таким способом пользуюсь.

[Sinyss]

Цитата: Сообщение от VeTaL_UA Однажды мне посоветовали разделить всю туеву кучу проксей на группы, и слать запрос через эти группы проксей, если запрос прошёл, значит вся цепочка валидная, если нет, то разбиваем на меньшие и дальше по тому же принципу. Я таким способом пользуюсь.

Да, это оптимальней... logN выходит...

[Not_]

10 ошибок, 1 фатальная.

[dictoanon]

Цитата: Сообщение от Not_ 10 ошибок, 1 фатальная.

это пример как работать,там ошибки полюбому есть,лично пробывал зделать брут по этой же инструкцыи...выбило 3-4 ошибки.

[Relli]

Ну смотря на чем вы пишите.Я пишу на Delphi XE/XE3.
Возможно ошибки из-за того,что вы работаете на другой версии.