Интересное в сети
Форум happy-hack.ru
Мы Вконтакте
Посетители

Сейчас на сайте: 26
Пользователей: 0
Гостей: 25

Пользователи онлайн: 


- отсутствуют

Гости (20 последних): 



Роботы: 

Статистика




Чат

Чтобы оставлять сообщения - зарегистрируйтесь
  • Братишка
    07:35
    Stock нравится это
    • Stock
      13 мая 2025, 22:19
      Много с кем был знаком, многими умными и интересными людьми, С которыми давно уже потерял связь. Надеюсь у всех у них все хорошо и они смогли найти место в жизни.
      • Stock
        13 мая 2025, 22:14
        Про себя могу сказать, это не мой ник,это просто аккаунт который был спи* из дампа ,когда-то давно. Были времена 10-15е годы, много где сидел и даже был модером 2-3 форумах, которых давно уже нет. Хорошо что можно зайти и вспомнить, как музей молодости. Иногда на другие мертвые форумы тоже захожу через веб архив, тогда было совсем по другому. Тогда точно было лучше, была атмосфера своя. Не у всех был норм интернет и было уютнее
        • Stock
          13 мая 2025, 22:08
          Эх были времена. Интересно где сейчас все кто тут когда-то сидел?
          • MAZAXAKER
            31 дек 2024, 22:36
            ????????????С НОВЫМ ГОДОМ????????????
            • MAZAXAKER
              22 ноя 2024, 12:04
              Tortik брат ????
              • Baron.power
                14 ноя 2024, 21:06
                como se descargan los programas? siempre que le doy a descargar me sale la pagina de inicio... ayuda por favor
                • Shuma_xD
                  29 окт 2024, 11:14
                  Хочу быть мамкиным *****ом 10 лет спустя снова
                  • Shuma_xD
                    29 окт 2024, 11:14
                    Живые есть?
                    • MAZAXAKER
                      2 окт 2024, 15:28
                      ГДЕ СУГАК? ????
                      • admin
                        27 авг 2024, 08:25
                        *HeaDekBaT, устарели.
                        • HeaDekBaT
                          27 авг 2024, 07:37
                          Зашел на сайт спустя много лет) где все разделы кейлоггеры вирусы и прочее?) что случилось
                          • tayfun221
                            18 авг 2024, 18:28
                            всем привет! шикарный сайт хоть я и на вашем языке чайник )))) но кое что полезное найти можно всегда кто бы научись писать хотя бы калькулятолр ))) как мне энто тяжело дается(((
                            • sal0g0n
                              22 июн 2024, 15:03
                              капец
                              • XaXaTyH
                                14 апр 2024, 05:07
                                • admin
                                  12 апр 2024, 14:26
                                  *Ravin234,
                                  • Ravin234
                                    7 апр 2024, 19:44
                                    в 20:00 будет начнем DDoS атаку на сайт , по дополнительной информации писать на почту dzheyms.respektovich*gmail.com или телеграм *Ops0321
                                    • Macin
                                      14 мар 2024, 19:48
                                      Подписывайтесь на наш канал, здесь t.me мы собрали лучший софт. На нашем канале содержится только лучшие программы для компьютера и все, кто подпишутся, получат доступ к ним.
                                      • RUSLAN19860808
                                        7 мар 2024, 02:56
                                        Подскажите как лучше создать аккаунты в телеграмме штук 10 надо для тапалки
                                        • hecker
                                          6 мар 2024, 21:41
                                          походу ответа нет
                                          • hecker
                                            5 мар 2024, 23:24
                                            крипторы
                                            • hecker
                                              5 мар 2024, 23:23
                                              администраторы сайта happyhack.net добавте в меню
                                              • hecker
                                                5 мар 2024, 23:22
                                                не понял macin ты что несешь
                                                • Macin
                                                  5 мар 2024, 13:04
                                                  Приглашаем вас на наш Телеграмм канал с софт программами! Подписывайтесь сейчас, чтобы быть в курсе последних обновлений и новинок в мире программного обеспечения! ?????????
                                                  t.me
                                                  • Steven0
                                                    2 фев 2024, 22:50
                                                    Does anyone have it?
                                                    • Steven0
                                                      2 фев 2024, 22:50
                                                      I need Orgdata Logikal app with keygen.
                                                      • Steven0
                                                        2 фев 2024, 22:50
                                                        Hello.
                                                        • Mason
                                                          26 янв 2024, 08:35
                                                          Вайс салам, хотел забрать кое что) пзц все линки битые
                                                          • tayfun221
                                                            30 дек 2023, 00:35
                                                            Не буду шить знакомого тел ,сказал там фото с армейки ,Вдруг вспомнит свой айди
                                                            • tayfun221
                                                              30 дек 2023, 00:34
                                                              Завтра заберу под эксперименты 6 ,за 500 рублей битый изрядно и одно яблоко горит
                                                              Опрос на сайте
                                                              Как Вы нашли нас?

                                                              Использование прокси в программе

                                                              Автор: admin | Дата: 25-12-2011, 10:03 | Комментариев: 0 | Просмотров: 6 955
                                                              Сейчас покажу, как нужно использовать различные типы прокси в запросах на Indy. Прокси будем брать из Edit1 и делить на адрес и порт.
                                                              Самое простое это использовать HTTP-прокси:

                                                              IdHTTP1.ProxyParams.ProxyServer:=Copy(Edit1.Text,1,Pos(':',Edit1.Text)-1);
                                                              IdHTTP1.ProxyParams.ProxyPort:=StrToInt(Copy(Edit1.Text,Pos(':',Edit1.Text)
                                                              +1,Length(Edit1.Text)));


                                                              Всё предельно понятно и просто.

                                                              Для использования SOCKS4 и SOCKS5 кроме компонента IdHTTP1 требуются компонент IdSocksInfo (вкладка Indy Misc) и компонент IdSSLIOHandlerSocketOpenSSL (вкладка Indy I/O Handlers).
                                                              В IdSocksInfo указываем тип прокси (svSocks4 или svSocks5), адрес и порт, а также выставляем свойство Authentication в saNoAuthentication:

                                                              IdSocksInfo1.Version:=svSocks4;
                                                              IdSocksInfo1.Host:=Copy(Edit1.Text,1,Pos(':',Edit1.Text)-1);
                                                              IdSocksInfo1.Port:=StrToInt(Copy(Edit1.Text,Pos(':',Edit1.Text)+1,
                                                              Length(Edit1.Text)));
                                                              IdSocksInfo1.Authentication:= saNoAuthentication;


                                                              И присоединяем IdSocksInfo1 к IdSSLIOHandlerSocketOpenSSL1, а IdSSLIOHandlerSocketOpenSSL1 к IdHTTP1:

                                                              IdSSLIOHandlerSocketOpenSSL1.TransparentProxy:=IdSocksInfo1;
                                                              IdHTTP1.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;


                                                              После этого можно делать запрос. Запрос я делал на страницу moi-ip.ru, где на странице отображается IP запрашиваемого. И парсим из ответа IP адрес, который выводим в Memo. Если всё верно и прокси хороший, то используемый прокси и выведенный в Memo должны совпасть.

                                                              Использование прокси в программе


                                                              В качестве бонуса в программе показано, как можно показывать прогресс получения ответа сервера. Он отображается в компоненте Gauge (можно также использовать ProgressBar). В самом начале запроса (IdHTTP1WorkBegin) из заголовков ответа сервера из поля Content-Length берем длину получаемого ответа (обращаю внимание, что такого заголовка может не быть, а значит не всегда можно знать, какой длины будет ответ). И свойству MaxValue присваиваем это значение:

                                                              Gauge1.MaxValue:=strtoint(Pars('Content-Length: ', idhttp1.Response.RawHeaders.Text, #13#10));


                                                              А во время получения ответа (IdHTTP1Work) (а приходит он частями) изменяем свойство Progress:

                                                              Gauge1.Progress:=AWorkCount;


                                                              В результате у нас будет наглядное изображение прогресса загрузки страницы.

                                                              [Скачать] исходник взято с avtuh.ru

                                                              Пароль на все архивы: hh


                                                              Теги: delphi proxy

                                                              Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь.
                                                              Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем.
                                                              • Написал: ingushmen
                                                              • Дата: 7 июля 2012 00:05
                                                              • Новостей: 6
                                                              • Комментариев: 94
                                                              IdSSLIOHandlerSocketOpenSSL в делфи 7 нет. Надо качать инди 10
                                                              • Написал: GlobaToR
                                                              • Дата: 11 октября 2012 20:57
                                                              • Новостей: 0
                                                              • Комментариев: 3
                                                              Вопрос.
                                                              Если делать программу с выбором прокси (пример, RadioButton1 это HTTP (S), а RadioButton2 аналогичный первому Socks 4/5), то работать с if?

                                                              Еще один вопрос.
                                                              Как брать прокси из переменной (к примеру, Proxy) вида TSringList? (так же как и Memo)?
                                                              • Написал: klychev
                                                              • Дата: 11 октября 2012 21:06
                                                              • Новостей: 13
                                                              • Комментариев: 72
                                                              GlobaToR, Да.

                                                              Для примера:
                                                              if Proxy>=ProxyList.Count then
                                                              begin
                                                              Proxy:=0;
                                                              end
                                                              else
                                                              begin
                                                              Form1.IdSocksInfo1.Version:=svSocks5;
                                                              Form1.IdSocksInfo1.Host:=Copy(ProxyList[Proxy],1,Pos(':',ProxyList[Pro
                                                              xy])-1);
                                                              Form1.IdSocksInfo1.Port:=StrToInt(Copy(ProxyList[Proxy],Pos(':',ProxyL
                                                              ist[Proxy])+1,Length(ProxyList[Proxy])-Pos(':',ProxyList[Proxy])));
                                                              Form1.IdSocksInfo1.Authentication:=saNoAuthentication;
                                                              end;
                                                              Добавление комментария
                                                              Имя:*
                                                              E-Mail:
                                                              • bowtiesmilelaughingblushsmileyrelaxedsmirk
                                                                heart_eyeskissing_heartkissing_closed_eyesflushedrelievedsatisfiedgrin
                                                                winkstuck_out_tongue_winking_eyestuck_out_tongue_closed_eyesgrinningkissingstuck_out_tonguesleeping
                                                                worriedfrowninganguishedopen_mouthgrimacingconfusedhushed
                                                                expressionlessunamusedsweat_smilesweatdisappointed_relievedwearypensive
                                                                disappointedconfoundedfearfulcold_sweatperseverecrysob
                                                                joyastonishedscreamtired_faceangryragetriumph
                                                                sleepyyummasksunglassesdizzy_faceimpsmiling_imp
                                                                neutral_faceno_mouthinnocent
                                                              Вопрос: Продолжите поговорку "У страха глаза ***"
                                                              Ответ:*
                                                              Введите два слова, показанных на изображении: *