HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуЧекалка прокси. ← Ctrl1Ctrl →
Этот топик читают: Гость
Ответов: 902
Рейтинг: 27
#1: 2013-12-20 15:55:54 ЛС | профиль | цитата
Здравствуйте. Попробовал сделать небольшую чекалку прокси. Для бесплатных прокси, вроде всё работает. Хотя предполагаю, что всё сделал не совсем правильно. Ябы даже сказал: Совсем неправильно!
Платные проки требуют пароль и логин, подскажите пожалуйста как это можно осуществить в моей схеме. В компоненте ТСР Клиент, нет точек для их ввода.

code_32644.txt
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
файлы: 1code_32644.txt [3.2KB] [124]
Ответов: 1343
Рейтинг: 31
#2: 2013-12-20 16:44:52 ЛС | профиль | цитата
мдам...

просто возьми HTTP_GET !!! там и поля есть функций больше!
и чекалка ужасная да и большая слишком

вот на тебе поужасней (зато будет покруче твоей (тоже когда то увлекался этим вот клепал ):
Add(MainForm,7750149,7,119)
{
 Width=330
 Height=149
 Color=-16777215
 Caption="Turbo Proxy Checker v1"
 BorderStyle=1
 Point(Handle)
 link(onCreate,638850:doEvent1,[])
}
Add(StrList,6115134,259,168)
{
 link(FileName,13853511:Value,[(272,155)(71,155)(71,254)(188,254)])
}
Add(Button,12341495,98,210)
{
 Left=165
 Top=5
 Width=105
 Caption="ОткрытьСтарт"
 Point(doEnabled)
 link(onClick,5842872:doExecute,[])
}
Add(ODialog,5842872,140,210)
{
 link(onExecute,13853511:doValue,[])
}
Add(Memory,13853511,182,210)
{
 link(onData,9346463:doEvent1,[])
}
Add(Label,8157585,273,266)
{
 Left=5
 Top=30
 Width=25
 Height=17
 Color=-16777215
 Font=[MS Sans Serif,8,0,65280,1]
 Caption="0 : 0"
}
Add(FormatStr,4509870,231,266)
{
 Mask="%2 : %1"
 link(onFString,8157585:doText,[(268,272)(268,272)])
 link(Str1,3213921:Var2,[(237,240)(272,240)])
 link(Str2,2876853:##count,[(244,254)(402,254)(402,296)(559,296)])
}
Add(ChanelToIndex,13426828,91,273)
{
 link(onIndex,8828312:doEvent1,[])
}
Add(GlobalVar,9361259,546,56)
{
 Name="TimeOut"
}
Add(Hub,9346463,224,210)
{
 OutCount=5
 link(onEvent1,6115134:doLoad,[(248,216)(248,202)])
 link(onEvent2,13426828:doWork1,[(250,223)(250,261)(79,261)(79,279)])
 link(onEvent3,7474429:doData,[(284,230)(284,300)])
 link(onEvent4,15693218:doTimer,[(270,237)(270,349)])
}
Add(DoData,11265365,476,63)
{
 Data=String(2000)
 link(onEventData,9361259:doValue,[(520,69)(520,62)])
 link(Data,5595786:Text,[(482,51)(433,51)])
}
Add(Hub,5556718,896,539)
{
}
Add(StrList,14740755,791,413)
{
 link(onChange,4791677:doString,[(835,419)(835,479)(723,479)(723,538)])
}
Add(Label,15779324,784,532)
{
 Left=100
 Top=30
 Width=35
 Height=17
 Color=-16777215
 Font=[MS Sans Serif,8,0,65280,1]
 Caption="Bad: 0"
}
Add(FormatStr,4791677,735,532)
{
 DataCount=1
 Mask="Bad: %1"
 link(onFString,15779324:doText,[])
 link(Str1,14740755:Count,[(741,495)(741,495)(804,495)])
}
Add(Label,612220,784,350)
{
 Left=200
 Top=30
 Width=36
 Height=17
 Color=-16777215
 Font=[MS Sans Serif,8,0,65280,1]
 Caption="God: 0"
}
Add(FormatStr,8180055,742,385)
{
 DataCount=1
 Mask="God: %1"
 link(onFString,612220:doText,[(779,391)(779,356)])
 link(Str1,11688642:Count,[(748,362)(755,362)])
}
Add(StrList,11688642,742,294)
{
 link(onChange,8180055:doString,[(786,300)(786,328)(730,328)(730,391)])
}
Add(Edit,5595786,427,7)
{
 Left=65
 Top=5
 Width=95
 Color=-16777215
 Font=[MS Sans Serif,8,0,65280,1]
 Text="5000"
 link(onEnter,88765:doWork1,[(471,20)(471,43)(459,43)])
}
Add(Label,14030074,301,63)
{
 Left=10
 Top=5
 Width=47
 Height=17
 Color=-16777215
 Font=[MS Sans Serif,8,0,65280,1]
 Caption="Таймаут"
}
Add(HubEx,88765,455,63)
{
 link(onEvent,11265365:doData,[])
}
Add(ArrayRW,7356774,441,252)
{
 Point(Count)
 link(onRead,2388035:doEvent1,[])
 link(Array,6115134:Array,[(447,232)(279,232)])
}
Add(Label,16095686,287,532)
{
 Left=155
 Top=55
 Width=53
 Height=17
 Color=-16777215
 Font=[MS Sans Serif,8,0,65280,1]
 Caption="Потоки: 0"
}
Add(Hub,2388035,490,252)
{
 link(onEvent2,2876853:##add,[])
}
Add(StrList,8349546,413,560)
{
 link(FileName,5662658:Result,[(426,548)(450,548)(450,618)(475,618)])
}
Add(StrList,6934649,455,686)
{
 link(FileName,13701842:Result,[(468,674)(503,674)(503,807)(538,807)])
}
Add(Application,10649511,532,665)
{
}
Add(StrCat,13701842,532,763)
{
 Str2="Bad.txt"
 link(onStrCat,6934649:doSave,[(576,769)(576,755)(443,755)(443,727)])
 link(Str1,1094087:Part,[])
}
Add(FilePartElm,1094087,532,714)
{
 Mode=0
 Point(Part)
 link(onPart,13701842:doStrCat,[(574,720)(574,750)(520,750)(520,769)])
 link(FileName,10649511:AppFileName,[])
}
Add(Timer,5894754,567,581)
{
 link(onTimer,5331182:doEvent1,[])
}
Add(Hub,5331182,609,581)
{
 link(onEvent1,1094087:doPart,[(635,587)(635,653)(520,653)(520,720)])
 link(onEvent2,10357179:doPart,[(630,594)(630,629)(453,629)(453,531)])
}
Add(Application,9631297,469,476)
{
}
Add(StrCat,5662658,469,574)
{
 Str2="Good.txt"
 link(onStrCat,8349546:doSave,[(513,580)(513,590)(401,590)(401,601)])
 link(Str1,10357179:Part,[])
}
Add(FilePartElm,10357179,469,525)
{
 Mode=0
 Point(Part)
 link(onPart,5662658:doStrCat,[(511,531)(511,561)(457,561)(457,580)])
 link(FileName,9631297:AppFileName,[])
}
Add(Hub,107836,609,252)
{
 link(onEvent1,11688642:doAdd,[(663,258)(663,300)])
 link(onEvent2,8349546:doAdd,[(635,265)(635,415)(401,415)(401,566)])
}
Add(Hub,1444076,616,329)
{
 link(onEvent1,14740755:doAdd,[(688,335)(688,419)])
 link(onEvent2,6934649:doAdd,[(642,342)(642,517)(443,517)(443,692)])
}
Add(CounterEx,8154481,378,336)
{
 Max=999999999
 Point(doMax)
 Point(onThroughMax)
 link(onNext,7356774:doRead,[(426,342)(426,258)])
 link(onThroughMax,876259:doEvent1,[(422,349)(422,373)(387,373)(387,398)])
}
Add(DoData,7474429,329,294)
{
 link(onEventData,8154481:doMax,[(369,300)(369,349)])
 link(Data,3213921:Var3,[(335,229)])
}
Add(GetDataEx,3213921,266,224)
{
 link(Data,6115134:Count,[])
}
Add(EnumProcess,9907204,497,168)
{
 Name="project25.exe"
 Point(doFindName)
 Point(onFind)
 Point(doGetMemoryInfo)
 Point(onGetMemoryInfo)
 Point(Name)
 link(onFind,1624261:doTimer,[(541,181)(541,171)(401,171)(401,160)])
 link(onGetMemoryInfo,3345946:doOperation,[(573,188)(573,160)])
 link(Name,10956065:Part,[(510,149)(762,149)])
}
Add(Label,9793214,805,154)
{
 Left=5
 Top=55
 Width=120
 Height=17
 Color=-16777215
 Font=[MS Sans Serif,8,0,65280,1]
 Caption="Загрузка памяти: 0 мб"
}
Add(Hub,638850,154,133)
{
 OutCount=4
 link(onEvent1,10956065:doPart,[(462,139)(462,104)])
 link(onEvent2,88765:doWork2,[(312,146)(312,69)])
 link(onEvent3,9907204:doFindName,[(332,153)(332,195)])
 link(onEvent4,608050:doWinInfo,[(180,160)(180,321)(44,321)(44,482)])
}
Add(Hub,876259,399,392)
{
 link(onEvent1,15693218:doStop,[(425,398)(425,377)(289,377)(289,356)])
}
Add(Math,3345946,616,154)
{
 OpType=3
 Op2=1024
 link(onResult,3721302:doOperation,[])
}
Add(Math,3721302,665,154)
{
 OpType=3
 Op2=1024
 link(onResult,12766021:doOperation,[])
}
Add(Math,12766021,707,154)
{
 OpType=35
 Op2=0.01
 link(onResult,16371007:doString,[])
}
Add(Timer,1624261,413,154)
{
 Interval=100
 Enable=1
 link(onTimer,9907204:doGetMemoryInfo,[(471,160)(471,202)])
}
Add(FormatStr,16371007,749,154)
{
 DataCount=1
 Mask="Загрузка памяти: %1 мб"
 link(onFString,9793214:doText,[])
}
Add(FormatStr,11947265,238,532)
{
 DataCount=1
 Mask="Потоки: %1"
 link(onFString,16095686:doText,[])
 link(Str1,4853842:Var1,[(244,520)(223,520)])
}
Add(Application,8331105,672,35)
{
}
Add(FilePartElm,10956065,756,98)
{
 Point(Part)
 link(FileName,8331105:AppFileName,[(762,76)(678,76)])
}
Add(Hub,8828312,140,273)
{
 link(onEvent1,12341495:doEnabled,[(166,279)(166,247)(86,247)(86,216)])
}
Add(ProcessInfo,842062,168,525)
{
 Point(ThreadCount)
 link(onInfo,8075969:doEvent1,[(225,531)(225,507)(177,507)(177,482)])
}
Add(DoData,1951842,77,525)
{
 Data=String(10712)
 link(onEventData,842062:doInfo,[])
 link(Data,608050:ProcessID,[(83,517)(76,517)])
}
Add(WinInfo,608050,56,476)
{
 Point(ProcessID)
 link(onWinInfo,6088506:doTimer,[])
 link(Handle,7750149:Handle,[(62,314)(13,314)])
}
Add(Timer,6088506,105,476)
{
 Interval=300
 Enable=1
 link(onTimer,1951842:doData,[(149,482)(149,506)(65,506)(65,531)])
}
Add(MultiElementEx,2876853,553,252)
{
 Mode=1
 link(Good,107836:doEvent1,[])
 link(Bad,1444076:doEvent1,[(601,265)(601,335)])
}
BEGIN_SDK
  Add(EditMultiEx,2611289,7,28)
  {
   WorkCount=#7:##clear|5:##add|
   EventCount=#4:Good|3:Bad|0:|8:onEvent1|
   VarCount=#7:##count|
   DataCount=#5:Array|8:doEvent3|
   Width=839
   Height=473
   Point(##clear)
   Point(##add)
   Point(##count)
   link(##add,7004741:doCompare,[(25,41)(25,62)])
  }
  Add(HTTP_Get,7014310,385,182)
  {
   URL="http://whatismyip.akamai.com"
   Point(Proxy)
   link(onDownload,13493322:doConvert,[(429,195)(429,188)])
   link(Proxy,12827566:Var,[])
  }
  Add(StreamConvertor,13493322,441,182)
  {
   Mode=6
   link(onResult,881717:doCompare,[])
  }
  Add(If_else,881717,490,182)
  {
   link(onTrue,1078225:doEvent1,[(604,188)(604,111)])
   link(onFalse,16608377:doEvent1,[(608,195)(608,223)])
   link(Op2,4204187:Var,[])
  }
  Add(MultiStrPart,14571343,252,273)
  {
   Char=":"
   link(Str,4996238:Var3,[(258,240)])
  }
  Add(Hub,145508,308,182)
  {
   OutCount=3
   link(onEvent1,7014310:doDownload,[])
   link(onEvent2,14571343:doSplit,[(334,195)(334,253)(240,253)(240,279)])
   link(onEvent3,16529450:doTimer,[(354,202)(354,230)])
  }
  Add(LineBreak,5829987,252,315)
  {
   Type=1
   link(Data,14571343:Part1,[])
   Primary=[4204187,245,-161]
  }
  Add(Hub,1078225,686,105)
  {
   InCount=5
   OutCount=5
   link(onEvent1,3222766:doData,[])
   link(onEvent2,10316057:doEvent1,[(744,118)(744,367)(313,367)(313,272)])
   link(onEvent3,1448221:doEvent1,[(712,125)(712,79)(327,79)(327,125)])
   link(onEvent4,15674397:doEvent1,[(712,132)(712,391)(64,391)(64,209)])
  }
  Add(Hub,15202690,693,287)
  {
   InCount=5
   OutCount=5
   link(onEvent1,9527016:doData,[])
   link(onEvent2,1448221:doEvent2,[(726,300)(726,374)(51,374)(51,132)])
   link(onEvent3,15674397:doEvent2,[(718,307)(718,400)(38,400)(38,216)])
  }
  Add(Timer,16529450,385,224)
  {
   Interval=1500
   Enable=1
   AutoStop=1
   Point(doInterval)
   link(onTimer,12942236:doEvent1,[])
  }
  Add(Hub,16608377,637,217)
  {
   InCount=5
   OutCount=5
   link(onEvent1,15202690:doEvent1,[(676,223)(676,293)])
   link(onEvent2,10316057:doEvent2,[(665,230)(665,359)(322,359)(322,279)])
  }
  Add(Hub,10316057,350,266)
  {
   InCount=5
   OutCount=5
   link(onEvent1,16529450:doStop,[(374,272)(374,237)])
  }
  Add(Hub,12942236,448,224)
  {
   InCount=5
   OutCount=5
   link(onEvent1,15202690:doEvent2,[(578,230)(578,300)])
  }
  Add(Hub,1448221,343,119)
  {
   InCount=5
   OutCount=5
   link(onEvent1,7014310:doStop,[(371,125)(371,195)])
  }
  Add(DoData,5730330,147,168)
  {
   Data=String(0)
   link(onEventData,13887237:doEvent1,[(195,174)(195,188)])
  }
  Add(Hub,13887237,210,182)
  {
   InCount=2
   OutCount=1
  }
  Add(LineBreak,12704356,105,252)
  {
   Type=1
   link(Data,13198843:Var1,[(111,240)])
   Primary=[12827566,301,-98]
  }
  Add(GetDataEx,4996238,238,235)
  {
   link(Data,2302398:Value,[])
  }
  Add(LineBreak,9599420,147,252)
  {
   Type=1
   link(Data,13198843:Var2,[])
   Primary=[11021594,623,-175]
  }
  Add(GetDataEx,13198843,147,235)
  {
   Angle=1
   link(Data,646624:Var1,[])
  }
  Add(LineBreak,14525980,189,252)
  {
   Type=1
   link(Data,646624:Var2,[])
   Primary=[5461016,581,7]
  }
  Add(GetDataEx,646624,189,235)
  {
   Angle=1
   link(Data,4996238:Var1,[])
  }
  Add(DoData,3222766,770,105)
  {
   link(onEventData,2611289:Good,[(831,111)(831,34)])
   link(Data,11021594:Var,[])
  }
  Add(DoData,9527016,770,287)
  {
   link(onEventData,2611289:Bad,[(831,293)(831,41)])
   link(Data,5461016:Var,[])
  }
  Add(DoData,1141328,147,98)
  {
   link(onEventData,33734:doEvent1,[])
   link(Data,13961960:Var,[])
  }
  Add(GlobalVar,13961960,147,63)
  {
   Name="TimeOut"
  }
  Add(Hub,33734,189,98)
  {
   link(onEvent1,16529450:doInterval,[(294,104)(294,244)])
   link(onEvent2,5730330:doData,[(215,111)(215,143)(135,143)(135,174)])
  }
  Add(Hub,138638,98,98)
  {
   link(onEvent1,1141328:doData,[])
   link(onEvent2,2302398:doValue,[(210,111)(210,188)])
  }
  Add(Memory,2302398,238,182)
  {
   link(onData,145508:doEvent1,[])
  }
  Add(Hub,15674397,77,203)
  {
   InCount=5
   OutCount=5
   link(onEvent1,10054149:doData,[])
  }
  Add(DoData,10054149,105,203)
  {
   link(Data,2611289:Array,[(111,112)(13,112)])
  }
  Add(StrMask,7004741,42,56)
  {
   Mask="*.*.*.*:*"
   link(onTrue,138638:doEvent1,[(86,69)(86,104)])
  }
END_SDK
Add(GetDataEx,4853842,217,560)
{
 Angle=3
 link(Data,842062:ThreadCount,[(209,565)])
}
Add(Hub,8075969,189,476)
{
 OutCount=4
 link(onEvent1,11947265:doString,[(217,482)(217,538)])
 link(onEvent2,13777245:doData,[(238,489)(238,601)])
 link(onEvent3,7098160:doConvert,[(325,496)(325,328)])
 link(onEvent4,4509870:doString,[(217,503)(217,272)])
}
Add(LedLadder,519725,364,595)
{
 Left=284
 Width=40
 Height=121
 Align=3
 Color=-16777215
 Kind=1
 Spacing=1
 Count=40
 MinMid=600
 MidMax=1200
 Max=1400
 NoSegColorMin=-16777216
 NoSegColorMid=10789024
 NoSegColorMax=8421504
}
Add(DoData,13777245,266,595)
{
 link(onEventData,4027193:doValue,[])
 link(Data,4853842:Var3,[(272,565)])
}
Add(Memory,4027193,322,595)
{
 link(onData,519725:doPosition,[])
}
Add(TrackBar,1229236,133,49)
{
 Left=5
 Top=85
 Width=275
 Color=-16777215
 HintPosition=0
 Max=1400
 Position=500
 Point(doEnabled)
 link(onPosition,11758059:doValue,[(177,55)(177,62)])
}
Add(Convertor,7098160,448,322)
{
 Mode=1
 link(onResult,4780174:doValue,[])
 link(Data,4027193:Value,[(454,308)(375,308)(375,639)(328,639)])
}
Add(Memory,4780174,490,322)
{
 link(onData,8163035:doCompare,[(534,328)(534,365)(476,365)(476,384)])
}
Add(DoData,15435786,630,364)
{
 Data=String(500)
 link(onEventData,12109754:doWork1,[(676,370)])
}
Add(DoData,4389646,630,399)
{
 Data=String(0)
 link(onEventData,12109754:doWork2,[])
}
Add(If_else,8163035,490,378)
{
 Type=4
 link(onTrue,4114493:doEvent1,[])
 link(Op1,4780174:Value,[])
 link(Op2,11758059:Value,[(503,233)(195,233)])
}
Add(Memory,11758059,189,56)
{
 Default=Integer(500)
 link(onData,13899342:doText,[])
}
Add(Hub,4114493,532,378)
{
 link(onEvent1,15435786:doData,[(553,384)(553,370)])
 link(onEvent2,5448428:doTimer,[(560,391)(560,398)])
}
Add(Timer,5448428,574,392)
{
 Interval=3000
 Enable=1
 AutoStop=1
 link(onTimer,4389646:doData,[(618,398)(618,405)])
}
Add(HubEx,12109754,672,399)
{
 Angle=1
 link(onEvent,15693218:doInterval,[(676,438)(282,438)(282,363)])
}
Add(Label,13899342,238,56)
{
 Left=235
 Top=65
 Width=22
 Height=17
 Color=-16777215
 Font=[MS Sans Serif,8,0,65280,1]
 Caption="500"
}
Add(StyleXP,12389223,182,14)
{
}
Add(Timer,15693218,301,343)
{
 Interval=0
 Enable=1
 Point(doInterval)
 link(onTimer,8154481:doNext,[(355,349)(355,342)])
}

хоть и функции прикрученные некрасиво сделаны но зато серце в контейнере вроде норм
карма: 2

0
Ответов: 902
Рейтинг: 27
#3: 2013-12-20 16:47:39 ЛС | профиль | цитата
Rysik, Еслиб было проще, яб взял!
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 1343
Рейтинг: 31
#4: 2013-12-20 16:48:55 ЛС | профиль | цитата
juk писал(а):
Rysik, Еслиб было проще, яб взял!


дак что там трудного то???
там наоборот ещё проще так сказать и надёжней проверка идёта то вот у тебя тупо по конект идёт а конект то там за портом может оказаться и совсем не прокси
карма: 2

0
Ответов: 902
Рейтинг: 27
#5: 2013-12-20 16:55:57 ЛС | профиль | цитата
За схему спасибо, но мне нужно именно с компонентом: ТСР Клиент
------------ Дoбавленo в 16.55:
Сервис: http://2ip.ru/ покажет, прокси или нет.
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 1343
Рейтинг: 31
#6: 2013-12-20 16:56:38 ЛС | профиль | цитата
juk писал(а):
За схему спасибо, но мне нужно именно с компонентом: ТСР Клиент


ну тогда ищи в инете наверно символы ASCII и смотри обозначения так как там они наверно пригодятся
а вообще если хочеш знать то всё можно проверить через Wireshark просто находишь людой софт с проксями или же свой делаешь на подобие HTTP GET и смотришь какие идут запросы и в точности так же клепаешь свои

но если будешь всётаки лезть в ASCII и получиться то обязательно выложи результаты
карма: 2

0
Ответов: 902
Рейтинг: 27
#7: 2013-12-20 17:00:42 ЛС | профиль | цитата
Мне нужно правильно сформировать запрос для входа через прокси по логину и паролю используя компонент: ТСР Клиент.
А как это сделать, я не знаю, потому и спрашиваю.
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 1343
Рейтинг: 31
#8: 2013-12-20 17:15:43 ЛС | профиль | цитата
juk писал(а):
Мне нужно правильно сформировать запрос для входа через прокси по логину и паролю используя компонент: ТСР Клиент.
А как это сделать, я не знаю, потому и спрашиваю.



ну так я и говорю Wireshark в помощь...
карма: 2

0
Ответов: 4630
Рейтинг: 749
#9: 2013-12-20 17:20:49 ЛС | профиль | цитата
juk, в зависимости от прокси. Простой вариант: ловить от прокси ответ с заголовком Proxy-Authenticate. На основе этого заголовка генерировать повторный запрос с параметрами аутентификации в заголовке Proxy-Authorization. Если описание процедуры обмена этими заголовками можно найти, то как в HiAsm обработать Digest-аутентификацию - не знаю (Basic - вроде несложно).

http://ru.wikipedia.org/wiki/Дайджест_аутентификация
Для прокси должно быть похоже.
карма: 26

0
Ответов: 902
Рейтинг: 27
#10: 2013-12-20 17:25:18 ЛС | профиль | цитата
Rysik, Netspirit, Спасибо! Буду разбиратся.
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
10
ФорумыПомощь по пакетуЧекалка прокси. ← Ctrl1Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика